| blib/lib/Regexp/From/String.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 19 | 20 | 95.0 |
| line | true | false | branch |
|---|---|---|---|
| 17 | 3 | 5 | if ($str =~ m[\A(?:/.*/|qr\(.*\))(?:[ims]*)\z]s) |
| 18 | 1 | 2 | substr($str, 0, 2) eq 'qr' ? : |
| 19 | 1 | 2 | if $@ |
| 26 | 4 | 5 | ref $_[0] eq 'HASH' ? : |
| 28 | 3 | 6 | if (not $opts->{'always_quote'} and $str =~ m[\A(?:/.*/|qr\(.*\))(?:[ims]*)\z]s) { } |
| 29 | 1 | 2 | substr($str, 0, 2) eq 'qr' ? : |
| 30 | 1 | 2 | if $@ |
| 34 | 1 | 5 | if ($opts->{'anchored'}) { } |
| 35 | 0 | 1 | if ($opts->{'case_insensitive'}) { } |
| 37 | 1 | 4 | if ($opts->{'case_insensitive'}) { } |