Select Code to Download

package UsesClosures;

...
sub get_attr    { &{ shift->{get_attr   } } };
sub set_attr    { &{ shift->{set_attr   } } };
sub some_method { &{ shift->{some_method} } };

my $o = UsesClosures->new();
$o->set_attr(123);
print $o->get_attr();
$o->some_method();

package Dinner;

...

sub wash_hands { &{ shift->{wash_hands} } };
sub eat_food   { &{ shift->{eat_food  } } };

my $dirtyeater = Dinner->new();
$dirtyeater->wash_hands();
$dirtyeater->eat_food();