Commit | Line | Data |
25f0751f |
1 | package IO::Compress::Adapter::Identity ; |
2 | |
3 | use strict; |
4 | use warnings; |
5 | use bytes; |
6 | |
7 | use IO::Compress::Base::Common qw(:Status); |
25f0751f |
8 | our ($VERSION); |
9 | |
c70c1701 |
10 | $VERSION = '2.000_12'; |
25f0751f |
11 | |
12 | sub mkCompObject |
13 | { |
25f0751f |
14 | my $level = shift ; |
15 | my $strategy = shift ; |
16 | |
17 | return bless { |
18 | 'CompSize' => 0, |
19 | 'UnCompSize' => 0, |
20 | 'Error' => '', |
21 | 'ErrorNo' => 0, |
25f0751f |
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 | |
25f0751f |
33 | ${ $_[1] } .= ${ $_[0] }; |
34 | } |
35 | |
36 | return STATUS_OK ; |
37 | } |
38 | |
39 | sub flush |
40 | { |
41 | my $self = shift ; |
42 | |
43 | return STATUS_OK; |
44 | } |
45 | |
46 | sub close |
47 | { |
48 | my $self = shift ; |
49 | |
50 | return STATUS_OK; |
51 | } |
52 | |
53 | sub reset |
54 | { |
55 | my $self = shift ; |
56 | |
57 | $self->{CompSize} = 0; |
58 | $self->{UnCompSize} = 0; |
25f0751f |
59 | |
60 | return STATUS_OK; |
61 | } |
62 | |
63 | sub deflateParams |
64 | { |
65 | my $self = shift ; |
66 | |
67 | return STATUS_OK; |
68 | } |
69 | |
70 | #sub total_out |
71 | #{ |
72 | # my $self = shift ; |
73 | # return $self->{UnCompSize} ; |
74 | #} |
75 | # |
76 | #sub total_in |
77 | #{ |
78 | # my $self = shift ; |
79 | # return $self->{UnCompSize} ; |
80 | #} |
81 | |
82 | sub compressedBytes |
83 | { |
84 | my $self = shift ; |
85 | return $self->{UnCompSize} ; |
86 | } |
87 | |
88 | sub uncompressedBytes |
89 | { |
90 | my $self = shift ; |
91 | return $self->{UnCompSize} ; |
92 | } |
93 | |
25f0751f |
94 | 1; |
95 | |
96 | |
97 | __END__ |
98 | |