ext/Compress/IO/Zlib/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 qw(:Status);
   8 our ($VERSION);
   9
  10 $VERSION = '2.000_12';
  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         ${ $_[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;
  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
  94 1;
  95
  96
  97 __END__
  98