File Coverage

blib/lib/Acme/People/Happy.pm

Criterion	Covered	Total	%
statement	15	15	100.0
branch			n/a
condition			n/a
subroutine	6	6	100.0
pod	3	3	100.0
total	24	24	100.0

package Acme::People::Happy;

use strict;
use warnings;

use Class::Utils qw(set_params);

# Version.
our $VERSION = 0.05;

# Constructor.
sub new {
	my ($class, @params) = @_;

	# Create object.
	my $self = bless {}, $class;

	# Process parameters.
	set_params($self, @params);

	# Object.
	return $self;
}

# Simple question.
sub are_you_happy {
	return "Yes, i'm.";
}

# Everybody can be happy.
sub everybody {
	return 'Everybody can be happy.';
}

1;

__END__