File Coverage

blib/lib/SLOOPS/Tut/Car.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

package SLOOPS::Tut::Car ;

use base qw/SLOOPS::Tut::Vehicule/ ;

our $PERSIST = {
    'base' => 'SLOOPS::Tut::Vehicule' ,
    'fields' => {
	'body' => undef
	}
};

sub new{
    my ($class) = @_ ;
    my $self = $class->SUPER::new();

    $self->nbWheels(4) ;
    $self->{'body'} = undef ; # van, convertible , coupe ...

    return bless $self , $class ;

}

1;