No terminar hasta que no se elija una opción valida

[neodani]

Buenas,

Una pregunta mas sobre el menú, sabéis si existe la posibilidad de colorear la opción del menu? linea 15

Código PERL:

1 #!/usr/bin/perl
  2
  3 use strict;
  4 use warnings;
  5 use diagnostics;
  6 use Term::Menu;
  7
  8 my $answer = 0;
  9
 10     my $prompt = Term::Menu->new(
 11         beforetext      => '',
 12         aftertext       => 'Introduce una opcion por favor --> ',
 13         nooptiontext    => '',
 14         toomanytries    => "\nSeleccionaste una opcion no valida",
 15         toomanytries    => colored("\nSeleccionaste una opcion no valida", 'bold red'),
 16     );
 17 do {
 18
 19     $answer = $prompt->menu(
 20         resguardo     => ["resguardo",                1 ],
 21         sqlaltas      => ["sqlaltas",                 2 ],
 22         sqlcronograma => ["sqlcronogramas",           3 ],
 23         Ayuda         => ["Ayuda sobre el  Programa", 4 ],
 24         Salir         => ["Salir del Programa",       5 ],
 25     );
 26 } until ($answer);
 27
 28 print "\n";
 29 print "$answer \n";
 30
 31 if ($answer eq 'resguardo') {
 32     print "Has elegido sede resguardo ";
 33 }
 34 elsif ($answer eq 'sqlaltas') {
 35     print "Has elegido sede sqlaltas ";
 36     }
 

Lo probé con
toomanytries => colored("\nSeleccionaste una opcion no valida", 'bold red'),

Pero me arroja un error, imagino que no está permitido hacerlo así...

Undefined subroutine &main::colored called at ./test.pl line 10 (#1)
(F) The subroutine indicated hasn't been defined, or if it was, it has
since been undefined.

Uncaught exception from user code:
Undefined subroutine &main::colored called at ./test.pl line 10.
at ./test.pl line 10

Muchas gracias de antemano!