File Coverage

blib/lib/GIS/Distance/Cosine.pm

Criterion	Covered	Total	%
statement	26	26	100.0
branch			n/a
condition			n/a
subroutine	7	7	100.0
pod			n/a
total	33	33	100.0

package GIS::Distance::Cosine;
use 5.008001;
use strictures 2;
our $VERSION = '0.18';

use parent 'GIS::Distance::Formula';

use Math::Trig qw( deg2rad acos );
use GIS::Distance::Constants qw( :all );
use namespace::clean;

sub _distance {
    my ($lat1, $lon1, $lat2, $lon2) = @_;

    $lon1 = deg2rad($lon1);
    $lat1 = deg2rad($lat1);
    $lon2 = deg2rad($lon2);
    $lat2 = deg2rad($lat2);

    my $a = sin($lat1) * sin($lat2);
    my $b = cos($lat1) * cos($lat2) * cos($lon2 - $lon1);
    my $c = acos($a + $b);

    return $KILOMETER_RHO * $c;
}

1;
__END__