File Coverage

lib/Geo/EOP/Util.pm
Criterion Covered Total %
statement 30 30 100.0
branch n/a
condition n/a
subroutine 10 10 100.0
pod n/a
total 40 40 100.0


line stmt bran cond sub pod time code
1             # Copyrights 2008-2015 by [Mark Overmeer].
2             # For other contributors see ChangeLog.
3             # See the manual pages for details on the licensing terms.
4             # Pod stripped from pm file by OODoc 2.01.
5 1     1   99692 use warnings;
  1         3  
  1         41  
6 1     1   7 use strict;
  1         2  
  1         42  
7              
8             package Geo::EOP::Util;
9 1     1   6 use vars '$VERSION';
  1         2  
  1         70  
10             $VERSION = '0.50';
11              
12 1     1   6 use base 'Exporter';
  1         2  
  1         204  
13              
14             our @hmas = qw/NS_ATM_ESA NS_OHR_ESA NS_SAR_ESA NS_HMA_ESA/;
15             our @eops = qw/NS_ATM_ESA NS_OPT_ESA NS_SAR_ESA NS_EOP_ESA/;
16              
17             our @EXPORT = (@hmas, @eops);
18              
19             our @EXPORT_TAGS =
20             ( hma10 => \@hmas
21             , eop11 => \@eops
22             , eop12beta => \@eops
23             , eop121 => \@eops
24             );
25              
26              
27 1     1   7 use constant NS_ATM_ESA => 'http://earth.esa.int/atm';
  1         1  
  1         107  
28 1     1   5 use constant NS_SAR_ESA => 'http://earth.esa.int/sar';
  1         2  
  1         42  
29              
30             # HMA before renaming
31 1     1   3 use constant NS_OHR_ESA => 'http://earth.esa.int/ohr';
  1         1  
  1         37  
32 1     1   4 use constant NS_HMA_ESA => 'http://earth.esa.int/hma';
  1         2  
  1         36  
33              
34             # EOP renaming
35 1     1   5 use constant NS_OPT_ESA => 'http://earth.esa.int/opt';
  1         1  
  1         36  
36 1     1   4 use constant NS_EOP_ESA => 'http://earth.esa.int/eop';
  1         1  
  1         51  
37              
38             1;