File Coverage

blib/lib/BERT/Dict.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::Dict;
2 6     6   34 use strict;
  6         9  
  6         180  
3 6     6   31 use warnings;
  6         25  
  6         564  
4              
5             sub new {
6 7     7 1 747 my ($class, $arrayref) = @_;
7 7         42 return bless \$arrayref, $class;
8             }
9              
10             sub value {
11 4     4 1 3237 return ${ $_[0] };
  4         99  
12             }
13              
14             1;
15              
16             __END__