File Coverage

blib/lib/Data/Focus/Applicative/Const/List.pm
Criterion Covered Total %
statement 16 16 100.0
branch n/a
condition n/a
subroutine 7 7 100.0
pod 3 3 100.0
total 26 26 100.0


line stmt bran cond sub pod time code
1             package Data::Focus::Applicative::Const::List;
2 17     17   18750 use strict;
  17         24  
  17         666  
3 17     17   98 use warnings;
  17         20  
  17         524  
4 17     17   463 use parent qw(Data::Focus::Applicative::Const);
  17         257  
  17         89  
5              
6 26     26 1 84 sub mempty { [] }
7             sub mconcat {
8 618     618 1 1926 my ($class, @data) = @_;
9 618         722 return [map { @$_ } @data];
  1134         2371  
10             }
11              
12             sub create_part_mapper {
13 563     563 1 1422 my ($class) = @_;
14 563     1067   3448 return sub { $class->new([shift]) };
  1067         4234  
15             }
16              
17              
18             1;
19              
20             __END__