|
Packit |
0bf95d |
package Archive::Zip::StringMember;
|
|
Packit |
0bf95d |
|
|
Packit |
0bf95d |
use strict;
|
|
Packit |
0bf95d |
use vars qw( $VERSION @ISA );
|
|
Packit |
0bf95d |
|
|
Packit |
0bf95d |
BEGIN {
|
|
Packit |
0bf95d |
$VERSION = '1.60';
|
|
Packit |
0bf95d |
@ISA = qw( Archive::Zip::Member );
|
|
Packit |
0bf95d |
}
|
|
Packit |
0bf95d |
|
|
Packit |
0bf95d |
use Archive::Zip qw(
|
|
Packit |
0bf95d |
:CONSTANTS
|
|
Packit |
0bf95d |
:ERROR_CODES
|
|
Packit |
0bf95d |
);
|
|
Packit |
0bf95d |
|
|
Packit |
0bf95d |
# Create a new string member. Default is COMPRESSION_STORED.
|
|
Packit |
0bf95d |
# Can take a ref to a string as well.
|
|
Packit |
0bf95d |
sub _newFromString {
|
|
Packit |
0bf95d |
my $class = shift;
|
|
Packit |
0bf95d |
my $string = shift;
|
|
Packit |
0bf95d |
my $name = shift;
|
|
Packit |
0bf95d |
my $self = $class->new(@_);
|
|
Packit |
0bf95d |
$self->contents($string);
|
|
Packit |
0bf95d |
$self->fileName($name) if defined($name);
|
|
Packit |
0bf95d |
|
|
Packit |
0bf95d |
# Set the file date to now
|
|
Packit |
0bf95d |
$self->setLastModFileDateTimeFromUnix(time());
|
|
Packit |
0bf95d |
$self->unixFileAttributes($self->DEFAULT_FILE_PERMISSIONS);
|
|
Packit |
0bf95d |
return $self;
|
|
Packit |
0bf95d |
}
|
|
Packit |
0bf95d |
|
|
Packit |
0bf95d |
sub _become {
|
|
Packit |
0bf95d |
my $self = shift;
|
|
Packit |
0bf95d |
my $newClass = shift;
|
|
Packit |
0bf95d |
return $self if ref($self) eq $newClass;
|
|
Packit |
0bf95d |
delete($self->{'contents'});
|
|
Packit |
0bf95d |
return $self->SUPER::_become($newClass);
|
|
Packit |
0bf95d |
}
|
|
Packit |
0bf95d |
|
|
Packit |
0bf95d |
# Get or set my contents. Note that we do not call the superclass
|
|
Packit |
0bf95d |
# version of this, because it calls us.
|
|
Packit |
0bf95d |
sub contents {
|
|
Packit |
0bf95d |
my $self = shift;
|
|
Packit |
0bf95d |
my $string = shift;
|
|
Packit |
0bf95d |
if (defined($string)) {
|
|
Packit |
0bf95d |
$self->{'contents'} =
|
|
Packit |
0bf95d |
pack('C0a*', (ref($string) eq 'SCALAR') ? $$string : $string);
|
|
Packit |
0bf95d |
$self->{'uncompressedSize'} = $self->{'compressedSize'} =
|
|
Packit |
0bf95d |
length($self->{'contents'});
|
|
Packit |
0bf95d |
$self->{'compressionMethod'} = COMPRESSION_STORED;
|
|
Packit |
0bf95d |
}
|
|
Packit |
0bf95d |
return $self->{'contents'};
|
|
Packit |
0bf95d |
}
|
|
Packit |
0bf95d |
|
|
Packit |
0bf95d |
# Return bytes read. Note that first parameter is a ref to a buffer.
|
|
Packit |
0bf95d |
# my $data;
|
|
Packit |
0bf95d |
# my ( $bytesRead, $status) = $self->readRawChunk( \$data, $chunkSize );
|
|
Packit |
0bf95d |
sub _readRawChunk {
|
|
Packit |
0bf95d |
my ($self, $dataRef, $chunkSize) = @_;
|
|
Packit |
0bf95d |
$$dataRef = substr($self->contents(), $self->_readOffset(), $chunkSize);
|
|
Packit |
0bf95d |
return (length($$dataRef), AZ_OK);
|
|
Packit |
0bf95d |
}
|
|
Packit |
0bf95d |
|
|
Packit |
0bf95d |
1;
|