Beta Shell
v2.0 ยท web2.us.cloudlogin.co
[FM]
[CMD]
[PHP]
[DB]
[INFO]
[SEC]
File Manager
~
/
usr
/
share
/
perl5
/
vendor_perl
/
Archive
/
Peek
Upload
4 items
Name
Size
Perms
Modified
Actions
[ .. / .. ]
Tar.pm
573 B
-rw-r--r--
2011-09-26 18:46:25
Edit
Del
Zip.pm
940 B
-rw-r--r--
2008-08-28 07:56:03
Edit
Del
Editing: Tar.pm
(573 B)
Path: /usr/share/perl5/vendor_perl/Archive/Peek/Tar.pm
Back
package Archive::Peek::Tar; use Moose; use Archive::Tar; extends 'Archive::Peek'; sub tar { my $self = shift; my $filename = $self->filename; my $tar = Archive::Tar->new( $filename->stringify ) || confess("Error reading $filename"); return $tar; } sub files { my $self = shift; my $tar = $self->tar; my @files = sort map { $_->full_path } grep { $_->is_file } $tar->get_files(); return @files; } sub file { my ( $self, $filename ) = @_; my $tar = $self->tar; return $tar->get_content($filename); } 1;