| blib/lib/Regexp/Exhaustive.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 22 | 22 | 100.0 |
| line | true | false | branch |
|---|---|---|---|
| 46 | 1 | 42 | unless defined $$str_ref |
| 49 | 1 | 41 | unless blessed $re and $re->isa('Regexp') |
| 54 | 1 | 37 | unless defined $_ |
| 56 | 7 | 30 | if exists $Aliases{$_} |
| 59 | 2 | 38 | if (my(@bad) = grep({not $Translate{$_} || /^\$[1-9]\d?\z/;} @vars)) |
| 61 | 1 | 1 | @bad >= 2 ? : |
| 70 | 21 | 17 | if (wantarray) { } |
| 71 | 11 | 10 | if (@vars) { } |
| 72 | 5 | 15 | unless $Translate{$_} |
| 73 | 4 | 7 | if @vars > 1 |
| 109 | 21 | 16 | wantarray ? : |