The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

NAME

Geo::GeoPo - Simple encoder/decoder of GeoPo format

SYNOPSIS

  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

DESCRIPTION

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.

METHOD

  • geopo2latlng

  • latlng2geopo

AUTHOR

Original programmed by Shintaro Inagaki

Module packaged by OHTSUKA Ko-hei <nene@kokogiko.net>

SEE ALSO

http://geopo.at/intl/ja/developer/sample_code.html#perl

LICENSE

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.