vcs.maemo.org Git - dh-make-perl/blob - dev/arm/libarchive-zip-perl/libarchive-zip-perl-1.18/debian/libarchive-zip-perl/usr/share/perl5/Archive/Zip/StringMember.pm

   1 package Archive::Zip::StringMember;
   2
   3 use strict;
   4 use vars qw( $VERSION @ISA );
   5
   6 BEGIN {
   7     $VERSION = '1.18';
   8     @ISA     = qw( Archive::Zip::Member );
   9 }
  10
  11 use Archive::Zip qw(
  12   :CONSTANTS
  13   :ERROR_CODES
  14 );
  15
  16 # Create a new string member. Default is COMPRESSION_STORED.
  17 # Can take a ref to a string as well.
  18 sub _newFromString {
  19     my $class  = shift;
  20     my $string = shift;
  21     my $name   = shift;
  22     my $self   = $class->new(@_);
  23     $self->contents($string);
  24     $self->fileName($name) if defined($name);
  25
  26     # Set the file date to now
  27     $self->setLastModFileDateTimeFromUnix( time() );
  28     $self->unixFileAttributes( $self->DEFAULT_FILE_PERMISSIONS );
  29     return $self;
  30 }
  31
  32 sub _become {
  33     my $self     = shift;
  34     my $newClass = shift;
  35     return $self if ref($self) eq $newClass;
  36     delete( $self->{'contents'} );
  37     return $self->SUPER::_become($newClass);
  38 }
  39
  40 # Get or set my contents. Note that we do not call the superclass
  41 # version of this, because it calls us.
  42 sub contents {
  43     my $self   = shift;
  44     my $string = shift;
  45     if ( defined($string) ) {
  46         $self->{'contents'} =
  47           pack( 'C0a*', ( ref($string) eq 'SCALAR' ) ? $$string : $string );
  48         $self->{'uncompressedSize'} = $self->{'compressedSize'} =
  49           length( $self->{'contents'} );
  50         $self->{'compressionMethod'} = COMPRESSION_STORED;
  51     }
  52     return $self->{'contents'};
  53 }
  54
  55 # Return bytes read. Note that first parameter is a ref to a buffer.
  56 # my $data;
  57 # my ( $bytesRead, $status) = $self->readRawChunk( \$data, $chunkSize );
  58 sub _readRawChunk {
  59     my ( $self, $dataRef, $chunkSize ) = @_;
  60     $$dataRef = substr( $self->contents(), $self->_readOffset(), $chunkSize );
  61     return ( length($$dataRef), AZ_OK );
  62 }
  63
  64 1;