#!/usr/bin/perl

# predict_day.pl
# Tells what sort of day you will have based on your mood

use strict; use warnings; use feature 'say';

use DayPredict;

my $mood = $ARGV[0] or die "no mood!";

my $prediction = DayPredict::predict( $mood );

if ( $prediction ) {
    say 'Your day will ' . $prediction . ', do not worry.';
} else {
    say 'Cannot read your mood so unable to predict your day.';
}

__END__