File Coverage

blib/lib/Geo/Coder/YahooJapan/Inverse.pm

Criterion	Covered	Total	%
statement	19	21	90.4
branch			n/a
condition			n/a
subroutine	7	7	100.0
pod			n/a
total	26	28	92.8

package Geo::Coder::YahooJapan::Inverse;

use 5.008004;
use strict;
use warnings;

use LWP::UserAgent;
use HTTP::Request;
use Location::GeoTool;
use XML::Simple;
use utf8;

require Exporter;

our @ISA = qw(Exporter);

# Items to export into callers namespace by default. Note: do not export
# names by default without a very good reason. Use EXPORT_OK instead.
# Do not simply export all your public functions/methods/constants.

# This allows declaration	use Geo::Coder::YahooJapan::Inverse ':all';
# If you do not need this, moving things directly into @EXPORT or @EXPORT_OK
# will save memory.
our %EXPORT_TAGS = ( 'all' => [ qw(

) ] );

our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );

our @EXPORT = qw(
    invlookup
);

our $VERSION = '0.02';

# Preloaded methods go here.

my $entry_point = 'http://map.yahoo.co.jp/geo/lonlat2address';

my $ua = undef;

sub invlookup {
    my ($lat,$long,$opts) = @_;

    ($lat && $long) or return undef;

    $ua or $ua = LWP::UserAgent->new(agent => __PACKAGE__ . "/$VERSION");

    my $datum = $opts->{datum} || 'wgs84';

    die "Format of coordinate is wrong" if (($lat !~ /^[\-\+]?\d{1,2}(\.\d*)?$/) && ($long !~ /^[\-\+]?\d{1,2}(\.\d*)?$/));
    die "Datum is wrong" if (($datum ne 'wgs84') && ($datum ne 'tokyo'));

    my $loc = eval { Location::GeoTool->create_coord($lat, $long, $datum, 'degree')};

    ($lat,$long) = $loc->datum_tokyo->format_mapion->array;

    my $req = HTTP::Request->new('POST',$entry_point);
    $req->content("$lat,$long");

    my $res = $ua->request( $req );

    $res or return undef;
    my $cont = $res->content;
    die "API error occured: maybe specified coordinate is out of Japan area" if ($cont =~ /

    my $result = XMLin($cont)->{'gxml:spatialLocator'};
    utf8::decode($result->{'gxml:AddressString'}->{'gxml:unstructuredAddressString'});
    my @aditem = map { utf8::decode($_->{'content'}); $_->{'content'} }
                 sort { $a->{'level'} <=> $b->{'level'} }
                 @{$result->{'gxml:AddressString'}->{'gxml:AddressItem'}};

    return {
        address => $result->{'gxml:AddressString'}->{'gxml:unstructuredAddressString'},
        addressitem => \@aditem,
        code => $result->{'GovernmentCode'},
    };
}

1;
__END__