The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.

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.