[adelaide.pm] next perl mongers

David Lloyd lloy0076 at adam.com.au
Mon Feb 22 22:06:53 PST 2010


#!/usr/bin/perl

use strict;
use warnings;

use autodie;

use JustinHawkings;

sub days_I_like {
    return {
        Monday => "Least",
        Thursday => "Middle",
        Friday => "Most",
        Weekends => "No Thanks",
    }
}

sub time_I_like {
    return {
        AfterFive => "Least",
        AfterSix => "Most",
        WorkHours => "No Thanks",
    }
}

my $justin_hawkins = JustinHawkins->new();
$justin_hawkins->volunteered("To Organise the One Time To Rule Them
All");
$justin_hawkins->( { liked_days => days_I_like(), liked_times =>
time_I_like() );

$justin_hawkins->send_email();

1;

# Well you get the gist...

-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.pm.org/pipermail/adelaide-pm/attachments/20100223/6fba9db7/attachment.html>


More information about the Adelaide-pm mailing list