File Coverage

blib/lib/Acme/Math/PerfectChristmasTree.pm

Criterion	Covered	Total	%
statement	28	28	100.0
branch	2	2	100.0
condition			n/a
subroutine	9	9	100.0
pod	1	1	100.0
total	40	40	100.0

package Acme::Math::PerfectChristmasTree;

use warnings;
use strict;
use Exporter;
use Carp;
use Math::Trig qw/pi/;

use vars qw/$VERSION @ISA @EXPORT_OK/;
BEGIN {
    $VERSION = '0.02';
    @ISA     = qw/Exporter/;
    @EXPORT_OK = qw/calc_perfect_christmas_tree/;
}

sub calc_perfect_christmas_tree {
    my $tree_height = shift;

    if ($tree_height <= 0) {
        croak 'Tree height must be a number greater than zero.';
    }

    my $pi = pi();
    return (
        'number_of_baubles' => _round(sqrt(17) / 20 * $tree_height),
        'tinsel_length' => 13 * $pi / 8 * $tree_height,
        'lights_length' => $pi * $tree_height,
        'star_or_fairy_height' => $tree_height / 10,
    );
}

sub _round {
    my $value = shift;

    return int($value + 0.5);
}

1;
__END__