File Coverage

blib/lib/fp/lambda/utils.pm
Criterion Covered Total %
statement 11 11 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod 1 1 100.0
total 17 17 100.0


line stmt bran cond sub pod time code
1              
2             package fp::lambda::utils;
3              
4 3     3   5112 use strict;
  3         6  
  3         125  
5 3     3   18 use warnings;
  3         35  
  3         195  
6              
7             our $VERSION = '0.01';
8              
9             BEGIN {
10 3     3   18 require fp;
11 3         218 *import = \&fp::import;
12             }
13              
14             sub church_numeral_to_int {
15 49     49 1 71 my $numeral = shift;
16 49     399   212 $numeral->(sub { 1 + $_[0] })->(0)
  399         873  
17             }
18              
19             1;
20              
21             __END__