Help for this page
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; }
my @entries = ("Entry #1","Entry #2","Entry #3","Quit"); my $count=0; for (@entries) { $menu->set_choice($count++,$_); }
www.com | www.net | www.org
No recent polls found