FM / Zip

/usr/share/perl5/vendor_perl/Archive/Zip/

/usr/share/perl5/vendor_perl/Archive/Zip

Name	Size	Mode	Actions
Archive.pm	32341	0644	edit dl rm
BufferedFileHandle.pm	2746	0644	edit dl rm
DirectoryMember.pm	1982	0644	edit dl rm
FAQ.pod	12654	0644	edit dl rm
FileMember.pm	1338	0644	edit dl rm
Member.pm	37663	0644	edit dl rm
MemberRead.pm	7819	0644	edit dl rm
MockFileHandle.pm	1333	0644	edit dl rm
NewFileMember.pm	2186	0644	edit dl rm
StringMember.pm	1716	0644	edit dl rm
Tree.pm	816	0644	edit dl rm
ZipFileMember.pm	13768	0644	edit dl rm

Edit: /usr/share/perl5/vendor_perl/Archive/Zip/StringMember.pm (1716B)

package Archive::Zip::StringMember;

use strict;
use vars qw( $VERSION @ISA );

BEGIN {
    $VERSION = '1.60';
    @ISA     = qw( Archive::Zip::Member );
}

use Archive::Zip qw(
  :CONSTANTS
  :ERROR_CODES
);

# Create a new string member. Default is COMPRESSION_STORED.
# Can take a ref to a string as well.
sub _newFromString {
    my $class  = shift;
    my $string = shift;
    my $name   = shift;
    my $self   = $class->new(@_);
    $self->contents($string);
    $self->fileName($name) if defined($name);

# Set the file date to now
    $self->setLastModFileDateTimeFromUnix(time());
    $self->unixFileAttributes($self->DEFAULT_FILE_PERMISSIONS);
    return $self;
}

sub _become {
    my $self     = shift;
    my $newClass = shift;
    return $self if ref($self) eq $newClass;
    delete($self->{'contents'});
    return $self->SUPER::_become($newClass);
}

# Get or set my contents. Note that we do not call the superclass
# version of this, because it calls us.
sub contents {
    my $self   = shift;
    my $string = shift;
    if (defined($string)) {
        $self->{'contents'} =
          pack('C0a*', (ref($string) eq 'SCALAR') ? $$string : $string);
        $self->{'uncompressedSize'} = $self->{'compressedSize'} =
          length($self->{'contents'});
        $self->{'compressionMethod'} = COMPRESSION_STORED;
    }
    return $self->{'contents'};
}

# Return bytes read. Note that first parameter is a ref to a buffer.
# my $data;
# my ( $bytesRead, $status) = $self->readRawChunk( \$data, $chunkSize );
sub _readRawChunk {
    my ($self, $dataRef, $chunkSize) = @_;
    $$dataRef = substr($self->contents(), $self->_readOffset(), $chunkSize);
    return (length($$dataRef), AZ_OK);
}

cmd: