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   461648 use 5.014;
  2         8  
5 2     2   870 use exact;
  2         55232  
  2         15  
6 2     2   4742 use Import::Into;
  2         5  
  2         79  
7 2     2   1161 use Class::Method::Modifiers ();
  2         4602  
  2         114  
8 2     2   1685 use Function::Parameters ();
  2         12027  
  2         568  
9              
10             our $VERSION = '1.02'; # VERSION
11              
12             sub import {
13 1     1   19 my ( $self, $params, $caller ) = @_;
14 1 50 33     8 Function::Parameters->import( ( $params and $params =~ /^mod/i ) ? ( qw( :std :modifiers ) ) : ':std' );
15 1 50 0     522 Class::Method::Modifiers->import::into( $caller // caller() ) if ( $params and $params =~ /^cmm/i );
      33        
16             }
17              
18             1;
19              
20             __END__