File Coverage

blib/lib/Geo/Formatter/FormatBase/Double.pm

Criterion	Covered	Total	%
statement	25	31	80.6
branch	10	20	50.0
condition	2	6	33.3
subroutine	9	9	100.0
pod	2	2	100.0
total	48	68	70.5

package Geo::Formatter::FormatBase::Double;

use warnings;
use strict;
use Carp;

use version; our $VERSION = qv('0.0.1');
use base qw(Geo::Formatter::FormatBase);

sub enc_wrap {
    my $pkg    = shift;

    return $pkg->can("encode") ? sub {
        if (@_ < 2) {
            croak "Latitude and Longitude are neccesary";
        } elsif (@_ > 3) {
            croak "Too many arguments";
        } elsif (@_ == 3 && ref($_[2]) ne "HASH") {
            croak "Option value must be hash reference";
        }

        my @ret = $pkg->encode(@_);

        wantarray ? @ret : \@ret;
    } : undef;
}

sub dec_wrap {
    my $pkg    = shift;

    return $pkg->can("decode") ? sub {
        if (@_ < 2) {
            croak "Latitude and Longitude are neccesary";
        } elsif (@_ > 3) {
            croak "Too many arguments";
        } elsif (@_ == 3 && ref($_[2]) ne "HASH") {
            croak "Option value must be hash reference";
        }

        my @ret = $pkg->decode(@_);

        wantarray ? @ret : \@ret;
    } : undef;
}

1;

__END__