[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