File Coverage

blib/lib/HTTP/MobileAttribute/Plugin/Locator/EZweb/BasicLocation.pm

Criterion	Covered	Total	%
statement	18	18	100.0
branch			n/a
condition	2	4	50.0
subroutine	5	5	100.0
pod	0	1	0.0
total	25	28	89.2

package HTTP::MobileAttribute::Plugin::Locator::EZweb::BasicLocation;
# Simple Location Information
use strict;
use warnings;
use base qw( HTTP::MobileAttribute::Plugin::Locator::Base );
use Geo::Coordinates::Converter;

sub get_location {
    my ( $self, $params ) = @_;
    my $lat = $params->{ lat };
    my $lng = $params->{ lon };
    my $datum = $params->{ datum } || 'wgs84';
    my $format = $params->{ unit } || 'dms';
    return Geo::Coordinates::Converter->new(
        lat    => $lat,
        lng    => $lng,
        datum  => $datum,
        format => $format,
    )->convert;
}

1;