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