Geo::GeoPo - Simple encoder/decoder of GeoPo format
use Geo::GeoPo;
my ( $lat, $lng, $scale ) = geopo2latlng('Z4RHXX');
# 35.658578, 139.745447, 6
my ( $lat, $lng, $scale ) = geopo2latlng('http://geopo.at/Z4RHXX');
# Same result
my $geopo = latlng2geopo( 35.658578, 139.745447, 6 );
# Z4RHXX
my $geopo = latlng2geopo( 35.658578, 139.745447, 6, { as_url => 1 } );
# http://geopo.at/Z4RHXX
GeoPo is a web service that shrink geolocation(latitude and longitude) to short URL. Then browser of receiver can display the map matched to browse environment. Everyone can use GeoPo for free, and no registration.
You can get more information on http://geopo.at/intl/en/.
Geo::GeoPo is simple encoder/decoder of GeoPo.
Original programmed by Shintaro Inagaki
Module packaged by OHTSUKA Ko-hei <nene@kokogiko.net>
http://geopo.at/intl/ja/developer/sample_code.html#perl
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
