File Coverage

blib/lib/Geo/Coordinates/Converter/Format/Geohash.pm

Criterion	Covered	Total	%
statement	37	37	100.0
branch	4	6	66.6
condition			n/a
subroutine	10	10	100.0
pod	0	5	0.0
total	51	58	87.9

package Geo::Coordinates::Converter::Format::Geohash;
use strict;
use warnings;
use parent 'Geo::Coordinates::Converter::Format';
our $VERSION = '0.05';

use Geo::Coordinates::Converter::Point::Geohash;
use Geohash;

sub name { 'geohash' }

sub new {
    my($class, %args) = @_;
    my $self = $class->SUPER::new(%args);
    $self->{geohash} = Geohash->new;
    $self;
}

sub detect {
    my($self, $point) = @_;
    return unless $point->isa('Geo::Coordinates::Converter::Point::Geohash');
    return unless $point->geohash =~ /\A[0-9bcdefghjkmnpqrstuvwxyz]+\z/i;
    return $self->name;
}

# geohash to lat/lng
sub to {
    my($self, $point) = @_;

    my($lat, $lng) = $self->{geohash}->decode($point->{geohash});
    $point->lat($lat);
    $point->lng($lng);
    $point->geohash(undef);

    $point;
}

# lat/lng to geohash
sub from {
    my($self, $point) = @_;

    # re-bless to geohash point package
    # because i want ->geohash method
    bless $point, 'Geo::Coordinates::Converter::Point::Geohash' unless $point->isa(__PACKAGE__);

    my $geohash = $self->{geohash}->encode($point->lat, $point->lng);
    $point->geohash($geohash);
    $point->lat(undef);
    $point->lng(undef);

    $point;
}

1;
__END__