File Coverage

test-lib/Car/Fiat.pm

Criterion	Covered	Total	%
statement	6	10	60.0
branch			n/a
condition	1	3	33.3
subroutine	2	6	33.3
pod	0	5	0.0
total	9	24	37.5

package Car::Fiat;

use Class::Interface;
implements 'Car::Interface';

sub new {
  my $class = ref($_[0]) || $_[0]; shift;
  return bless( {}, $class );
}


sub openDoors {
	print "Doors open in fiat style"
}
sub closeDoors {
	print "Doors close in fiat style"
}
sub start {
	print "Hey! Nothings happens"
}
sub stop {
	print "Still nothing happens - I was never started."
}

1;