1 package IO::Compress::Adapter::Identity ;
7 use IO::Compress::Base::Common 2.021 qw(:Status);
15 my $strategy = shift ;
29 if (defined ${ $_[0] } && length ${ $_[0] }) {
30 $self->{CompSize} += length ${ $_[0] } ;
31 $self->{UnCompSize} = $self->{CompSize} ;
34 { ${ $_[1] } .= ${ $_[0] } }
36 { $_[1] .= ${ $_[0] } }
60 $self->{CompSize} = 0;
61 $self->{UnCompSize} = 0;
76 # return $self->{UnCompSize} ;
82 # return $self->{UnCompSize} ;
88 return $self->{UnCompSize} ;
94 return $self->{UnCompSize} ;