File Coverage

blib/lib/GIS/Distance/GeoEllipsoid.pm

Criterion	Covered	Total	%
statement	25	26	96.1
branch	2	4	50.0
condition	3	9	33.3
subroutine	9	9	100.0
pod	0	2	0.0
total	39	50	78.0

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

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

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

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

{
    my $default;

    sub _default_ellipsoid {
        $default ||= Geo::Ellipsoid->new( %$ellipsoid_args );
        return $default;
    }
}

sub BUILDARGS {
    my $class = shift;

    if (@_ == 1 and !ref($_[0])) {
        return {
            ellipsoid => Geo::Ellipsoid->new(
                %$ellipsoid_args,
                ellipsoid => $_[0],
            ),
        };
    }

    return $class->SUPER::BUILDARGS( @_ );
}

sub BUILD {
    my ($self) = @_;

    $self->{ellipsoid} ||= _default_ellipsoid();

    return;
}

sub _distance {
    my $self = $GIS::Distance::Formula::SELF;

    my $ellipsoid = $self ? $self->{ellipsoid} : _default_ellipsoid();

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

1;
__END__