File Coverage

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

Criterion	Covered	Total	%
statement	19	19	100.0
branch	2	2	100.0
condition	4	6	66.6
subroutine	6	6	100.0
pod	0	1	0.0
total	31	34	91.1

package HTTP::MobileAttribute::Plugin::Locator::DoCoMo::BasicLocation;
# Open iArea
use strict;
use warnings;
use base qw( HTTP::MobileAttribute::Plugin::Locator::Base );
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;