File Coverage

blib/lib/GIS/Distance/Constants.pm
Criterion Covered Total %
statement 14 14 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod n/a
total 19 19 100.0


line stmt bran cond sub pod time code
1             package GIS::Distance::Constants;
2 2     2   44 use 5.008001;
  2         6  
3 2     2   10 use strictures 2;
  2         14  
  2         74  
4             our $VERSION = '0.20';
5              
6 2     2   1134 use Const::Fast;
  2         1761  
  2         11  
7 2     2   115 use namespace::clean;
  2         3  
  2         12  
8              
9 2     2   367 use Exporter qw( import );
  2         5  
  2         180  
10             our @EXPORT_OK;
11             our %EXPORT_TAGS = ( all => \@EXPORT_OK );
12              
13             const our $KILOMETER_RHO => 6371.64;
14             push @EXPORT_OK, '$KILOMETER_RHO';
15              
16             const our $DEG_RATIO => 0.0174532925199433;
17             push @EXPORT_OK, '$DEG_RATIO';
18              
19             1;
20             __END__