File Coverage

blib/lib/Astro/Units.pm

Criterion	Covered	Total	%
statement	79	79	100.0
branch	7	8	87.5
condition	2	3	66.6
subroutine	42	42	100.0
pod	31	31	100.0
total	161	163	98.7

package Astro::Units;

use strict;
use warnings;

use Carp;

use bignum;
use Math::BigFloat;

Math::BigFloat->config({
    div_scale => 0,
    accuracy => undef,
});

our $VERSION = '1.10';
use constant {
    ONE_LIGHT_YEAR   => Math::BigFloat->new('9_460_730_472_580.8'),
    ONE_LIGHT_WEEK   => Math::BigFloat->new('181_314_478_598.399_9'),
    ONE_LIGHT_DAY    => Math::BigFloat->new('25_902_068_371.199_997'),
    ONE_LIGHT_HOUR   => Math::BigFloat->new('1_079_252_848.8'),
    ONE_LIGHT_MINUTE => Math::BigFloat->new('17_987_547.48'),
    ONE_LIGHT_SECOND => Math::BigFloat->new('299_792.458'),
    ONE_AU           => Math::BigFloat->new('149_597_870.7'),
    ONE_PARSEC       => Math::BigFloat->new('30_856_775_814_914.218_05'),
    ONE_MILE         => Math::BigFloat->new('1.609_344'),
};

sub new {
    my $class = shift;
    my %args = @_;
    my $self = {};
    if (exists $args{unit} && defined $args{unit}) {
        my $u = lc (substr($args{unit},0,1) );
        croak("Invalid unit use Either (Miles or Kilometers) or (mi or km) Default is Kilometers\n")
        unless ( $u =~ /^(m|k)/i);
       $self->{unit} = $u;
    } else {
        $self->{unit} = 'k';
    }
    return bless($self, $class);
}

sub _clean  {
    my $raw_string = shift;
    $raw_string =~ s/([a-zA-Z\s_,\s])//g;
    return $raw_string;
}

#atrological units to km/mi
sub get_astronomical_units { return _calculate(@_, ONE_AU) }

sub get_light_years { return _calculate( @_, ONE_LIGHT_YEAR) }

sub get_light_week { return _calculate( @_, ONE_LIGHT_WEEK) }

sub get_light_days { return _calculate( @_, ONE_LIGHT_DAY) }

sub get_light_hours { return _calculate( @_, ONE_LIGHT_HOUR) }

sub get_light_minutes { return _calculate( @_, ONE_LIGHT_MINUTE)}

sub get_light_seconds { return _calculate( @_, ONE_LIGHT_SECOND) }

sub get_light_parsecs { return _calculate( @_, ONE_PARSEC) }

#reverse function km/mi to astro
sub convert_to_astronomical_units { return _reverse_calculate(@_, ONE_AU) }

sub convert_to_light_years { return _reverse_calculate( @_, ONE_LIGHT_YEAR) }

sub convert_to_light_weeks { return _reverse_calculate( @_, ONE_LIGHT_WEEK) }

sub convert_to_light_days { return _reverse_calculate( @_, ONE_LIGHT_DAY) }

sub convert_to_light_hours { return _reverse_calculate( @_, ONE_LIGHT_HOUR) }

sub convert_to_light_minutes { return _reverse_calculate( @_, ONE_LIGHT_MINUTE)}

sub convert_to_light_seconds { return _reverse_calculate( @_, ONE_LIGHT_SECOND) }

sub convert_to_light_parsec { return _reverse_calculate( @_, ONE_PARSEC) }

#Asu to light units miles/kilometers not applicable

sub au_to_light_years { return _au_to_light(@_, ONE_LIGHT_YEAR) }

sub au_to_light_weeks { return _au_to_light( @_, ONE_LIGHT_WEEK) }

sub au_to_light_days { return _au_to_light( @_, ONE_LIGHT_DAY) }

sub au_to_light_hours { return _au_to_light( @_, ONE_LIGHT_HOUR) }

sub au_to_light_minutes { return _au_to_light( @_, ONE_LIGHT_MINUTE) }

sub au_to_light_seconds { return _au_to_light( @_, ONE_LIGHT_SECOND)}

sub au_to_light_parsecs { return _au_to_light( @_, ONE_PARSEC) }

#light units to astronomical units miles/kilometers not applicable

sub light_years_to_au { return _light_to_au(@_, ONE_LIGHT_YEAR) }

sub light_weeks_to_au { return _light_to_au( @_, ONE_LIGHT_WEEK) }

sub light_days_to_au { return _light_to_au( @_, ONE_LIGHT_DAY) }

sub light_hours_to_au { return _light_to_au( @_, ONE_LIGHT_HOUR) }

sub light_minutes_to_au { return _light_to_au( @_, ONE_LIGHT_MINUTE) }

sub light_seconds_to_au { return _light_to_au( @_, ONE_LIGHT_SECOND)}

sub light_parsecs_to_au { return _light_to_au( @_, ONE_PARSEC) }

sub _calculate {
    my ($self,$raw_inp,$multiplier) = @_;
    my $inp = Math::BigFloat->new(_clean($raw_inp));
    my $res = $inp->bmul($multiplier);
    return $self->{unit} eq 'm' ? $res->bdiv(ONE_MILE) : $res;
}

sub _reverse_calculate {
    my ($self,$raw_inp,$divisor) = @_;
    my $inp = Math::BigFloat->new(_clean($raw_inp));
    $inp = $inp->bmul(ONE_MILE) if ($self->{unit} eq 'm');
    my $res = $inp->bdiv($divisor);
    return $res;
}

sub _au_to_light {
    my ($self,$raw_inp,$divisor) = @_;
    my $inp = Math::BigFloat->new(_clean($raw_inp));
    my $au_km = $inp->bmul(ONE_AU);
    my $res = $au_km->bdiv($divisor);
    return $res;
}

sub _light_to_au {
    my ($self,$raw_inp,$multiplier) = @_;
    my $inp = Math::BigFloat->new(_clean($raw_inp));
    my $lu_km = $inp->bmul($multiplier);
    my $res = $lu_km->bdiv(ONE_AU);
    return $res;
}

1;

__END__