File Coverage

blib/lib/Geo/Proj/GoogleMaps.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::Proj::GoogleMaps;
2              
3 2     2   228664 use warnings;
  2         6  
  2         56  
4 2     2   10 use strict;
  2         3  
  2         58  
5 2     2   11 use Carp;
  2         8  
  2         166  
6              
7 2     2   5000 use version; our $VERSION = qv('0.0.1');
  2         7716  
  2         124  
8              
9 2     2   1248 use Geo::Proj;
  0            
  0            
10              
11             sub import {
12             my $tproj = '+proj=merc +a=6378137 +b=6378137 +lat_ts=0.0 +lon_0=0.0 +x_0=0.0 +y_0=0 +k=1.0 +units=m +nadgrids=@null +no_defs';
13             Geo::Proj->new(
14             nick => 'google',
15             proj4 => $tproj,
16             );
17             Geo::Proj->new(
18             nick => 'googlemaps',
19             proj4 => $tproj,
20             );
21             }
22              
23             1; # Magic true value required at end of module
24             __END__