Commits

Toby Inkster committed f3a5d53

minor improvements for IO::Prompt::Tiny example

Comments (0)

Files changed (1)

articles/ask-introduction.pod

    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;