Select Code to Download

if ($self->hungry()) {
    $self->go_eat();
...
}

....

my @dispatch = (
    [ sub { $_[0]->is_hungry }, sub { $_[0]->go_eat } ],
...
    $choice->[1]->( $self );
    last;
}