File Coverage

blib/lib/Exodist/Util/Loader.pm

Criterion	Covered	Total	%
statement	22	22	100.0
branch	5	8	62.5
condition			n/a
subroutine	5	5	100.0
pod	1	1	100.0
total	33	36	91.6

package Exodist::Util::Loader;
use strict;
use warnings;

use Exporter::Declare;
use Carp qw/croak/;

default_exports qw/ load_package /;

sub load_package {
    my ($name, $namespace) = @_;

    my @options = ( $name );
    push @options => "$namespace\::$name" if $namespace;

    @options = reverse @options
        if $name =~ m/::/;

    for my $pkg ( @options ) {
        return $pkg if eval "require $pkg; 1";
        my $file = $pkg;
        $file =~ s|::|/|g;
        croak( $@ ) unless $@ =~ m{Can't locate /?$file\.pm in \@INC};
    }

    croak( "Could not find $name as " . join( ' or ', @options ));
}

1;

__END__