<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 TRANSITIONAL//EN">
<HTML>
<HEAD>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; CHARSET=UTF-8">
<META NAME="GENERATOR" CONTENT="GtkHTML/3.28.1">
</HEAD>
<BODY>
-----Original Message-----<BR>
<B>From</B>: David Lloyd <<A HREF="mailto:David%20Lloyd%20%3clloy0076@adam.com.au%3e">lloy0076@adam.com.au</A>><BR>
<B>To</B>: Justin Hawkins <<A HREF="mailto:Justin%20Hawkins%20%3cjustin@hawkins.id.au%3e">justin@hawkins.id.au</A>><BR>
<B>Cc</B>: <A HREF="mailto:adelaide-pm@pm.org">adelaide-pm@pm.org</A><BR>
<B>Subject</B>: Re: [adelaide.pm] next perl mongers<BR>
<B>Date</B>: Tue, 23 Feb 2010 16:36:53 +1030<BR>
<BR>
<BR>
#!/usr/bin/perl<BR>
<BR>
use strict;<BR>
use warnings;<BR>
<BR>
use autodie;<BR>
<BR>
use JustinHawkings;<BR>
<BR>
sub days_I_like {<BR>
return {<BR>
Monday => "Least",<BR>
Thursday => "Middle",<BR>
Friday => "Most",<BR>
Weekends => "No Thanks",<BR>
}<BR>
}<BR>
<BR>
sub time_I_like {<BR>
return {<BR>
AfterFive => "Least",<BR>
AfterSix => "Most",<BR>
WorkHours => "No Thanks",<BR>
}<BR>
}<BR>
<BR>
my $justin_hawkins = JustinHawkins->new();<BR>
$justin_hawkins->volunteered("To Organise the One Time To Rule Them All");<BR>
<BR>
#$justin_hawkins->( { liked_days => days_I_like(), liked_times => time_I_like() );<BR>
#<BR>
# Croak me, that was a syntax error...<BR>
<BR>
$justin_hawkins->( { liked_days => days_I_like(), liked_times => time_I_like(), } );<BR>
$justin_hawkins->send_email();<BR>
<BR>
1;<BR>
<BR>
# Well you get the gist...<BR>
<BR>
<BR>
<PRE>
_______________________________________________
<A HREF="http://adelaide.pm.org">http://adelaide.pm.org</A>
<A HREF="mailto:adelaide-pm@pm.org">adelaide-pm@pm.org</A>
<A HREF="http://mail.pm.org/mailman/listinfo/adelaide-pm">http://mail.pm.org/mailman/listinfo/adelaide-pm</A>
</PRE>
<BR>
</BODY>
</HTML>