App::Mobirc::Plugin::GPS::InvGeocoder::Nishioka - App::Mobirc::Plugin::GPS::InvGeocoder::Nishioka documentation

mobirc documentation Contained in the mobirc distribution.

Index

Code Index:

AUTHOR

Top

Tokuhiro Matsuno.

SEE ALSO

Top

http://www.knya.net/archives/2005/07/rest.html

mobirc documentation Contained in the mobirc distribution. 
package App::Mobirc::Plugin::GPS::InvGeocoder::Nishioka;
use strict;
use warnings;
use Geo::Coordinates::Converter;
use LWP::UserAgent;
use XML::Simple;
use Encode;

sub inv_geocoder {
    my ($class, $point) = @_;

    my $geo = Geo::Coordinates::Converter->new(point => $point);
    my $p = $geo->convert('degree', 'wgs84');

    my $url = "http://nishioka.sakura.ne.jp/google/ws.php?lon=@{[ $p->lng ]}&lat=@{[ $p->lat ]}&format=simple";

    my $ua = LWP::UserAgent->new;
    my $res = $ua->get($url);
    if ($res->is_success) {
        return XML::Simple::XMLin($res->content)->{point}->{address};
    } else {
        warn "OOPS";
        return "ERROR OCCURED :" . $res->status_line;
    }
}

1;
__END__