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::Formatter::Format::GeoPo - Add GeoPo format to Geo::Formatter

SYNOPSIS

use Geo::Formatter qw(GeoPo);

my ( $lat, $lng, $scale ) = format2latlng( 'geopo', 'Z4RHXX' );
# 35.658578, 139.745447, 6

my ( $lat, $lng, $scale ) = format2latlng( 'geopo', 'http://geopo.at/Z4RHXX' );
# Same result

my $geopo = latlng2format( 'geopo', 35.658578, 139.745447, { scale => 6 } );
# Z4RHXX

my $geopo = latlng2format( 'geopo', 35.658578, 139.745447, { scale => 6, as_url => 1 } );
# http://geopo.at/Z4RHXX

DESCRIPTION

Geo::Formatter::Format::GeoPo adds GeoPo format to Geo::Formatter.

METHOD

  • encode

  • decode

AUTHOR

OHTSUKA Ko-hei <nene@kokogiko.net>

SEE ALSO

  • Geo::Formatter

  • Geo::GeoPo

LICENSE

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