File Coverage

blib/lib/Geo/Formatter/Format/DMS.pm

Criterion	Covered	Total	%
statement	41	41	100.0
branch	17	20	85.0
condition	11	13	84.6
subroutine	8	8	100.0
pod	2	2	100.0
total	79	84	94.0

package Geo::Formatter::Format::DMS;

use strict;
use warnings;
use Carp;
use Geo::Formatter::CalcurateDMS;
use base qw(Geo::Formatter::FormatBase::Double);

use version; our $VERSION = qv('0.0.1');

sub encode {
    my ($class,$lat,$lng,$opt) = @_;

    $opt ||= {};

    my $under_decimal = defined($opt->{under_decimal}) ? $opt->{under_decimal} : 3;
    my $sign          = $opt->{sign}          || 0;
    my $zerofill      = $opt->{zerofill}      || 0;
    my $devider       = defined($opt->{devider})       ? $opt->{devider}       : ".";

    croak "Cannot use number character as devider" if ($devider =~ /\d/);
    $devider         =~ s/%/%%/g;

    # %+d.%02d.%06.3f
    my $form = sprintf(
        "%%%sd%s%%%sd%s%%%s.%df",
        $sign ? "+" : "",
        $devider,
        $zerofill ? "02" : "",
        $devider,
        $zerofill ? "0" . ($under_decimal + 3) : "",
        $under_decimal
    );

    map {
        my ($minus,$d,$m,$s) = __degree2dms($_);

        $d *= -1 if ($minus);
        sprintf($form,$d,$m,$s);
    } ($lat,$lng);
}

sub decode {
    my ($class,$lat,$lng,$opt) = @_;

    $opt ||= {};

    my $devider       = $opt->{devider}       || ".";

    croak "Cannot use number character as devider" if ($devider =~ /\d/);
    $devider         =~ s/([\.\^\$\[\]\*\+\?\|\(\)\\\/])/\\$1/g;

    # ([\+\-]?)(\d+)\.(\d+)\.(\d+(?:\.\d*))
    my $form = qr(([\+\-]?)(\d+)$devider(\d+)$devider(\d+(?:\.\d*)?));

    map {
        my ($minus,$d,$m,$s) = /$form/ or croak "Arguments are not DMS format";
        $minus = $minus && $minus eq "-" ? 1 : 0;

        __dms2degree($minus,$d,$m,$s);
    } ($lat,$lng);
}

1;

__END__