File Coverage

blib/lib/Date/Converter.pm

Criterion	Covered	Total	%
statement	33	40	82.5
branch	5	10	50.0
condition			n/a
subroutine	10	11	90.9
pod	0	6	0.0
total	48	67	71.6

package Date::Converter;

use strict;
use POSIX;

use vars qw($VERSION);
$VERSION = 1.1;

sub new {
    my ($class, $from, $to) = @_;

    my $this = {};

    $from = ucfirst lc $from;
    $to   = ucfirst lc $to;

    eval <
        use Date::Converter::$from;
        use Date::Converter::$to;
        \$this->{to_jed  } = \\&Date::Converter::${from}::ymdf_to_jed;
        \$this->{from_jed} = \\&Date::Converter::${to  }::jed_to_ymdf;
EVAL

    bless $this, $class;

    return $this;
}

sub convert {
    my ($this, $year, $month, $day) = @_;

    return $this->{from_jed}($this->{to_jed}($year, $month, $day));
}

sub y_common_to_astronomical {
    my $y = shift;

    if ($y < 0) {
        return $y + 1;
    }
    elsif (!$y) {
        return -INT_MAX();
    }
    else {
        return $y;
    }
}

sub y_astronomical_to_common {
    my $y = shift;

    return $y <= 0  ? $y - 1 : $y;
}

sub i_modp {
    my ($i, $j) = @_;

    my $ret = $i % $j;
    $ret += abs ($j) if $ret < 0;

    return $ret;
}

sub i_wrap {
    my ($ival, $ilo, $ihi) = @_;

    my $wide = $ihi + 1 - $ilo;

    if ($wide == 0) {
        return $ilo;
    }
    else {
      return $ilo + i_modp($ival - $ilo, $wide);
    }
}

1;

__END__