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-2009 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 1.06.
5 1     1   4403 use warnings;
  1         2  
  1         50  
6 1     1   5 use strict;
  1         3  
  1         46  
7              
8             package Geo::EOP::Util;
9 1     1   5 use vars '$VERSION';
  1         2  
  1         80  
10             $VERSION = '0.13';
11              
12 1     1   5 use base 'Exporter';
  1         2  
  1         666  
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   8 use constant NS_ATM_ESA => 'http://earth.esa.int/atm';
  1         2  
  1         74  
28 1     1   4 use constant NS_SAR_ESA => 'http://earth.esa.int/sar';
  1         2  
  1         54  
29              
30             # HMA before renaming
31 1     1   5 use constant NS_OHR_ESA => 'http://earth.esa.int/ohr';
  1         2  
  1         129  
32 1     1   5 use constant NS_HMA_ESA => 'http://earth.esa.int/hma';
  1         2  
  1         52  
33              
34             # EOP renaming
35 1     1   5 use constant NS_OPT_ESA => 'http://earth.esa.int/opt';
  1         2  
  1         126  
36 1     1   5 use constant NS_EOP_ESA => 'http://earth.esa.int/eop';
  1         2  
  1         488  
37              
38             1;