File Coverage

lib/Archive/Lha/Stream/Hex.pm

Criterion	Covered	Total	%
statement	28	28	100.0
branch	3	4	75.0
condition			n/a
subroutine	6	6	100.0
pod	2	2	100.0
total	39	40	97.5

package Archive::Lha::Stream::Hex;

use strict;
use warnings;
use Carp;
use base qw( Archive::Lha::Stream::Base );

sub open {
  my ($self, %options) = @_;

  croak "Array reference of hex strings is missing" unless ref $options{hex} eq 'ARRAY';

  my @array = map { pack 'H2', $_ } @{ $options{hex} };

  $self->{array}  = \@array;
  $self->{length} = scalar @array;
  $self->{pos}    = 0;
}

sub read {
  my ($self, $length) = @_;

  my $from = $self->{pos};
  my $to   = $self->{pos} + $length - 1;
     $to   = $self->{length} - 1 if $to >= $self->{length};
  my $str = join '', @{ $self->{array} }[$from .. $to];
  $self->{pos} = $to + 1;
  return $str;
}

1;

__END__