File Coverage

samples/1-methods/lib/Greetings.pm
Criterion Covered Total %
statement 6 12 50.0
branch n/a
condition n/a
subroutine 2 5 40.0
pod 0 3 0.0
total 8 20 40.0


line stmt bran cond sub pod time code
1             package
2             Greetings;
3 2     2   1047 use strict;
  2         5  
  2         82  
4 2     2   9 use warnings;
  2         3  
  2         347  
5              
6 0     0 0   sub new { my $class = shift; bless +{@_}, $class }
  0            
7              
8 0     0 0   sub hello { my $self = shift; join " ", "Hello", $self->{name} }
  0            
9              
10 0     0 0   sub hi { my $self = shift; join(" ", "Hi" => $self->{name}, @_)}
  0            
11              
12             1;
13              
14             __END__