File Coverage

blib/lib/Location/GeoTool/Plugin/GridLocator.pm

Criterion	Covered	Total	%
statement	31	33	93.9
branch			n/a
condition			n/a
subroutine	8	10	80.0
pod	0	1	0.0
total	39	44	88.6

package Location::GeoTool::Plugin::GridLocator;

use strict;
no strict 'refs';
no warnings 'redefine';
use vars qw($VERSION);
$VERSION = 0.02000;
use Location::GeoTool;
use Carp;

sub import {
    __PACKAGE__->setup();
}

# Thanks for site:
# http://www.jarl.or.jp/Japanese/1_Tanoshimo/1-2_Award/gl.htm

sub setup {
    Location::GeoTool->set_original_code(
        "gridlocator",
        [
            sub {
                croak("Cannot create Location::GeoTool object from GridLocator");
            },
            sub {
                my $self = shift;
                my ($lat,$long) = $self->format_degree->array;
                my @res;

                $lat = ($lat+90)/10;
                $long = ($long+180)/20;

                $res[1] = pack "C", 65+int($lat);
                $res[0] = pack "C", 65+int($long);

                $res[3] = int($lat*10) % 10;
                $res[2] = int($long*10) % 10;

                $res[5] = pack "C", 65+int(($lat*10 - int($lat*10)) * 24);
                $res[4] = pack "C", 65+int(($long*10 - int($long*10)) * 24);

                join "",@res;
            },
        ]
    );
}

1;
__END__