b5ef63b59c3b8496077525f7b324649def2eb018
[perl.git] / cpan / IO-Compress / lib / IO / Compress / Adapter / Identity.pm
1 package IO::Compress::Adapter::Identity ;
2
3 use strict;
4 use warnings;
5 use bytes;
6
7 use IO::Compress::Base::Common  2.059 qw(:Status);
8 our ($VERSION);
9
10 $VERSION = '2.059';
11
12 sub 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
25 sub 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
42 sub flush
43 {
44     my $self = shift ;
45
46     return STATUS_OK;    
47 }
48
49 sub close
50 {
51     my $self = shift ;
52
53     return STATUS_OK;    
54 }
55
56 sub reset
57 {
58     my $self = shift ;
59
60     $self->{CompSize}   = 0;
61     $self->{UnCompSize} = 0;
62
63     return STATUS_OK;    
64 }
65
66 sub 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
85 sub compressedBytes
86 {
87     my $self = shift ;
88     return $self->{UnCompSize} ;
89 }
90
91 sub uncompressedBytes
92 {
93     my $self = shift ;
94     return $self->{UnCompSize} ;
95 }
96
97 1;
98
99
100 __END__
101