File Coverage

blib/lib/Geo/Proj/Japan.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::Japan;
2              
3 2     2   117667 use warnings;
  2         6  
  2         66  
4 2     2   11 use strict;
  2         5  
  2         65  
5 2     2   9 use Carp;
  2         9  
  2         175  
6              
7 2     2   2294 use version; our $VERSION = qv('0.0.2');
  2         12857  
  2         13  
8              
9 2     2   945 use Geo::Proj;
  0            
  0            
10              
11             sub import {
12             my $tproj = '+proj=latlong +ellps=bessel +towgs84=-146.336,506.832,680.254';
13             Geo::Proj->new(
14             nick => 'tokyo',
15             proj4 => $tproj,
16             );
17             Geo::Proj->new(
18             nick => 'tokyo97',
19             proj4 => $tproj,
20             );
21             Geo::Proj->new(
22             nick => 'jgd2000',
23             proj4 => '+proj=latlong +ellps=GRS80',
24             srid => 4612,
25             );
26             }
27              
28             1; # Magic true value required at end of module
29             __END__