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'}) |