Geo::Coder::YahooJapan::Inverse - a simple wrapper for Yahoo Japan Inverse Geocoder API

Geo-Coder-YahooJapan-Inverse documentation Contained in the Geo-Coder-YahooJapan-Inverse distribution.

Index

Code Index:

NAME

Top

Geo::Coder::YahooJapan::Inverse - a simple wrapper for Yahoo Japan Inverse Geocoder API

SYNOPSIS

Top

  use Geo::Coder::YahooJapan::Inverse;
  $r = invlookup( $latitude, $longitude ); # coordinate in WGS84, format in degree.
  my $address = $r->{address}; # Return address in string with utf-8 flag.

  # if you want to give coordinate in TOKYO datum, specify it in option.
  $r = invlookup( $latitude, $longitude, { datum => 'tokyo' } );

  # $r->{addressitem} has structure of address, devided by prefecture, city, town, and so on.
  my $address = join("",@{$r->{addressitem}}); # Same as $r->{address}.

  # $r->{code} has Japanese government's address code.
  my $code = $r->{code};

DESCRIPTION

Top

Geo::Coder::YahooJapan::Inverse is a wrapper for Yahoo Japan Inverse Geocoder API. This API is unofficial, so you should use this module at your own risk.

invlookup(latitude, longitude, opts)

Invlookup is an only method in this package that returns address information in an hash reference. You can give coordinate in WGS84(default) or TOKYO(set datum option) datum, and in degree format.

DEPENDENCIES

Top

HTTP::Request LWP::UserAgent Location::GeoTool XML::Simple

SEE ALSO

Top

Geo::Coder::YahooJapan

AUTHOR

Top

OHTSUKA Ko-hei <nene@kokogiko.net>

COPYRIGHT AND LICENSE

Top

Copyright (C) 2007 by OHTSUKA Ko-hei

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.8.4 or, at your option, any later version of Perl 5 you may have available.

Geo-Coder-YahooJapan-Inverse documentation Contained in the Geo-Coder-YahooJapan-Inverse distribution. 
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("<query><coordinates>$lat,$long</coordinates></query>");

    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 =~ /<error/);

    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__
# Below is stub documentation for your module. You'd better edit it!