File Coverage

blib/lib/Geo/Coordinates/Converter/Point/ISO6709.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::ISO6709;
use strict;
use warnings;
use parent 'Geo::Coordinates::Converter::Point';
use Class::Accessor::Lite (
    rw => [qw/ iso6709 /],
);

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

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

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

    $self;
}

1;
__END__