File Coverage

blib/lib/OOP/Accessor.pm
Criterion Covered Total %
statement 6 8 75.0
branch n/a
condition n/a
subroutine 2 3 66.6
pod 0 1 0.0
total 8 12 66.6


line stmt bran cond sub pod time code
1             package OOP::Accessor;
2              
3 1     1   6 use Carp;
  1         3  
  1         392  
4 1     1   8 use strict;
  1         1  
  1         112  
5              
6             sub getProperty {
7              
8 0     0 0   my($self, $property) = @_;
9              
10 0           return $property;
11              
12             }
13              
14             1;