File Coverage

blib/lib/Geo/Formatter/CalcurateDMS.pm

Criterion	Covered	Total	%
statement	28	28	100.0
branch	4	4	100.0
condition			n/a
subroutine	8	8	100.0
pod			n/a
total	40	40	100.0

package Geo::Formatter::CalcurateDMS;

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(__degree2dms __dms2degree);

sub __degree2dms {
    my $degree = shift;

    my $minus  = $degree < 0 ? 1 : 0;
    $degree    = abs($degree);
    my $minute = ($degree - int($degree)) * 60;
    my $second = ($minute - int($minute)) * 60;

    return ($minus,int($degree),int($minute),$second);
}

sub __dms2degree {
    my ($minus,$degree,$minute,$second) = @_;

    $degree = int($degree) + int($minute) / 60 + $second / 3600;
    $degree *= -1 if ($minus);

    return $degree;
}

1;
__END__