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 1     1   276839 use 5.014;
  1         11  
5 1     1   5 use exact;
  1         1  
  1         11  
6 1     1   712 use Import::Into;
  1         2  
  1         19  
7 1     1   500 use Class::Method::Modifiers ();
  1         1623  
  1         23  
8 1     1   634 use Function::Parameters ();
  1         4273  
  1         154  
9              
10             our $VERSION = '1.01'; # VERSION
11              
12             sub import {
13 1     1   24 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     389 Class::Method::Modifiers->import::into( $caller // caller() ) if ( $params and $params =~ /^cmm/i );
      33        
16             }
17              
18             1;
19              
20             __END__