File Coverage

blib/lib/DCI.pm

Criterion	Covered	Total	%
statement	21	22	95.4
branch	3	8	37.5
condition	1	3	33.3
subroutine	4	4	100.0
pod			n/a
total	29	37	78.3

package DCI;
use strict;
use warnings;

our $VERSION = "0.013";
use Carp qw/croak/;

sub import {
    my $class = shift;
    my ( $type, @args ) = @_;
    my $caller = caller;

    my $meta;

    for ( "DCI::Meta::$type", $type ) {
        my $good = eval "require $_; 1";
        my $error = $@;

        $meta = $_ if $good;
        last if $meta;

        # Rethrow error that is not can't locate
        die "Error loading $_: $error" if $error !~ m/Can't locate/;
    }

    croak "'Neither DCI::Meta::$type' nor '$type' appear to be 'DCI::Meta' packages"
        unless $meta
            && $meta->isa( 'DCI::Meta' );

    $meta->new( $caller );
    $meta->export_to( $caller => @args );
}

1;

__END__