diff options
| -rw-r--r-- | perl-install/interactive.pm | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/perl-install/interactive.pm b/perl-install/interactive.pm index 809281ea7..c693155c5 100644 --- a/perl-install/interactive.pm +++ b/perl-install/interactive.pm @@ -9,6 +9,12 @@ use strict; use MDK::Common::Func; use common; +#- minimal example using interactive: +#- > use interactive; +#- > my $in = interactive->vnew; +#- > $in->ask_okcancel('title', 'question'); +#- > $in->exit; + #- ask_from_entries takes: #- val => reference to the value #- label => description |