| line |
true |
false |
branch |
|
18
|
22 |
17 |
ref $_[0] eq 'HASH' ? : |
|
21
|
1 |
34 |
defined $opt_ci2 ? : |
|
|
4 |
35 |
defined $opt_ci1 ? : |
|
23
|
36 |
3 |
unless defined $opt_anchored |
|
24
|
31 |
8 |
unless defined $opt_safety |
|
25
|
2 |
37 |
if keys %$opts |
|
29
|
23 |
14 |
if (not $opt_always_quote and $str =~ m[\A(?:/(.*)/|qr\((.*)\))(?:[ims]*)\z]s) { } |
|
31
|
10 |
13 |
substr($str, 0, 2) eq 'qr' ? : |
|
32
|
3 |
20 |
if $opt_ci |
|
33
|
2 |
21 |
if $opt_anchored |
|
38
|
4 |
19 |
if ($opt_safety == 0) { } |
|
|
4 |
15 |
elsif ($opt_safety == 2) { } |
|
40
|
0 |
4 |
if $@ |
|
44
|
2 |
0 |
if Regexp::Util::regexp_seen_evals($re) |
|
47
|
9 |
6 |
if (defined $pat1) { } |
|
48
|
1 |
8 |
if $pat1 =~ m[/] |
|
50
|
2 |
4 |
if $pat2 =~ /\)/ |
|
52
|
8 |
4 |
defined $pat1 ? : |
|
53
|
1 |
11 |
if $pat =~ /\(\?\??\{/ |
|
56
|
2 |
9 |
if $@ |
|
61
|
7 |
7 |
if $which eq "str_maybe_to_re" |
|
64
|
0 |
1 |
$opt_ci ? : |
|
|
2 |
4 |
$opt_ci ? : |
|
|
1 |
6 |
$opt_anchored ? : |