File Coverage

blib/lib/Geo/Point/Plugin/Transform.pm
Criterion Covered Total %
statement 13 15 86.6
branch n/a
condition n/a
subroutine 5 5 100.0
pod n/a
total 18 20 90.0


line stmt bran cond sub pod time code
1             package Geo::Point::Plugin::Transform;
2              
3 2     2   111932 use warnings;
  2         6  
  2         67  
4 2     2   11 use strict;
  2         4  
  2         61  
5 2     2   9 use Carp;
  2         8  
  2         172  
6              
7 2     2   1950 use version;our $VERSION = qv('0.0.2');
  2         4570  
  2         13  
8              
9 2     2   1027 use Geo::Point;
  0            
  0            
10             use Geo::Proj;
11              
12             package # hide from PAUSE
13             Geo::Point;
14              
15             sub transform {
16             my ($self,$tproj) = @_;
17              
18             my $pt = Geo::Proj->to($self->proj, $tproj, [$self->x, $self->y]);
19              
20             return Geo::Point->xy(@{$pt},$tproj);
21             }
22              
23             1; # Magic true value required at end of module
24             __END__