package Date::Birth::DayStone;
use strict;
use warnings FATAL => qw( all );
use Exporter qw(import);
our @EXPORT = qw(day_stone);

use Date::Calc qw(:all);
use String::Util qw(trim);

use Date::Verify qw(month_number);

my $day_stones;
while (<DATA>) {
  chomp($_);
  my ($day, $stone) = split(/\|/, $_);
  $day_stones->{trim($day)} = $stone;
}

sub day_stone {
  my ($year, $month, $day) = @_;
  $month = month_number($month);
  
  my $dow       = Day_of_Week($year, $month, $day);
  my $day_word  = Day_of_Week_to_Text($dow);

  return $day_stones->{$day_word};
}

=head1 NAME

B<Date::Birth::DayStone> returns the birthday stone for the day of the week you were born.

=head1 SYNOPSIS

  my $day_stone = day_stone(1970, 'July', 3);
  # emerald or cat's eye

=head1 DESCRIPTION

C<day_stone> is exported by default and returns the birthday stone associated with the day of the week you were born. Enter the 4-digit year, the month, and day you were born.

=head1 AUTHOR

Lady Aleena

=cut

1;

__DATA__
Sunday   |topaz or diamond
Monday   |pearl or crystal
Tuesday  |ruby or emerald
Wednesday|amethyst or lodestone
Thursday |sapphire or carnelian
Friday   |emerald or cat's eye
Saturday |turquiose or diamond