1. Toby Inkster
  2. p5-ask

Commits

Toby Inkster  committed f3a5d53

minor improvements for IO::Prompt::Tiny example

  • Participants
  • Parent commits 981d077
  • Branches default

Comments (0)

Files changed (1)

File articles/ask-introduction.pod

View file
    use warnings;
    use IO::Prompt::Tiny qw(prompt);
    
-   # In non-interactive mode, assume they want no fries...
    my $answer;
    until (defined $answer) {
-      print "Would you like fries with that?\n";
+      # In non-interactive mode, assume they want no fries...
       $_ = prompt("Would you like fries with that?", "No");
       $answer = 1 if /^Y/i;
       $answer = 0 if /^N/i;