File Coverage

blib/lib/Geo/Formatter.pm

Criterion	Covered	Total	%
statement	59	61	96.7
branch	13	22	59.0
condition	1	3	33.3
subroutine	15	15	100.0
pod	4	4	100.0
total	92	105	87.6

package Geo::Formatter;

use warnings;
use strict;
use Carp;

use version; our $VERSION = qv('0.0.1');
use vars qw(@ISA @EXPORT);
use Exporter;
@ISA = qw(Exporter);
@EXPORT      = qw(latlng2format format2latlng alias_format);
use Class::Inspector;
use UNIVERSAL::require;

our %logic  = ();
# our @search = ();

sub import {
    my $pkg     = shift;
    my @formats = @_;

    $pkg->add_format("Degree","DMS",@_);
    $pkg->export_to_level(1, $pkg);
}

sub add_format {
    my $pkg     = shift;

    foreach my $format (@_) {
        my $class = "Geo::Formatter::Format::$format";

        unless( Class::Inspector->loaded($class) ) {
            if ($class->require) {
                $class->import;
            } else {
                croak "Cannot load format : $format";
            }
        }
    }
}

sub __formatter {
    my $dir    = shift;
    my $format = shift;

    my $code;

    if ($logic{$format} && $logic{$format}->{$dir}) {
        $code = $logic{$format}->{$dir};
    }# else {
#        foreach my $search (@search) {
#            last if ($code = $search->match($format,$dir));
#        }
#    }
    if ($code) {
        return $code->(@_);
    } else {
        croak "Cannot $dir $format format";
    }
}

sub latlng2format {
    __formatter("encode",@_);
}

sub format2latlng {
    __formatter("decode",@_);
}

sub alias_format {
    my $format  = shift;
    my $base    = shift;
    my $opt     = shift;

    my $base_setting = $logic{$base} or croak("Cannot find base format: $base");
    $logic{$format} = {} unless ($logic{$format});

    foreach my $dir ("encode","decode") {
        my %dir_opt = $opt ?
                      (
                          %{$opt},
                          ($opt->{$dir} ? %{$opt->{$dir}} : ()),
                      ) :
                      ();
        delete @dir_opt{qw(decode encode)};

        my $code = $base_setting->{$dir} ?
                   %dir_opt ?
        sub {
            my %opt = ref($_[$#_]) eq 'HASH' ? %{ pop() } : ();
            %opt = (
                %dir_opt,
                %opt,
            );
            $base_setting->{$dir}->(@_,\%opt);
        } :
        $base_setting->{$dir} :
        undef;

        $logic{$format}->{$dir} = $code;
    }
}

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