File Coverage

blib/lib/MouseX/Foreign.pm

Criterion	Covered	Total	%
statement	18	19	94.7
branch	3	4	75.0
condition			n/a
subroutine	5	5	100.0
pod			n/a
total	26	28	92.8

package MouseX::Foreign;
use 5.008_001;
use Mouse::Util; # turns on strict and warnings

our $VERSION = '1.000';

use Mouse::Util::MetaRole;
use Carp ();

sub import {
    shift;

    my $caller = caller;
    if(!$caller->can('meta')){
        Carp::croak(
              "$caller does not have the meta method"
            . " (did you use Mouse for $caller?)");
    }

    Mouse::Util::MetaRole::apply_metaroles(
        for => $caller,
        class_metaroles => {
            class => ['MouseX::Foreign::Meta::Role::Class'],
        },
    );

    $caller->meta->superclasses(@_) if @_;
    return;
}

1;
__END__