File Coverage

blib/lib/Package/Pkg/Loader.pm

Criterion	Covered	Total	%
statement	24	29	82.7
branch	6	8	75.0
condition			n/a
subroutine	6	7	85.7
pod	0	2	0.0
total	36	46	78.2

package Package::Pkg::Loader;

use strict;
use warnings;

use Mouse;

use Package::Pkg;

has namespacelist => qw/ is ro required 1 isa ArrayRef /;
has alias => qw/ is ro lazy_build 1 isa HashRef /;
sub _build_alias { {} }

sub load {
    my $self = shift;
    my $moniker = @_ > 1 ? Package::Pkg->name( @_ ) : $_[0];

    my $package = $self->softload( $moniker );
    unless ( $package ) {
        my @namespacelist = @{ $self->namespacelist };
        confess "Unable to load package ($moniker) under any namespace (@namespacelist)";
    }

    return $package;
}

sub softload {
    my $self = shift;
    my $moniker = @_ > 1 ? Package::Pkg->name( @_ ) : $_[0];

    my @namespacelist = @{ $self->namespacelist };
    for my $namespace (@namespacelist) {
        if ( my $package = Package::Pkg->softload( $namespace, $moniker ) ) {
            return $package;
        }
    }

    return;
}


1;