| blib/lib/IO/Prompt/Hooked.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 18 | 18 | 100.0 |
| line | true | false | branch |
|---|---|---|---|
| 58 | 2 | 47 | ref $_[0] ? : |
| 61 | 48 | 1 | defined $args{'message'} ? : |
| 65 | 22 | 76 | if (ref $args{$arg} eq 'Regexp') |
| 72 | 14 | 35 | if (ref $args{'error'} ne 'CODE') |
| 78 | 5 | 44 | if ($ENV{'PERL_MM_USE_DEFAULT'} || !_is_interactive() and $args{'tries'} < 0) |
| 91 | 1 | 48 | if defined $tries and $tries == 0 |
| 100 | 4 | 108 | if &$escape_cb($raw, $tries) |
| 102 | 28 | 80 | if &$validate_cb($raw, $tries) |
| 104 | 12 | 5 | if (my $error_msg = &$error_cb($raw, $tries) and _is_interactive() and not $ENV{'PERL_MM_USE_DEFAULT'}) |