File Coverage

lib/Archive/Lha/Header.pm

Criterion	Covered	Total	%
statement	24	24	100.0
branch	3	6	50.0
condition			n/a
subroutine	7	7	100.0
pod	1	1	100.0
total	35	38	92.1

package Archive::Lha::Header;

use strict;
use warnings;
use Carp;
use Archive::Lha::Header::Level0;
use Archive::Lha::Header::Level1;
use Archive::Lha::Header::Level2;

my @_parsers = (
  'Archive::Lha::Header::Level0',
  'Archive::Lha::Header::Level1',
  'Archive::Lha::Header::Level2',
);

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

  croak "Stream is missing"       unless defined $options{stream};
  croak "Header level is missing" unless defined $options{level};

  my $level = $options{level};
  croak "Illegal header level: $level"
    unless $level =~ /^[0-2]$/;

  $_parsers[$level]->new( $options{stream} );
}

1;

__END__