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.

* geopo2latlng

* latlng2geopo

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.