File Coverage

blib/lib/BERT/Tuple.pm
Criterion Covered Total %
statement 10 10 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod 2 2 100.0
total 16 16 100.0


line stmt bran cond sub pod time code
1             package BERT::Tuple;
2 6     6   32 use strict;
  6         12  
  6         208  
3 6     6   31 use warnings;
  6         11  
  6         524  
4              
5             sub new {
6 27     27 1 38 my ($class, $arrayref) = @_;
7 27         97 return bless \$arrayref, $class;
8             }
9              
10             sub value {
11 27     27 1 37 return ${ $_[0] };
  27         116  
12             }
13              
14             1;
15              
16             __END__