File Coverage

blib/lib/Geo/Direction/Name/Spec.pm

Criterion	Covered	Total	%
statement	66	66	100.0
branch	18	20	90.0
condition	14	19	73.6
subroutine	16	16	100.0
pod	8	8	100.0
total	122	129	94.5

package Geo::Direction::Name::Spec;

use warnings;
use strict;
use Carp;

use version; our $VERSION = qv('0.0.4');
use Scalar::Util qw(looks_like_number);
use Class::Inspector;
use UNIVERSAL::require;

BEGIN
{
    if ( $] >= 5.006 )
    {
        require utf8; import utf8;
    }
}

sub new {
    bless { }, $_[0];
}

sub devide_num { 32 }

sub allowed_dev { qw(4 8 16 32) }

sub default_dev { 8 }

sub default_locale { "en_US" }

sub locale {
    my $self       =   shift;
    my $class_base =   ref( $self );
    my $locale     =   shift;
    my $noerr      =   shift;
    my $errstr     =   "Locale class(subclass of Geo::Direction::Name::Locale) must be set";
    $locale        ||= $self->default_locale unless ( $self->{locale} );

    if ( $locale ) {
        $errstr = "$class_base not support this locale now: " . $locale;
        delete $self->{locale};

        ($locale)  = split(/\./,$locale);
        my ($lang) = split(/_/,$locale);

        $class_base =~ s/Spec/Locale/;

        foreach my $class (map { "$class_base\::" . $_ } ($locale, $lang)) {
            if( Class::Inspector->loaded($class) || $class->require) {
                $self->{locale} = $class->new( $self->devide_num );
                last;
            }
        }
    }

    croak $errstr unless ( $noerr || $self->{locale} );
    $self->{locale};
}

sub to_string   {
    my $self      = shift;
    my $direction = shift;
    my $option    = shift || {};

    my $abbr      = defined($option->{abbreviation}) ? $option->{abbreviation} : 1;
    my $devide    = $option->{devide} || $self->default_dev;

    croak ("Direction value must be a number") unless (looks_like_number($direction));
    croak ("Abbreviation parameter must be 0 or 1") if ( $abbr !~ /^[01]$/ );
    croak ("Devide parameter must be ". join( ",", $self->allowed_dev ) ) unless ( grep { $devide == $_ } $self->allowed_dev );

    $direction   += 180 / $devide;

    while ($direction < 0.0 || $direction >= 360.0) {
        $direction +=  $direction < 0 ? 360.0 : -360.0;
    }

    my $i = int($direction * $devide / 360) * ( $self->devide_num / $devide);

    $self->locale->string($i,$abbr);
}

sub from_string {
    my $self      = shift;
    my $string    = shift;
    my $option    = shift || {};

    $self->locale->direction($string);
}

1;
__END__