package SpaceAge;
use strict;
use warnings;
use Exporter qw<import>;
our @EXPORT_OK = qw<age_on_planet>;

sub age_on_planet {
  my ($args) = @_;
  my $EARTH_ORBIT_PER_SECONDS = 31557600;
  my %ORBITAL_PERIOD = (
        Mercury         => 0.2408467,
        Venus           => 0.61519726,
        Earth           => 1,
        Mars            => 1.8808158,
        Jupiter         => 11.862615,
        Saturn          => 29.447498,
        Uranus          => 84.016846,
        Neptune         => 164.79132,
  );

return sprintf("%.2f", $args->{seconds} / $EARTH_ORBIT_PER_SECONDS / $ORBITAL_PERIOD{ $args->{planet} });

}

1;