[ Index ] |
PHP Cross Reference of Unnamed Project |
[Summary view] [Print] [Text view]
1 package IO::Compress::Adapter::Identity ; 2 3 use strict; 4 use warnings; 5 use bytes; 6 7 use IO::Compress::Base::Common 2.008 qw(:Status); 8 our ($VERSION); 9 10 $VERSION = '2.008'; 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
title
Description
Body
title
Description
Body
title
Description
Body
title
Body
Generated: Tue Mar 17 22:47:18 2015 | Cross-referenced by PHPXref 0.7.1 |