File Coverage

blib/lib/Geo/Direction/Name.pm

Criterion	Covered	Total	%
statement	51	53	96.2
branch	9	14	64.2
condition	6	11	54.5
subroutine	13	13	100.0
pod	5	5	100.0
total	84	96	87.5

package Geo::Direction::Name;

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 {
    my ( $class, $opt ) = @_;

    my $self = bless {}, $class;

    my $spec;
    my $locale;
    if ( $opt && ref($opt) ) {
        $spec   = $opt->{spec};
        $locale = $opt->{locale};
    } else {
        # For backward compatibility
        $locale = $opt;
    }

    $self->spec(   $spec );
    $self->locale( $locale );

    $self;
}

sub spec   {
    my $self   =   shift;
    my $spec   =   shift;
    my $noerr  =   shift;
    my $errstr =   "Specification class(subclass of Geo::Direction::Name::Spec) must be set";
    $spec      ||= 'default' unless ( $self->{spec} );

    if ( $spec ) {
        $errstr = "Geo::Direction::Name not support this specification now: " . $spec;
        delete $self->{spec};
        my $class = __PACKAGE__ . '::Spec' . ( $spec eq 'default' ? '' : '::' . ucfirst($spec) ) ;
        if( Class::Inspector->loaded($class) || $class->require ) {
            $self->{spec} = $class->new;
        }
    }

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

sub locale {
    my $self   = shift;

    $self->spec->locale( @_ );
}

sub to_string   {
    my $self      = shift;

    $self->spec->to_string( @_ );
}

sub from_string {
    my $self      = shift;

    $self->spec->from_string( @_ );
}


1; # Magic true value required at end of module
__END__