File Coverage

blib/lib/exact/fun.pm
Criterion Covered Total %
statement 17 17 100.0
branch 2 4 50.0
condition 2 9 22.2
subroutine 6 6 100.0
pod n/a
total 27 36 75.0


line stmt bran cond sub pod time code
1             package exact::fun;
2             # ABSTRACT: Functions and methods with parameter lists for exact
3              
4 2     2   436189 use 5.014;
  2         10  
5 2     2   714 use exact;
  2         59844  
  2         19  
6 2     2   5046 use Import::Into;
  2         9  
  2         69  
7 2     2   1305 use Class::Method::Modifiers ();
  2         6288  
  2         124  
8 2     2   1737 use Function::Parameters ();
  2         17660  
  2         725  
9              
10             our $VERSION = '1.03'; # VERSION
11              
12             sub import {
13 1     1   28 my ( $self, $params, $caller ) = @_;
14 1 50 33     9 Function::Parameters->import( ( $params and $params =~ /^mod/i ) ? ( qw( :std :modifiers ) ) : ':std' );
15 1 50 0     661 Class::Method::Modifiers->import::into( $caller // caller() ) if ( $params and $params =~ /^cmm/i );
      33        
16             }
17              
18             1;
19              
20             __END__