File Coverage

blib/lib/Acme/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 Acme::People::Happy;
2              
3             # Pragmas.
4 4     4   29767 use strict;
  4         6  
  4         141  
5 4     4   17 use warnings;
  4         4  
  4         119  
6              
7             # Modules.
8 4     4   2153 use Class::Utils qw(set_params);
  4         78538  
  4         84  
9              
10             # Version.
11             our $VERSION = 0.02;
12              
13             # Constructor.
14             sub new {
15 3     3 1 3982 my ($class, @params) = @_;
16              
17             # Create object.
18 3         9 my $self = bless {}, $class;
19              
20             # Process parameters.
21 3         10 set_params($self, @params);
22              
23             # Object.
24 1         8 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__