File Coverage

blib/lib/Number/Stars.pm

Criterion	Covered	Total	%
statement	28	28	100.0
branch	6	6	100.0
condition			n/a
subroutine	6	6	100.0
pod	2	2	100.0
total	42	42	100.0

package Number::Stars;

use strict;
use warnings;

use Class::Utils qw(set_params);
use Error::Pure qw(err);

our $VERSION = 0.01;

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

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

	# Number of stars.
	$self->{'number_of_stars'} = 10;

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

	if ($self->{'number_of_stars'} !~ m/^\d+$/) {
		err "Parameter 'number_of_stars' must be a number.";
	}

	return $self;
}

# Convert percent number to stars definition.
sub percent_stars {
	my ($self, $percent) = @_;

	my $stars_hr = {};
	my $star_percent = 100 / $self->{'number_of_stars'};
	foreach my $star_id (1 .. $self->{'number_of_stars'}) {
		if ($percent >= $star_id * $star_percent) {
			$stars_hr->{$star_id} = 'full';
		} elsif ($percent >= ($star_id * $star_percent) - ($star_percent / 2)) {
			$stars_hr->{$star_id} = 'half',
		} else {
			$stars_hr->{$star_id} = 'nothing',
		}
	}

	return $stars_hr;
}

__END__