1package IO::Compress::Adapter::Identity ; 2 3use strict; 4use warnings; 5use bytes; 6 7use IO::Compress::Base::Common 2.204 qw(:Status); 8our ($VERSION); 9 10$VERSION = '2.204'; 11 12sub mkCompObject 13{ 14 my $level = shift ; 15 my $strategy = shift ; 16 17 return bless { 18 'CompSize' => 0, 19 'UnCompSize' => 0, 20 'Error' => '', 21 'ErrorNo' => 0, 22 } ; 23} 24 25sub compr 26{ 27 my $self = shift ; 28 29 if (defined ${ $_[0] } && length ${ $_[0] }) { 30 $self->{CompSize} += length ${ $_[0] } ; 31 $self->{UnCompSize} = $self->{CompSize} ; 32 33 if ( ref $_[1] ) 34 { ${ $_[1] } .= ${ $_[0] } } 35 else 36 { $_[1] .= ${ $_[0] } } 37 } 38 39 return STATUS_OK ; 40} 41 42sub flush 43{ 44 my $self = shift ; 45 46 return STATUS_OK; 47} 48 49sub close 50{ 51 my $self = shift ; 52 53 return STATUS_OK; 54} 55 56sub reset 57{ 58 my $self = shift ; 59 60 $self->{CompSize} = 0; 61 $self->{UnCompSize} = 0; 62 63 return STATUS_OK; 64} 65 66sub deflateParams 67{ 68 my $self = shift ; 69 70 return STATUS_OK; 71} 72 73#sub total_out 74#{ 75# my $self = shift ; 76# return $self->{UnCompSize} ; 77#} 78# 79#sub total_in 80#{ 81# my $self = shift ; 82# return $self->{UnCompSize} ; 83#} 84 85sub compressedBytes 86{ 87 my $self = shift ; 88 return $self->{UnCompSize} ; 89} 90 91sub uncompressedBytes 92{ 93 my $self = shift ; 94 return $self->{UnCompSize} ; 95} 96 971; 98 99 100__END__ 101