| blib/lib/Babble/Plugin/SubstituteAndReturn.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 12 | 16 | 75.0 |
| line | true | false | branch |
|---|---|---|---|
| 29 | 40 | 0 | if ($text =~ /$OP_TYPE_RE/x) |
| 64 | 7 | 22 | unless eval { |
| 69 | 12 | 10 | unless (my $newflags = $flags) =~ s/r//g |
| 83 | 0 | 11 | unless (my $nf_c = $f_c) =~ s/r//g |
| 92 | 7 | 3 | if (@chained_subs) { } |
| 125 | 7 | 13 | if ($expr_text =~ /$OP_TYPE_RE/x) { } |
| 128 | 0 | 7 | unless @pos and $pos[0][0] == 0 |
| 136 | 0 | 7 | unless $flags =~ /r/ |