Archive-SevenZip

 view release on metacpan or  search on metacpan

lib/Archive/SevenZip.pm  view on Meta::CPAN

    if( $options{ find }) {
        $class->find_7z_executable();
    };

    for( keys %class_defaults ) {
        $options{ $_ } = $class_defaults{ $_ }
            unless defined $options{ $_ };
    };

    bless \%options => $class
}

sub version {
    my( $self_or_class, %options) = @_;
    for( keys %class_defaults ) {
        $options{ $_ } = $class_defaults{ $_ }
            unless defined $options{ $_ };
    };
    my $self = ref $self_or_class ? $self_or_class : $self_or_class->new( %options );

lib/Archive/SevenZip/API/ArchiveTar.pm  view on Meta::CPAN

use this API to enable a script that uses Archive::Tar
to also read other archive files supported by 7z.

=head1 METHODS

=cut

sub new {
    my( $class, %options )= @_;
    $options{ sevenZip } = Archive::SevenZip->new();
    bless \%options => $class;
};

sub sevenZip { $_[0]->{sevenZip} }

=head2 C<< ->contains_file >>

=cut

sub contains_file {
    my( $self, $name ) = @_;

lib/Archive/SevenZip/API/ArchiveZip.pm  view on Meta::CPAN

use Encode qw( decode encode );
use File::Basename qw(dirname basename);
use File::Copy;
use Archive::SevenZip 'AZ_OK';

our $VERSION= '0.20';

sub new {
    my( $class, %options )= @_;
    $options{ sevenZip } = Archive::SevenZip->new();
    bless \%options => $class;
};

sub sevenZip { $_[0]->{sevenZip} }

=head1 NAME

Archive::SevenZip::API::ArchiveZip - Archive::Zip compatibility API

=head1 SYNOPSIS

lib/Archive/SevenZip/Entry.pm  view on Meta::CPAN

      print strftime('%Y-%m-%d %H:%M', gmtime($entry->lastModTime)),"\n";
      my $content = $entry->slurp();
      print $content;
  };

=cut

sub new {
    my( $class, %options) = @_;

    bless \%options => $class
}

=head1 METHODS

=over 4

=item C<< ->archive >>

  my $ar = $entry->archive();

 view all matches for this distribution
 view release on metacpan -  search on metacpan