File Coverage

blib/lib/Geo/GeoPo.pm

Criterion	Covered	Total	%
statement	37	37	100.0
branch	2	2	100.0
condition	2	2	100.0
subroutine	8	8	100.0
pod	2	2	100.0
total	51	51	100.0

package Geo::GeoPo;

use strict;
use warnings;
use Carp;

use version; our $VERSION = '0.0.1';
use vars qw(@ISA @EXPORT);
use Exporter;
@ISA = qw(Exporter);
@EXPORT      = qw(latlng2geopo geopo2latlng);

# 64characters (number + big and small letter + hyphen + underscore)
my $chars = "0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ-_";

# GeoPo Encode in Perl
sub latlng2geopo {
    my ( $lat, $lng, $scale, $arg ) = @_;
    my $geopo = "";
    $arg ||= {};

    # Change a degree measure to a decimal number
    $lat = ($lat + 90)  / 180 * 8 ** 10;
    $lng = ($lng + 180) / 360 * 8 ** 10;

    # Compute a GeoPo code from head and concatenate
    for( my $i = 0; $i < $scale; $i++) {
        $geopo .= substr($chars, int($lat / 8 ** (9 - $i) % 8) + int($lng / 8 ** (9 - $i) % 8) * 8, 1);
    }

    $geopo = "http://geopo.at/$geopo" if ($arg->{as_url});

    return $geopo;
}

# GeoPo Decode in Perl
sub geopo2latlng {
    my $geopo = shift;

    $geopo =~ s!http://geopo.at/!!;
    my ( $lat, $lng, $scale ) = ( 0, 0, length($geopo) );

    for ( my $i = 0; $i < $scale; $i++ ) {
        # What number of character that equal to a GeoPo code (0-63)
        my $order = index($chars, substr($geopo, $i, 1));

        # Lat/Lng plus geolocation value of scale
        $lat += $order % 8 * 8 ** (9 - $i);
        $lng += int($order / 8) * 8 ** (9 - $i);
    }

    # Change a decimal number to a degree measure, and plus revised value that shift center of area
    $lat = $lat * 180 / 8 ** 10 - 90  + 180 / 8 ** $scale / 2;
    $lng = $lng * 360 / 8 ** 10 - 180 + 360 / 8 ** $scale / 2;

    return ( $lat, $lng, $scale );
}

1;
__END__