File Coverage

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

Criterion	Covered	Total	%
statement	18	18	100.0
branch			n/a
condition	2	4	50.0
subroutine	5	5	100.0
pod	1	1	100.0
total	26	28	92.8

package HTTP::MobileAgent::Plugin::Locator::SoftBank::BasicLocation;
# Simple Location Information

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

sub get_location {
    my $self = shift;
    my $geocode = $ENV{ HTTP_X_JPHONE_GEOCODE };
    $geocode =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
    my ( $lat, $lng, $address ) = split /\x1a/, $geocode;
    return Geo::Coordinates::Converter->new(
        lat   => _convert_point( $lat ) || undef,
        lng   => _convert_point( $lng ) || undef,
        datum => 'tokyo',
    )->convert( 'wgs84' );
}

sub _convert_point {
    my $point = shift;
    ($point = reverse split //, $point) =~ s/(..)/.$1/g;
    return join '', reverse split //, '00' . $point;
}

1;