| blib/lib/Regexp/Util.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 7 | 18 | 38.8 |
| line | true | false | branch |
|---|---|---|---|
| 41 | 0 | 1 | unless (is_regexp($re)) |
| 47 | 0 | 1 | if (regexp_seen_evals($re)) |
| 53 | 0 | 1 | if (regexp_is_foreign($re)) |
| 60 | 1 | 0 | unless $str =~ m[\/] |
| 61 | 0 | 0 | unless $str =~ /\!/ |
| 62 | 0 | 0 | unless $str =~ /\#/ |
| 73 | 0 | 1 | if (not defined $str or ref $str) |
| 86 | 0 | 1 | unless (my $re = $safe->reval($str)) |
| 94 | 1 | 0 | if is_regexp($re) |