File Coverage

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

Criterion	Covered	Total	%
statement	15	15	100.0
branch			n/a
condition	2	4	50.0
subroutine	5	5	100.0
pod	0	1	0.0
total	22	25	88.0

package HTTP::MobileAttribute::Plugin::Locator::AirHPhone::BasicLocation;
use strict;
use warnings;
use base qw( HTTP::MobileAttribute::Plugin::Locator::Base );
use Geo::Coordinates::Converter;

sub get_location {
    my ( $self, $params ) = @_;
    my ( $lat, $lng ) = $params->{ pos } =~ /^N([^E]+)E(.+)$/;
    return Geo::Coordinates::Converter->new(
        lat   => $lat || undef,
        lng   => $lng || undef,
        datum => 'tokyo',
    )->convert( 'wgs84' );
}

1;