File Coverage

blib/lib/Module/Collect/Package.pm

Criterion	Covered	Total	%
statement	19	19	100.0
branch	6	6	100.0
condition			n/a
subroutine	7	7	100.0
pod	0	4	0.0
total	32	36	88.8

package Module::Collect::Package;
use strict;
use warnings;
use Carp;

sub new {
    my ($class, @args) = @_;
    if (ref $class) {
        return $class->{package}->new(@args) if $class->{package}->can('new');
        croak qq{Can't locate object method "new" via package "$class->{package}"};
    } else {
        return bless { @args }, $class;
    }
}

sub require {
    my ($self) = shift;
    eval { require $self->{path} } or croak $@;
}

sub package { shift->{package} }
sub path { shift->{path} }

1;

__END__