File Coverage

blib/lib/Geo/Compass/Direction.pm

Criterion	Covered	Total	%
statement	23	23	100.0
branch	6	6	100.0
condition	5	6	83.3
subroutine	6	7	85.7
pod	1	1	100.0
total	41	43	95.3

package Geo::Compass::Direction;

use 5.006;
use strict;
use warnings;

use Carp qw(croak);
use Exporter qw(import);

our $VERSION = '1.00';

our @ISA = qw(Exporter);
our @EXPORT_OK = qw(direction);

my @DIRECTIONS = qw(
    N NNE NE ENE E ESE SE SSE S SSW SW WSW W WNW NW NNW N
);

sub direction {
    my ($deg) = @_;

    if (! defined $deg) {
        croak("direction() must have an integer or float as its only parameter");
    }
    if ($deg !~ /^\d+$/ && $deg !~ /^\d+\.\d+$/) {
        croak("The degree parameter for direction() must be an int or float");
    }
    if ($deg < 0 || $deg > 360) {
        croak("The degree parameter must be an int or float between 0-360");
    }

    my $calc = (($deg % 360) / 22.5) + .5;

    return $DIRECTIONS[$calc];
}
sub __placeholder {}

1;
__END__