File Coverage

blib/lib/Class/Property/WO.pm
Criterion Covered Total %
statement 15 15 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod n/a
total 20 20 100.0


line stmt bran cond sub pod time code
1             package Class::Property::WO;
2 1     1   518 use strict; use warnings FATAL => 'all';
  1     1   3  
  1         44  
  1         7  
  1         2  
  1         47  
3 1     1   6 use parent 'Class::Property::RW';
  1         2  
  1         6  
4 1     1   71 use Carp;
  1         1  
  1         166  
5            
6             sub FETCH
7             {
8 3     3   7 my( $self ) = @_;
9 3         414 croak sprintf(
10             'Unable to read write-only property %s'
11 3         7 , ${$self}->{'field'}
12             );
13             }
14            
15             1;