1 package CompressPlugin::Identity ;
6 use Compress::Zlib::Common qw(:Status);
7 use Compress::Zlib () ;
10 $VERSION = '2.000_05';
17 my $strategy = shift ;
24 'wantCRC32' => $crc32,
25 'CRC32' => Compress::Zlib::crc32(''),
26 'wantADLER32'=> $adler32,
27 'ADLER32' => Compress::Zlib::adler32(''),
35 if (defined ${ $_[0] } && length ${ $_[0] }) {
36 $self->{CompSize} += length ${ $_[0] } ;
37 $self->{UnCompSize} = $self->{CompSize} ;
39 $self->{CRC32} = Compress::Zlib::crc32($_[0], $self->{CRC32})
40 if $self->{wantCRC32};
42 $self->{ADLER32} = Compress::Zlib::adler32($_[0], $self->{ADLER32})
43 if $self->{wantADLER32};
45 ${ $_[1] } .= ${ $_[0] };
82 return $self->{UnCompSize} ;
88 return $self->{UnCompSize} ;
94 return $self->{UnCompSize} ;
100 return $self->{UnCompSize} ;
106 return $self->{CRC32};
112 return $self->{ADLER32};