File Coverage

blib/lib/HTTP/MobileAgent/Plugin/Locator/DoCoMo/BasicLocation.pm

Criterion	Covered	Total	%
statement	16	16	100.0
branch	2	2	100.0
condition	4	6	66.6
subroutine	5	5	100.0
pod	1	1	100.0
total	28	30	93.3

package HTTP::MobileAgent::Plugin::Locator::DoCoMo::BasicLocation;
# Open iArea

use strict;
use base qw( HTTP::MobileAgent::Plugin::Locator );
use Geo::Coordinates::Converter;
use Geo::Coordinates::Converter::iArea;

sub get_location {
    my ( $self, $params ) = @_;

    if ($params->{LAT} && $params->{LON} && $params->{GEO}) {
        return Geo::Coordinates::Converter->new(
            lat    => $params->{LAT},
            lng    => $params->{LON},
            datum  => $params->{GEO},
        )->convert;
    } else {
        return Geo::Coordinates::Converter::iArea->get_center(
            $params->{AREACODE}
        )->convert( 'wgs84', 'dms' );
    }
}

1;