Help for this page

Select Code to Download


  1. or download this
    package Dinner;
use strict;
...
}

1;
  2. or download this
    #!/usr/bin/perl -w
use strict;
...
# $dirtyeater->washhands;
$dirtyeater->{'handsclean'} = 1;
$dirtyeater->eatfood;
  3. or download this
    $VAR1 = bless( {
                 'handsclean' => 1
               }, 'Dinner' );
  4. or download this
    package Dinnerclosure;
use strict;
...
}

1;
  5. or download this
    #!/usr/bin/perl -w
use strict;
...
$cleaneater->{'eatfood'}->();
print Dumper $cleaneater;
  6. or download this
    $VAR1 = bless( {
                 'eatfood' => sub { "DUMMY" },
                 'washhands' => sub { "DUMMY" }
               }, 'Dinnerclosure' );