[adelaide.pm] Thursday's Topic: A Whirlwind Tour of Object Oriented Perl

[David Lloyd]

package Today;

use Moose;

=pod

=head1 Instructions

Run this script so today can act as though it is Friday and come along.

  use Today;

  my $today = Today->new();
  $today->print_day_name();
  
=cut

# Provides the print_day_name() method which returns 'Friday'.
does 'Friday';

1;


On 26/08/2010, at 9:59 AM, Andrew Kirkpatrick wrote:

> On 25/08/10 15:00, Justin Hawkins wrote:
>> Reminder: This is tomorrow!!
> 
> I can't do thursdays, oh well!