File Coverage

inc/My/Module/Test.pm
Criterion Covered Total %
statement 32 35 91.4
branch 3 6 50.0
condition n/a
subroutine 11 11 100.0
pod 1 1 100.0
total 47 53 88.6


line stmt bran cond sub pod time code
1             package My::Module::Test;
2              
3 2     2   4983 use 5.010;
  2         8  
4              
5 2     2   43 use strict;
  2         3  
  2         34  
6 2     2   9 use warnings;
  2         2  
  2         68  
7              
8 2     2   14 use Carp;
  2         3  
  2         154  
9              
10             our $VERSION = '0.003';
11              
12 2     2   11 use Exporter qw{ import };
  2         3  
  2         130  
13              
14             our @EXPORT_OK = qw{
15             CLASS_VENUS
16             NO_STAR
17             NO_VENUS
18             TEST_CONFIG_FILE
19             parsed_value
20             };
21             our @EXPORT = @EXPORT_OK;
22              
23 2     2   22 use constant CLASS_VENUS => 'Astro::Coord::ECI::VSOP87D::Venus';
  2         2  
  2         176  
24              
25 0         0 BEGIN {
26 2     2   45 local $@ = undef;
27              
28 2 50       2 use constant NO_STAR => eval {
29 2         898 require Astro::Coord::ECI::Star;
30 2         4511 1;
31 2     2   11 } ? '' : 'Astro::Coord::ECI::Star not available';
  2         4  
32              
33 2 50       3 use constant NO_VENUS => eval {
34 2         320 require Astro::Coord::ECI::VSOP87D::Venus;
35 0         0 1;
36 2     2   12 } ? '' : 'Astro::Coord::ECI::VSOP87D::Venus not available';
  2         2  
37              
38             }
39              
40 2         189 use constant TEST_CONFIG_FILE => NO_STAR ?
41             't/data/white-house.cfg' :
42 2     2   10 't/data/white-house-with-star.cfg';
  2         4  
43              
44             sub parsed_value {
45 11     11 1 8092 my ( $obj, $string ) = @_;
46 11 50       37 $obj->parse( $string )
47             or return $obj->value( 'gmt' );
48 0           return $obj->err() . " '$string'";
49             }
50              
51              
52             1;
53              
54             __END__