The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
 / 
FunctionalPerl-0.72.53
River stage zero No dependents
6 ++
/ Chj::Util::AskYN

NAME

Chj::Util::AskYN

SYNOPSIS

    use Chj::Util::AskYN;

    LP: {
        if (maybe_askyn "Do you want to retry?") {
            redo LP;
        }
    }

DESCRIPTION

Simply ask for a boolean question on stdout/stdin. Accept y/n, yes/no in english, german and french and return those as boolean true/false. If the user closes the input (using ctl-d), undef is returned.

TODO

Delete this and use something else?

NOTE

This is alpha software! Read the status section in the package README or on the website.