File Coverage

blib/lib/Geo/Coordinates/Converter/Datum/Wgs84.pm
Criterion Covered Total %
statement 13 13 100.0
branch n/a
condition n/a
subroutine 6 6 100.0
pod 0 3 0.0
total 19 22 86.3


line stmt bran cond sub pod time code
1             package Geo::Coordinates::Converter::Datum::Wgs84;
2 3     3   2377 use strict;
  3         8  
  3         149  
3 3     3   20 use warnings;
  3         6  
  3         95  
4 3     3   15 use parent 'Geo::Coordinates::Converter::Datum';
  3         5  
  3         20  
5              
6 12     12 0 54 sub name { 'wgs84' }
7 16     16 0 59 sub radius { 6378137 }
8             sub rate {
9 24     24 0 35 my $r = 1 / 298.257223563;
10 24         131 2 * $r - $r * $r;
11             }
12              
13             1;