File Coverage

lib/Archive/Lha/Stream/String.pm

Criterion	Covered	Total	%
statement	23	24	95.8
branch	1	2	50.0
condition			n/a
subroutine	7	8	87.5
pod	3	3	100.0
total	34	37	91.8

package Archive::Lha::Stream::String;

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

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

  $self->{string} = $options{string} or croak "String is missing";
  $self->{length} = length( $options{string} );
  $self->{pos} = 0;
}

sub close { return }

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

  my $str = substr( $self->{string}, $self->{pos}, $length );
  $self->{pos} += $length;
  return $str;
}

1;

__END__