Commit | Line | Data |
1a6a8453 |
1 | package CompressPlugin::Identity ; |
2 | |
3 | use strict; |
4 | use warnings; |
5 | |
6 | use Compress::Zlib::Common qw(:Status); |
7 | use Compress::Zlib () ; |
8 | our ($VERSION); |
9 | |
10 | $VERSION = '2.000_05'; |
11 | |
12 | sub mkCompObject |
13 | { |
14 | my $crc32 = shift ; |
15 | my $adler32 = shift ; |
16 | my $level = shift ; |
17 | my $strategy = shift ; |
18 | |
19 | return bless { |
20 | 'CompSize' => 0, |
21 | 'UnCompSize' => 0, |
22 | 'Error' => '', |
23 | 'ErrorNo' => 0, |
24 | 'wantCRC32' => $crc32, |
25 | 'CRC32' => Compress::Zlib::crc32(''), |
26 | 'wantADLER32'=> $adler32, |
27 | 'ADLER32' => Compress::Zlib::adler32(''), |
28 | } ; |
29 | } |
30 | |
31 | sub compr |
32 | { |
33 | my $self = shift ; |
34 | |
35 | if (defined ${ $_[0] } && length ${ $_[0] }) { |
36 | $self->{CompSize} += length ${ $_[0] } ; |
37 | $self->{UnCompSize} = $self->{CompSize} ; |
38 | |
39 | $self->{CRC32} = Compress::Zlib::crc32($_[0], $self->{CRC32}) |
40 | if $self->{wantCRC32}; |
41 | |
42 | $self->{ADLER32} = Compress::Zlib::adler32($_[0], $self->{ADLER32}) |
43 | if $self->{wantADLER32}; |
44 | |
45 | ${ $_[1] } .= ${ $_[0] }; |
46 | } |
47 | |
48 | return STATUS_OK ; |
49 | } |
50 | |
51 | sub flush |
52 | { |
53 | my $self = shift ; |
54 | |
55 | return STATUS_OK; |
56 | } |
57 | |
58 | sub close |
59 | { |
60 | my $self = shift ; |
61 | |
62 | return STATUS_OK; |
63 | } |
64 | |
65 | sub reset |
66 | { |
67 | my $self = shift ; |
68 | |
69 | return STATUS_OK; |
70 | } |
71 | |
72 | sub deflateParams |
73 | { |
74 | my $self = shift ; |
75 | |
76 | return STATUS_OK; |
77 | } |
78 | |
79 | sub total_out |
80 | { |
81 | my $self = shift ; |
82 | return $self->{UnCompSize} ; |
83 | } |
84 | |
85 | sub total_in |
86 | { |
87 | my $self = shift ; |
88 | return $self->{UnCompSize} ; |
89 | } |
90 | |
91 | sub compressedBytes |
92 | { |
93 | my $self = shift ; |
94 | return $self->{UnCompSize} ; |
95 | } |
96 | |
97 | sub uncompressedBytes |
98 | { |
99 | my $self = shift ; |
100 | return $self->{UnCompSize} ; |
101 | } |
102 | |
103 | sub crc32 |
104 | { |
105 | my $self = shift ; |
106 | return $self->{CRC32}; |
107 | } |
108 | |
109 | sub adler32 |
110 | { |
111 | my $self = shift ; |
112 | return $self->{ADLER32}; |
113 | } |
114 | |
115 | |
116 | |
117 | 1; |
118 | |
119 | |
120 | __END__ |
121 | |