1 package UncompressPlugin::Identity;
6 use Compress::Zlib::Common qw(:Status);
10 $VERSION = '2.000_05';
12 use Compress::Zlib ();
16 my $crc32 = 1; #shift ;
19 bless { 'CompSize' => 0,
21 'wantCRC32' => $crc32,
22 'CRC32' => Compress::Zlib::crc32(''),
23 'wantADLER32'=> $adler32,
24 'ADLER32' => Compress::Zlib::adler32(''),
33 if (defined ${ $_[0] } && length ${ $_[0] }) {
34 $self->{CompSize} += length ${ $_[0] } ;
35 $self->{UnCompSize} = $self->{CompSize} ;
37 $self->{CRC32} = Compress::Zlib::crc32($_[0], $self->{CRC32})
38 if $self->{wantCRC32};
40 $self->{ADLER32} = Compress::Zlib::adler32($_[0], $self->{ADLER32})
41 if $self->{wantADLER32};
43 ${ $_[1] } .= ${ $_[0] };
46 return STATUS_ENDSTREAM if $eof;
59 return $self->{UnCompSize} ;
65 return $self->{UnCompSize} ;
71 return $self->{UnCompSize} ;
82 return $self->{CRC32};
88 return $self->{ADLER32};