File Coverage

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

Criterion	Covered	Total	%
statement	19	19	100.0
branch			n/a
condition			n/a
subroutine	5	5	100.0
pod	1	1	100.0
total	25	25	100.0

package Geo::Coordinates::Converter::Point::Geohash;
use strict;
use warnings;
use parent 'Geo::Coordinates::Converter::Point';
use Class::Accessor::Lite (
    rw => [qw/ geohash /],
);

sub new {
    my($class, $args) = @_;
    my $geohash = delete $args->{geohash};

    my $self = $class->SUPER::new($args);

    delete $self->{lat};
    delete $self->{lng};
    $self->{geohash} = $geohash;

    $self;
}

1;
__END__