1 package IO::Compress::Adapter::Identity ;
7 use IO::Compress::Base::Common qw(:Status);
8 use Compress::Raw::Zlib () ;
11 $VERSION = '2.000_10';
18 my $strategy = shift ;
25 'wantCRC32' => $crc32,
26 'CRC32' => Compress::Raw::Zlib::crc32(''),
27 'wantADLER32'=> $adler32,
28 'ADLER32' => Compress::Raw::Zlib::adler32(''),
36 if (defined ${ $_[0] } && length ${ $_[0] }) {
37 $self->{CompSize} += length ${ $_[0] } ;
38 $self->{UnCompSize} = $self->{CompSize} ;
40 $self->{CRC32} = Compress::Raw::Zlib::crc32($_[0], $self->{CRC32})
41 if $self->{wantCRC32};
43 $self->{ADLER32} = Compress::Raw::Zlib::adler32($_[0], $self->{ADLER32})
44 if $self->{wantADLER32};
46 ${ $_[1] } .= ${ $_[0] };
70 $self->{CompSize} = 0;
71 $self->{UnCompSize} = 0;
72 $self->{CRC32} = Compress::Raw::Zlib::crc32('');
73 $self->{ADLER32} = Compress::Raw::Zlib::adler32('');
88 # return $self->{UnCompSize} ;
94 # return $self->{UnCompSize} ;
100 return $self->{UnCompSize} ;
103 sub uncompressedBytes
106 return $self->{UnCompSize} ;
112 return $self->{CRC32};
118 return $self->{ADLER32};