| line |
true |
false |
branch |
|
42
|
109 |
0 |
$have_sub_util ? : |
|
43
|
109 |
0 |
$have_sub_name ? : |
|
47
|
109 |
0 |
if ($set_subname or $subname) { } |
|
58
|
2 |
4 |
unless $sub and ref $sub and &reftype($sub) eq 'CODE' |
|
70
|
0 |
3706 |
unless $sub and ref $sub and &reftype($sub) eq 'CODE' |
|
75
|
206 |
3500 |
unless $orig =~ /__ANON__$/ |
|
90
|
765 |
22 |
unless $ref |
|
114
|
1 |
1 |
unless $ok |
|
133
|
2 |
326 |
unless $ok |
|
154
|
1 |
1 |
unless ($ok) |
|
159
|
0 |
2 |
if ($die) { } |
|
185
|
379 |
2985 |
unless ($ok) |
|
197
|
0 |
109 |
if ($^O eq 'MSWin32' and $] < 5.020002) { } |
|
258
|
276 |
337 |
unless $SIG_TABLE{$sig} |
|
261
|
0 |
337 |
unless my $slot = $SIG_TABLE{$sig} |
|
269
|
0 |
109 |
$ok ? : |
|
273
|
95 |
15 |
if $ENV{'TS_TERM_SIZE'} |
|
283
|
0 |
0 |
unless $total |
|
284
|
0 |
0 |
if $total < 80 |
|
290
|
1 |
6524 |
unless defined $thing |
|
295
|
3949 |
2575 |
unless $rf or $rt |
|
296
|
539 |
2036 |
if $rf =~ /Regex/i |
|
297
|
0 |
2036 |
if $rt =~ /Regex/i |
|
304
|
1 |
247 |
unless defined $in |
|
307
|
41 |
206 |
unless $type |
|
314
|
39 |
167 |
unless $class |
|
322
|
0 |
326 |
unless $sub and ref $sub and &reftype($sub) eq 'CODE' |
|
332
|
2123 |
18963 |
if $op->can('line') |
|
333
|
326 |
20760 |
unless $op->can('next') |
|
338
|
326 |
0 |
if (@all_lines) |
|
344
|
216 |
110 |
if ($start < $end) |
|
345
|
214 |
0 |
unless $start <= 1 or $in{$start} |
|
346
|
214 |
2 |
unless $in{$end} |