File Coverage

test-lib/Car/Ford.pm
Criterion Covered Total %
statement 6 11 54.5
branch n/a
condition 1 3 33.3
subroutine 2 7 28.5
pod 0 6 0.0
total 9 27 33.3


line stmt bran cond sub pod time code
1             package Car::Ford;
2              
3 3     3   8525 use Class::Interface;
  3         6  
  3         710  
4             implements qw(Car::Interface Car::Runnable);
5              
6             sub new {
7 2   33 2 0 7257 my $class = ref($_[0]) || $_[0]; shift;
  2         3  
8              
9 2         9 return bless( {}, $class );
10             }
11              
12 0     0 0   sub openDoors { print "Doors open smoothly" }
13 0     0 0   sub closeDoors { print "Doors close smoothly" }
14 0     0 0   sub start { print "*pruttel pruttel* vroem." }
15 0     0 0   sub run { print "Look... Moving fordward ;->"}
16 0     0 0   sub stop { print "*uch*" }
17              
18             1;