File Coverage

blib/lib/SLOOPS/Tut/Plane.pm
Criterion Covered Total %
statement 3 8 37.5
branch n/a
condition n/a
subroutine 1 2 50.0
pod 0 1 0.0
total 4 11 36.3


line stmt bran cond sub pod time code
1             package SLOOPS::Tut::Plane ;
2              
3 1     1   912 use base qw/SLOOPS::Tut::Vehicule/ ;
  1         2  
  1         150  
4            
5             our $PERSIST = {
6             'base' => 'SLOOPS::Tut::Vehicule' ,
7             'fields' => {
8             'nbWings' => undef
9             }
10             };
11              
12             sub new{
13 0     0 0   my ($class) = @_ ;
14 0           my $self = $class->SUPER::new();
15            
16 0           $self->nbWheels(3) ;
17 0           $self->{'nbWings'} = undef ; # van, convertible , coupe ...
18            
19 0           return bless $self , $class ;
20            
21             }
22              
23             1;