From 5d9eeef458159fb0e6b36b6b6d37bdb30436c77d Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Sun, 27 Jan 2002 22:28:10 +0000 Subject: add a minimal example --- perl-install/interactive.pm | 6 ++++++ 1 file changed, 6 insertions(+) (limited to 'perl-install/interactive.pm') 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 -- cgit v1.2.1