File Coverage

blib/lib/Tiffany.pm

Criterion	Covered	Total	%
statement	21	21	100.0
branch	3	6	50.0
condition	1	3	33.3
subroutine	5	5	100.0
pod	1	1	100.0
total	31	36	86.1

package Tiffany;
use strict;
use warnings;
use 5.00800;
our $VERSION = '1.01';

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

# code taken from Plack::Util::load_class.
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__