#!/usr/bin/perl

use strict;
use warnings;
use Expect;
use Data::Dumper;
use Net::MOO;

my $moo = Net::MOO->connect();

sub huh {
    my ($moo, $id) = @_;
    $moo->page($id, "huh?");
}

sub send_dia {
    my ($moo, $id) = @_;
    my @x = localtime;
    my $day = $x[3];
    my $month = (qw!Janeiro Fevereiro Marco Abril Maio Junho Julho Agosto Setembro Outubro Novembro Dezembro!)[$x[4]];
    $moo->page($id,"$day de $month!");
}

sub bom_dia {
    my ($moo, $id) = @_;
    $moo->page($id, "Ola', como estas?");
}

sub send_time {
    my ($moo, $id) = @_;
    my $msg = localtime;
    $moo->page($id,$msg);
}

$moo->add_page_action( qr/que dia .* hoje\?/i, \&send_dia);
$moo->add_page_action( qr/^!time/, \&send_time);
$moo->add_page_action( qr/bom dia/, \&bom_dia);
$moo->add_page_action( qr/./, \&huh);
$moo->run();