File manager - Edit - /usr/local/cpanel/3rdparty/perl/542/cpanel-lib/Archive/Any/Tar.pm
Back
package Archive::Any::Tar; our $VERSION = '0.0946'; use strict; use warnings; require Archive::Any; use base 'Archive::Any'; use Archive::Tar; use Cwd; sub new { my ( $class, $file ) = @_; my $self = bless {}, $class; $self->{handler} = Archive::Tar->new($file); return unless $self->{handler}; $self->{file} = $file; return $self; } sub files { my ($self) = shift; $self->{handler}->list_files; } sub extract { my ( $self, $dir ) = @_; my $orig_dir; if ($dir) { $orig_dir = getcwd; chdir $dir; } my $success = $self->{handler}->extract; if ($dir) { chdir $orig_dir; } return $success; } sub type { return 'tar'; } 1; # ABSTRACT: Archive::Any wrapper around Archive::Tar __END__ =pod =encoding UTF-8 =head1 NAME Archive::Any::Tar - Archive::Any wrapper around Archive::Tar =head1 VERSION version 0.0946 =head1 SYNOPSIS B<DO NOT USE THIS MODULE DIRECTLY> Use L<Archive::Any> instead. =head1 DESCRIPTION Wrapper around L<Archive::Tar> for L<Archive::Any>. =head1 SEE ALSO L<Archive::Any>, L<Archive::Tar> =head1 AUTHORS =over 4 =item * Clint Moore =item * Michael G Schwern (author emeritus) =item * Olaf Alders (current maintainer) =back =head1 COPYRIGHT AND LICENSE This software is copyright (c) 2016 by Michael G Schwern, Clint Moore, Olaf Alders. This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself. =cut
| ver. 1.4 |
Github
|
.
| PHP 8.1.34 | Generation time: 0.05 |
proxy
|
phpinfo
|
Settings