| line |
true |
false |
branch |
|
42
|
109 |
0 |
$have_sub_util ? : |
|
43
|
0 |
109 |
$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 |
3665 |
unless $sub and ref $sub and &reftype($sub) eq 'CODE' |
|
75
|
205 |
3460 |
unless $orig =~ /__ANON__$/ |
|
90
|
765 |
22 |
unless $ref |
|
114
|
1 |
1 |
unless $ok |
|
133
|
3 |
316 |
unless $ok |
|
154
|
1 |
1 |
unless ($ok) |
|
159
|
0 |
2 |
if ($die) { } |
|
185
|
379 |
2953 |
unless ($ok) |
|
197
|
0 |
109 |
if ($^O eq 'MSWin32' and $] < 5.020002) { } |
|
258
|
275 |
337 |
unless $SIG_TABLE{$sig} |
|
261
|
0 |
337 |
unless my $slot = $SIG_TABLE{$sig} |
|
269
|
0 |
109 |
$ok ? : |
|
273
|
94 |
15 |
if $ENV{'TS_TERM_SIZE'} |
|
283
|
0 |
0 |
unless $total |
|
284
|
0 |
0 |
if $total < 80 |
|
290
|
1 |
6220 |
unless defined $thing |
|
295
|
3853 |
2367 |
unless $rf or $rt |
|
296
|
520 |
1847 |
if $rf =~ /Regex/i |
|
297
|
0 |
1847 |
if $rt =~ /Regex/i |
|
305
|
0 |
59 |
unless $type |
|
312
|
27 |
32 |
unless $class |
|
320
|
0 |
324 |
unless $sub and ref $sub and &reftype($sub) eq 'CODE' |
|
330
|
2069 |
18547 |
if $op->can('line') |
|
331
|
324 |
20292 |
unless $op->can('next') |
|
336
|
324 |
0 |
if (@all_lines) |
|
342
|
214 |
110 |
if ($start < $end) |
|
343
|
212 |
0 |
unless $start <= 1 or $in{$start} |
|
344
|
212 |
2 |
unless $in{$end} |