File Coverage

blib/lib/Geo/Coordinates/UTM/XS.pm

Criterion	Covered	Total	%
statement	19	22	86.3
branch	0	2	0.0
condition			n/a
subroutine	7	8	87.5
pod			n/a
total	26	32	81.2

package Geo::Coordinates::UTM::XS;

use strict;
use warnings;

use Carp;

BEGIN {

  our $VERSION = '0.04';

  require XSLoader;
  XSLoader::load('Geo::Coordinates::UTM::XS', $VERSION);

}

require Exporter;
our @ISA = qw(Exporter);
our @EXPORT  = qw( latlon_to_utm latlon_to_utm_force_zone utm_to_latlon
                   ellipsoid_info ellipsoid_names);

use Geo::Coordinates::UTM;

BEGIN {
    *_cleanup_name = \&Geo::Coordinates::UTM::_cleanup_name;
}

our %_ellipsoid;

my $i = 1;
for (ellipsoid_names) {
    $_ellipsoid{$_} = $i;
    $_ellipsoid{_cleanup_name($_)} = $i;
    # print "ellipsoid info $_: ", join(', ', ellipsoid_info($_)), "\n";
    _set_ellipsoid_info($i, (ellipsoid_info($_))[1,2]);
    $i++;
}

sub _ellipsoid_index {
    my $name = shift;
    my $index = $_ellipsoid{_cleanup_name($name)}
        or croak "bad ellipsoid name '$name'";
    $_ellipsoid{$name} = $index;
}

{
    no warnings;
    *latlon_to_utm = \&_latlon_to_utm;
    *latlon_to_utm_force_zone = \&_latlon_to_utm_force_zone;
    *utm_to_latlon = \&_utm_to_latlon;
}

1;
__END__