File Coverage

blib/lib/Geo/Coordinates/Converter/Format.pm

Criterion	Covered	Total	%
statement	22	25	88.0
branch	9	10	90.0
condition			n/a
subroutine	8	11	72.7
pod	0	8	0.0
total	39	54	72.2

package Geo::Coordinates::Converter::Format;
use strict;
use warnings;

use Carp;

sub name { '' }
sub detect { croak 'This method is unimplemented' }

sub new {
    my($class, $args) = @_;
    $args = +{} unless defined $args;
    bless { %{ $args } }, $class;
}

sub normaraiz { goto &normalize } # alias for backward compatibility
sub normalize {
    my($self, $point) = @_;

    for my $meth (qw/ lat lng /) {
        next unless defined $point->$meth;
        if ($point->$meth =~ /^\+(.+)$/) {
            $point->$meth($1);
        } elsif (my($prefix, $val) = $point->$meth =~ /^([NEWS])(.+)$/i) {
            $prefix =~ /^[WS]$/i ? $point->$meth("-$val") : $point->$meth($val);
        }
    }
}

sub to { $_[1] }
sub from { $_[1] }
sub round { $_[1] }

1;

__END__