use strict;
use warnings;

package GoodWeek;
{
  sub create {
    my $week = shift (@_);
    bless {
            beer  => 'plenty',
            work  => 'reading perl monks',
            pager => 'wonderfully silent',
            code  => 'bug free',
          }, $week;
  }

  1;
}
[download]