File Coverage

blib/lib/People/Happy.pm
Criterion Covered Total %
statement 13 15 86.6
branch n/a
condition n/a
subroutine 4 6 66.6
pod 3 3 100.0
total 20 24 83.3


line stmt bran cond sub pod time code
1             package People::Happy;
2              
3             # Pragmas.
4 4     4   31437 use strict;
  4         6  
  4         151  
5 4     4   22 use warnings;
  4         7  
  4         126  
6              
7             # Modules.
8 4     4   2181 use Class::Utils qw(set_params);
  4         75489  
  4         80  
9              
10             # Version.
11             our $VERSION = 0.01;
12              
13             # Constructor.
14             sub new {
15 3     3 1 3525 my ($class, @params) = @_;
16              
17             # Create object.
18 3         8 my $self = bless {}, $class;
19              
20             # Process parameters.
21 3         11 set_params($self, @params);
22              
23             # Object.
24 1         5 return $self;
25             }
26              
27             # Simple question.
28             sub are_you_happy {
29 0     0 1   return "Yes, i'm.";
30             }
31              
32             # Everybody can be happy.
33             sub everybody {
34 0     0 1   return 'Everybody can be happy.';
35             }
36              
37             1;
38              
39             __END__