[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