File Coverage

lib/Archive/Lha/Decode/LH0.pm

Criterion	Covered	Total	%
statement	34	34	100.0
branch	1	2	50.0
condition			n/a
subroutine	8	8	100.0
pod	2	2	100.0
total	45	46	97.8

package Archive::Lha::Decode::LH0;

use strict;
use warnings;
use Carp;
use bytes;
use Archive::Lha::Constants;
use Archive::Lha::CRC;

sub new {
  my ($class, %options) = @_;

  my $header = $options{header};

  my $self  = bless {
    read  => $options{read},
    write => $options{write},
    size  => $header->{encoded_size},
    crc16 => $header->{crc16},
  }, $class;

  $self;
}

sub decode {
  my $self = shift;

  my $crc   = 0;
  my $total = 0;
  my $size  = $self->{size};
  while ( $total < $size ) {
    my $left = $size - $total;
    my $length = ( $left > 4096 ) ? 4096 : $left;
    my $str = $self->{read}->( $length );
    $self->{write}->( $str );
    $crc = Archive::Lha::CRC::update( $crc, $str, length($str) );
    $total += $length;
  }
  return $crc;
}

1;

__END__