File Coverage

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

Criterion	Covered	Total	%
statement	34	34	100.0
branch	5	6	83.3
condition	6	8	75.0
subroutine	9	9	100.0
pod	0	5	0.0
total	54	62	87.1

package Geo::Coordinates::Converter::Format::Dms;
use strict;
use warnings;
use parent 'Geo::Coordinates::Converter::Format';

use POSIX;

our $DIGITS = 3;

sub name { 'dms' }

sub detect {
    my($self, $point) = @_;

    return unless defined $point->lat && $point->lat =~ /^[\-\+NS]?[0-9]{1,2}\.[0-9][0-9]?\.[0-9][0-9]?(?:\.[0-9]+)$/i;
    return unless defined $point->lng && $point->lng =~ /^[\-\+EW]?[0-9]{1,3}\.[0-9][0-9]?\.[0-9][0-9]?(?:\.[0-9]+)$/i;

    return $self->name;
}

sub to {
    my($self, $point) = @_;

    for my $meth (qw/ lat lng /) {
        my($ws, $deg, $min, $sec) = $point->$meth =~ /^(\-?)([0-9]+)\.([0-9]+)\.([0-9]+(?:\.[0-9]+)?)$/i;
        my $ret = $deg + ($min / 60) + ($sec / 3600);
        $ret = $ws =~ /\-/i ? -1 * $ret : $ret;
        $point->$meth($ret);
    }

    $point;
}

sub from {
    my($self, $point) = @_;

    for my $meth (qw/ lat lng /) {
        my($ws, $degree) = $point->$meth =~ /^(\-?)(.+)$/;

        my $deg  = floor($degree);
        my $min  = floor(($degree - $deg) * 60 % 60);
        my $sec  = ($degree - $deg) * 3600 - $min * 60;
        $point->$meth(sprintf "%s%s.%s.%s", $ws || '', $deg, $min, $sec);
    }

    $point;
}

sub round {
    my($self, $val) = @_;
    sprintf "%s%s.%02d.%06.${DIGITS}f", ($val =~ /^(\-?)([^\.]+)\.([^\.]+)\.(.+)$/);
}

1;