package Dinner;

sub new {
   my $hands_clean = 1;

   return bless({
      wash_hands => sub {
         $hands_clean = 1;
      },

      eat_food => sub {
         die "Filthy\n if !$hands_clean;
         print "Om nom nom\n";
      },
   }, shift);
}

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