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   40 use 5.008001;
  2         6  
3 2     2   16 use strictures 2;
  2         19  
  2         87  
4             our $VERSION = '0.18';
5              
6 2     2   1466 use Const::Fast;
  2         2086  
  2         14  
7 2     2   140 use namespace::clean;
  2         5  
  2         16  
8              
9 2     2   461 use Exporter qw( import );
  2         5  
  2         225  
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__