| line |
true |
false |
branch |
|
32
|
2 |
66 |
unless ($in_ref->{'regexp'}) |
|
38
|
126 |
126 |
if ($accessor eq 'regexp' or $accessor eq 'restore_pattern') { } |
|
|
126 |
0 |
elsif ($accessor eq 'replacement' or $accessor eq 'store') { } |
|
39
|
4 |
122 |
if (ref $in_ref->{$accessor} and ref $in_ref->{$accessor} ne 'Regexp') |
|
48
|
4 |
122 |
if (ref $in_ref->{$accessor} and ref $in_ref->{$accessor} ne 'CODE') |
|
58
|
2 |
56 |
if (ref $in_ref->{'modifier'}) |
|
68
|
5 |
8 |
$in_ref->{'restore_pattern'} ? : |
|
|
13 |
43 |
defined $in_ref->{'store'} ? : |
|
71
|
25 |
31 |
if (defined $in_ref->{'modifier'} or not ref $in_ref->{'regexp'}) |
|
72
|
8 |
17 |
defined $in_ref->{'modifier'} ? : |