Source

p5-ask / examples / synopsis.pl

Full commit
1
2
3
4
5
6
7
8
9
use 5.010;
use Ask;

my $ask = Ask->detect;
if ($ask->question(text => "Are you happy?")
and $ask->question(text => "Do you know it?")
and $ask->question(text => "Really want to show it?")) {
	$ask->info(text => "Then clap your hands!");
}