File Coverage

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


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