File Coverage

blib/lib/methods.pm

Criterion	Covered	Total	%
statement	25	25	100.0
branch	4	4	100.0
condition	3	3	100.0
subroutine	6	6	100.0
pod			n/a
total	38	38	100.0

package methods;
use 5.008;
our $VERSION = '0.12';

use true;
use namespace::sweep;
use Method::Signatures::Simple;
our @ISA = 'Method::Signatures::Simple';

method import {
    my $want_invoker;
    if (@_ and $_[0] eq '-invoker') {
        $want_invoker = shift;
    }

    true->import;
    namespace::sweep->import( -cleanee => scalar(caller) );
    Method::Signatures::Simple->import( @_, into => scalar(caller) );

    if ($want_invoker) {
        require invoker;
        unshift @_, 'invoker';
        goto &invoker::import;
    }
}

__END__