File Coverage

blib/lib/exact/fun.pm

Criterion	Covered	Total	%
statement	14	16	87.5
branch	2	4	50.0
condition	2	9	22.2
subroutine	5	5	100.0
pod			n/a
total	23	34	67.6

package exact::fun;
# ABSTRACT: Functions and methods with parameter lists for exact

use 5.014;
use exact;
use Function::Parameters     ();
use Class::Method::Modifiers ();

our $VERSION = '1.00'; # VERSION

sub import {
    my ( $self, $caller, $input ) = @_;

    Function::Parameters->import( ( $input and $input =~ /^mod/i ) ? ( qw( :std :modifiers ) ) : ':std' );

    if ( $input and $input =~ /^cmm/i ) {
        $caller //= caller();
        eval qq{
            package $caller {
                use Class::Method::Modifiers;
            };
        };
    }
}

1;

__END__