File Coverage

blib/lib/BERT/Atom.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 BERT::Atom;
2 6     6   30 use strict;
  6         11  
  6         172  
3 6     6   29 use warnings;
  6         9  
  6         253  
4              
5 6         99 use overload '""' => \&value,
6 6     6   13756 fallback => 1;
  6         7414  
7              
8             sub new {
9 57     57 1 3477 my ($class, $value) = @_;
10 57         307 return bless \$value, $class;
11             }
12              
13             sub value {
14 122     122 1 9235 return ${ $_[0] };
  122         1017  
15             }
16              
17             1;
18              
19             __END__