File Coverage

blib/lib/Data/Encoder.pm

Criterion	Covered	Total	%
statement	20	20	100.0
branch	3	6	50.0
condition	1	3	33.3
subroutine	5	5	100.0
pod	1	1	100.0
total	30	35	85.7

package Data::Encoder;

use strict;
use warnings;
use 5.008_001;
our $VERSION = '0.04_01';

sub load {
    my ($class, $klass, $args) = @_;
    $klass = _load_class($klass, __PACKAGE__);
    return $klass->new($args);
}

# code taken from Tiffany
my %loaded;
sub _load_class {
    my ( $class, $prefix ) = @_;

    if ($prefix) {
        unless ( $class =~ s/^\+// || $class =~ /^$prefix/ ) {
            $class = "$prefix\::$class";
        }
    }

    return $class if $loaded{$class}++;

    my $file = $class;
    $file =~ s!::!/!g;
    require "$file.pm";    ## no critic

    return $class;
}

1;
__END__