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

package My::Module::Test;

use 5.010;

use strict;
use warnings;

use Carp;

our $VERSION = '0.002_01';

use Exporter qw{ import };

our @EXPORT_OK = qw{
    CLASS_VENUS
    NO_STAR
    NO_VENUS
    TEST_CONFIG_FILE
    parsed_value
};
our @EXPORT = @EXPORT_OK;

use constant CLASS_VENUS	=> 'Astro::Coord::ECI::VSOP87D::Venus';

BEGIN {
    local $@ = undef;

    use constant NO_STAR	=> eval {
	require Astro::Coord::ECI::Star;
	1;
    } ? '' : 'Astro::Coord::ECI::Star not available';

    use constant NO_VENUS	=> eval {
	require Astro::Coord::ECI::VSOP87D::Venus;
	1;
    } ? '' : 'Astro::Coord::ECI::VSOP87D::Venus not available';

}

use constant TEST_CONFIG_FILE => NO_STAR ?
    't/data/white-house.cfg' :
    't/data/white-house-with-star.cfg';

sub parsed_value {
    my ( $obj, $string ) = @_;
    $obj->parse( $string )
	or return $obj->value( 'gmt' );
    return $obj->err() . " '$string'";
}


1;

__END__