Help for this page

Select Code to Download

Select or download this

sub set_choice {
    my ($self, $id, $name, $sub_or_id, $return_sub) = @_;
...
        $self->{$id}{_sub_or_id} = $sub_or_id;
        $self->{$id}{_return_sub} = $return_sub;
}

Select or download this

my @entries = ("Entry #1","Entry #2","Entry #3","Quit");
my $count=0;
for (@entries) {
        $menu->set_choice($count++,$_);
}