File Coverage

blib/lib/Class/Property/RO/CustomGet.pm
Criterion Covered Total %
statement 11 15 73.3
branch n/a
condition n/a
subroutine 4 5 80.0
pod n/a
total 15 20 75.0


line stmt bran cond sub pod time code
1             package Class::Property::RO::CustomGet;
2 1     1   6 use strict; use warnings FATAL => 'all';
  1     1   1  
  1         49  
  1         5  
  1         1  
  1         32  
3 1     1   3 use parent 'Class::Property::RO';
  1         1  
  1         4  
4            
5             sub TIESCALAR
6             {
7 1     1   2 my( $class, $field, $getter ) = @_;
8 1         5 return bless \{
9             'field' => $field
10             , 'getter' => $getter
11             }, $class;
12             }
13            
14             sub FETCH
15             {
16 0     0     my $self = shift;
17 0           return ${$self}->{'getter'}->(${$self}->{'object'});
  0            
  0            
18             }
19            
20             1;