package Dinnerclosure;
use strict;
use warnings; 

sub new {
    my ($class) = @_;
    my $self = {};
    my $selfmirage = {};
    $selfmirage->{'washhands'} = sub { 
                                   washhands($self); 
                                 };
    $selfmirage->{'eatfood'} = sub { 
                                   eatfood($self); 
                               };
    bless $selfmirage, $class;
    return $selfmirage;
}

sub washhands {
    my ($obj) = @_;
    $obj->{'handsclean'} = 1;
    return 1;
}

sub eatfood {
    my ($obj) = @_;
    if (exists $obj->{'handsclean'}) {
        print "\nYou washed your hands -eat all you want\n";
    } else {
        print "\nYou filthy animal!! Go wash your hands\n";
    }
    return 1;
}

1;