Term::Prompt broken? Or am I misreading documentation?

[Daniel M. Drucker]

Term:rompt appears to be either very badly broken ... or I'm
completely misreading the documentation.

Term:rompt's menuing system really doesn't seem to behave anything
like described in the documentation.

In this script, only the first prompt displays a menu at all, and
misnumbered, at that.

Can ANYONE tell me if I'm doing something wrong, or if this is a bug
in Term:rompt?

Daniel Drucker
(e-mail address removed)

#!/usr/bin/perl

use Term:rompt;

my @fruits = qw(apple orange pear tomato grapefruit apricot peach);

my $fruitnum = &prompt("m", {
prompt => "Choose:",
title => "Fruits",
items => [@fruits],
order => 'down',
accept_empty_selection => 0,
accept_multiple_selections => 0,
});

print "you chose " . $fruits[$fruitnum] . "\n";

print "\n=============\n";


my $fruitnum = &prompt("m", {
prompt => "Choose:",
title => "Fruits",
items => [@fruits],
order => 'down',
cols => 1,
accept_empty_selection => 0,
accept_multiple_selections => 0,
});

print "you chose " . $fruits[$fruitnum] . "\n";

print "\n=============\n";

my $fruitnum = &prompt("m", {
prompt => "Choose:",
title => "Fruits",
items => [@fruits],
order => 'across',
accept_empty_selection => 0,
accept_multiple_selections => 0,
});

print "you chose " . $fruits[$fruitnum] . "\n";

print "\n=============\n";

my $fruitnum = &prompt("m", {
prompt => "Choose:",
title => "Fruits",
items => [@fruits],
order => 'across',
rows => 1,
accept_empty_selection => 0,
accept_multiple_selections => 0,
});

print "you chose " . $fruits[$fruitnum] . "\n";

print "\n=============\n";

 

[Bill]

Term:rompt appears to be either very badly broken ... or I'm
completely misreading the documentation.

Term:rompt's menuing system really doesn't seem to behave anything
like described in the documentation.

In this script, only the first prompt displays a menu at all, and
misnumbered, at that.

Can ANYONE tell me if I'm doing something wrong, or if this is a bug
in Term:rompt?

Daniel Drucker
(e-mail address removed)

#!/usr/bin/perl

use Term:rompt;

my @fruits = qw(apple orange pear tomato grapefruit apricot peach);

my $fruitnum = &prompt("m", {
prompt => "Choose:",
title => "Fruits",
items => [@fruits],
order => 'down',
accept_empty_selection => 0,
accept_multiple_selections => 0,
});

I'm pretty sure that the above is not a correct call of the 'prompt'
function. Though why it behaves the way it does is unclear. What happens
if you add 'use strict'?

 

[Daniel M. Drucker]

I'm pretty sure that the above is not a correct call of the 'prompt'
function. Though why it behaves the way it does is unclear. What happens
if you add 'use strict'?

Not sure, as I got Term:rompt version 0.12 (in the process of being
posted to CPAN - there's been a change of package ownership that's
delayed it), which fixed the problem.

Daniel Drucker

 

[Daniel M. Drucker]

Not sure, as I got Term:rompt version 0.12 (in the process of being

posted to CPAN - there's been a change of package ownership that's

Term:rompt 0.12 is now available on CPAN, and solves the problem I was having.

Daniel