File Coverage

blib/lib/Geo/Formatter/FormatBase.pm

Criterion	Covered	Total	%
statement	20	20	100.0
branch			n/a
condition			n/a
subroutine	6	6	100.0
pod	1	1	100.0
total	27	27	100.0

package Geo::Formatter::FormatBase;

use warnings;
use strict;
use Carp;

use version; our $VERSION = qv('0.0.1');

sub import {
    my $pkg     =  shift;
    my ($fname) =  $pkg =~ /Geo::Formatter::Format::(.+)$/;
    $fname      =~ s/::/_/g;

    my $enc = $pkg->enc_wrap();
    my $dec = $pkg->dec_wrap();

    foreach my $name ((lc($fname),$pkg->format_names)) {
        $Geo::Formatter::logic{$name} = {
            encode => $enc,
            decode => $dec,
        };
    }
}

sub format_names{}

1;

__END__