File Coverage

blib/lib/GIS/Distance/GeoEllipsoid.pm

Criterion	Covered	Total	%
statement	15	15	100.0
branch	1	2	50.0
condition	3	5	60.0
subroutine	5	5	100.0
pod	0	1	0.0
total	24	28	85.7

package GIS::Distance::GeoEllipsoid;
use 5.008001;
use strictures 2;
our $VERSION = '0.11';

use Geo::Ellipsoid;
use namespace::clean;

my $cache = {};

my $ellipsoid_args = {
    units          => 'degrees' ,
    distance_units => 'kilometer',
    longitude      => 0,
    bearing        => 0,
};

sub distance {
    my $ellipsoid = (@_ == 5) ? shift() : undef;

    $ellipsoid ||= 'WGS84';

    my $instance = $cache->{$ellipsoid} ||= Geo::Ellipsoid->new(
        %$ellipsoid_args,
        ellipsoid => $ellipsoid,
    );

    return $instance->range( @_ );
}

1;
__END__