File Coverage

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

Criterion	Covered	Total	%
statement	24	24	100.0
branch	4	4	100.0
condition	3	4	75.0
subroutine	7	7	100.0
pod	2	2	100.0
total	40	41	97.5

package Geo::Formatter::Format::Degree;

use strict;
use warnings;
use Carp;
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} : 6;
    my $sign          = $opt->{sign}          || 0;

    my $form = sprintf("%%%s.%df",$sign ? "+" : "", $under_decimal);
    map { sprintf($form,$_) } ($lat,$lng);
}

sub decode {
    map { $_ + 0.0 }@_[1..2];
}

1;

__END__