[adelaide.pm] next perl mongers
David Lloyd
lloy0076 at adam.com.au
Mon Feb 22 22:08:41 PST 2010
-----Original Message-----
From: David Lloyd <lloy0076 at adam.com.au>
To: Justin Hawkins <justin at hawkins.id.au>
Cc: adelaide-pm at pm.org
Subject: Re: [adelaide.pm] next perl mongers
Date: Tue, 23 Feb 2010 16:36:53 +1030
#!/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() );
#
# Croak me, that was a syntax error...
$justin_hawkins->( { liked_days => days_I_like(), liked_times =>
time_I_like(), } );
$justin_hawkins->send_email();
1;
# Well you get the gist...
_______________________________________________
http://adelaide.pm.org
adelaide-pm at pm.org
http://mail.pm.org/mailman/listinfo/adelaide-pm
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.pm.org/pipermail/adelaide-pm/attachments/20100223/42c8e805/attachment.html>
More information about the Adelaide-pm
mailing list