File Coverage

inc/My/Module/Test.pm

Criterion	Covered	Total	%
statement	41	41	100.0
branch			n/a
condition			n/a
subroutine	15	15	100.0
pod	6	6	100.0
total	62	62	100.0

package My::Module::Test;

use 5.008;

use strict;
use warnings;

use Astro::Coord::ECI;
use Astro::Coord::ECI::Utils qw{ AU deg2rad rad2deg };
use Carp;
use Exporter qw{ import };
use Test::More 0.88;	# Because of done_testing();

our $VERSION = '0.005_01';

our @EXPORT = qw{
    is_au_au
    is_km_au
    is_rad_deg
    strftime_h
    strftime_m
    washington_dc
};

{
    package Astro::Coord::ECI::VSOP87D;
    use constant DEBUG => $ENV{VSOP87D_DEBUG};
}

sub is_au_au {
    my ( $got, $want, $dp, $title ) = @_;
    my $tplt = "%.${dp}f";
    @_ = (
	sprintf( $tplt, $got ),
	sprintf( $tplt, $want ),
	$title,
    );
    goto &is;
}

sub is_km_au {
    splice @_, 0, 1, $_[0] / AU;
    goto &is_au_au;
}

sub is_rad_deg {
    my ( $got, $want, $dp, $title ) = @_;
    my $tplt = "%.${dp}f";
    @_ = (
	sprintf( $tplt, rad2deg( $got ) ),
	sprintf( $tplt, $want ),
	$title,
    );
    goto &is;
}

sub strftime_h {
    my ( $time ) = @_;
    return POSIX::strftime( '%Y-%m-%d %H', gmtime( $time + 1800 ) );
}

sub strftime_m {
    my ( $time ) = @_;
    return POSIX::strftime( '%Y-%m-%d %H:%M', gmtime( $time + 30 ) );
}

sub washington_dc {
    return Astro::Coord::ECI->new(
    )->geodetic(
	deg2rad( 38.89 ),
	deg2rad( -77.03 ),
	0,
    );
}

1;

__END__