File Coverage

blib/lib/Data/Focus/Applicative/Const.pm
Criterion Covered Total %
statement 13 13 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod 2 2 100.0
total 20 20 100.0


line stmt bran cond sub pod time code
1             package Data::Focus::Applicative::Const;
2 20     20   8263 use strict;
  20         35  
  20         619  
3 20     20   78 use warnings;
  20         22  
  20         436  
4 20     20   70 use parent qw(Data::Focus::Applicative);
  20         19  
  20         118  
5              
6             sub new {
7 1699     1699 1 6697 my ($class, $datum) = @_;
8 1699         7286 return bless \$datum, $class;
9             }
10              
11             sub get_const {
12 2117     2117 1 1748 return ${$_[0]};
  2117         5780  
13             }
14              
15             1;
16             __END__