File Coverage

blib/lib/SLOOPS/Tut/WDW.pm
Criterion Covered Total %
statement 3 6 50.0
branch n/a
condition n/a
subroutine 1 2 50.0
pod 0 1 0.0
total 4 9 44.4


line stmt bran cond sub pod time code
1             package SLOOPS::Tut::WDW ;
2              
3 1     1   975 use base qw/Class::AutoAccess/ ;
  1         3  
  1         150  
4            
5             our $PERSIST = {
6             'references' =>
7             {
8             'who' => 'SLOOPS::Tut::Person' ,
9             'what' => 'SLOOPS::Tut::Vehicule' # Polymorphism support !!
10             }
11             };
12              
13              
14             sub new{
15 0     0 0   my ($class) = @_ ;
16            
17 0           my $self = {
18             'who' => undef,
19             'what' => undef
20             };
21 0           return bless $self, $class ;
22             }
23             1;