File Coverage

lib/Archive/Lha/Stream.pm

Criterion	Covered	Total	%
statement	9	18	50.0
branch	0	4	0.0
condition			n/a
subroutine	3	4	75.0
pod	1	1	100.0
total	13	27	48.1

package Archive::Lha::Stream;

use strict;
use warnings;
use Carp;

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

  my @available = qw( file string hex );
  foreach my $name ( @available ) {
    if ( $options{$name} ) {
      my $package = 'Archive::Lha::Stream::'.ucfirst($name);
      eval "require $package;";
      croak "Can't load stream: $@" if $@;
      return $package->new( %options );
    }
  }
  croak "Can't load stream: available streams are " .
         (join ', ', @available);
}

1;

__END__