| line |
true |
false |
branch |
|
10
|
0 |
3 |
if ($] < 5.01) |
|
33
|
1 |
13 |
if (ref $in_ref ne 'HASH') |
|
38
|
0 |
13 |
unless (exists $$in_ref{'reggrp'}) |
|
43
|
0 |
13 |
if (ref $$in_ref{'reggrp'} ne 'ARRAY') |
|
48
|
0 |
13 |
if (ref $$in_ref{'restore_pattern'} and ref $$in_ref{'restore_pattern'} ne 'Regexp') |
|
71
|
0 |
38 |
unless ($reggrp_data) |
|
89
|
0 |
13 |
$] < 5.01 ? : |
|
99
|
0 |
38 |
if ($] < 5.01) |
|
107
|
0 |
38 |
if ($] < 5.01) { } |
|
164
|
20 |
28 |
unless $$self{'_store_data'} |
|
200
|
0 |
26 |
if (ref $input ne 'SCALAR') |
|
207
|
0 |
26 |
if (ref $opts ne 'HASH') |
|
215
|
13 |
13 |
if (defined wantarray) { } |
|
228
|
13 |
13 |
if $cont eq 'scalar' |
|
250
|
50 |
56 |
if (defined $replacement and not ref $replacement) { } |
|
|
48 |
8 |
elsif (ref $replacement eq 'CODE') { } |
|
269
|
16 |
90 |
if ($store) |
|
271
|
0 |
16 |
if (not ref $store) { } |
|
|
16 |
0 |
elsif (ref $store eq 'CODE') { } |
|
293
|
0 |
4 |
if (ref $input ne 'SCALAR') |
|
301
|
2 |
2 |
if (defined wantarray) { } |
|
319
|
2 |
2 |
if $cont eq 'scalar' |