File Coverage

blib/lib/Scalar/Util/Instance.pm

Criterion	Covered	Total	%
statement	23	23	100.0
branch	4	4	100.0
condition			n/a
subroutine	5	5	100.0
pod			n/a
total	32	32	100.0

package Scalar::Util::Instance;

use 5.008_001;
use strict;
use warnings;

our $VERSION = '0.001';

use XSLoader;
XSLoader::load(__PACKAGE__, $VERSION);

sub import {
    my $class  = shift;

    my $into = caller;
    foreach my $config(@_){
        my $as = $config->{as};
        if(!defined $as){
            require Carp;
            Carp::croak("You must define a predicate name by 'as'");
        }
        if($as !~ /::/){
            $as = $into . '::' . $as;
        }
        $class->generate_for($config->{for}, $as);
    }
    return;
}

1;
__END__