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   38 use 5.008001;
  2         7  
3 2     2   10 use strictures 2;
  2         15  
  2         74  
4             our $VERSION = '0.19';
5              
6 2     2   1497 use Const::Fast;
  2         2052  
  2         14  
7 2     2   137 use namespace::clean;
  2         5  
  2         12  
8              
9 2     2   467 use Exporter qw( import );
  2         3  
  2         223  
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__