File Coverage

blib/lib/Plack/I18N/Util.pm

Criterion	Covered	Total	%
statement	28	28	100.0
branch	6	8	75.0
condition	1	3	33.3
subroutine	6	6	100.0
pod	1	1	100.0
total	42	46	91.3

package Plack::I18N::Util;

use strict;
use warnings;

use parent 'Exporter';

our @EXPORT_OK = qw(try_load_class);

use Plack::Util ();

sub try_load_class {
    my ($class) = @_;

    my $path = (join '/', split /::/, $class) . '.pm';

    return $class if exists $INC{$path} && defined $INC{$path};

    {
        no strict 'refs';
        for (keys %{"$class\::"}) {
            return $class if defined &{"$class\::$_"};
        }
    }

    eval {
        Plack::Util::load_class($class);
    } || do {
        my $e = $@;

        die $e unless $@ =~ m/Can't locate $path in \@INC/;

        return;
    };
}

1;
__END__