| line |
true |
false |
branch |
|
29
|
0 |
309 |
unless @$stack >= $count |
|
33
|
183 |
126 |
@operands ? : |
|
79
|
216 |
3580 |
if ref $s |
|
212
|
0 |
3 |
if $@ |
|
|
124 |
9 |
if (index('abdps', &type($stack->[-1])) > -1) |
|
|
125 |
7 |
if (index('bst', &type($stack->[-1])) > -1) |
|
|
101 |
15 |
if (index('t', &type($stack->[-1])) > -1) |
|
223
|
0 |
9 |
if $@ |
|
|
68 |
76 |
if not ref $item |
|
|
49 |
0 |
if not ref $item |
|
|
188 |
30 |
if not ref $item |
|
|
86 |
0 |
if not ref $item |
|
|
0 |
0 |
if not ref $item |
|
|
11 |
0 |
if not ref $item |
|
|
172 |
12 |
if not ref $item |
|
|
139 |
12 |
if not ref $item |
|
|
82 |
0 |
if not ref $item |
|
236
|
163 |
159 |
if (@$stack >= 3) |
|
239
|
71 |
92 |
if (&test_t($l)) |
|
240
|
60 |
11 |
if (&test_t($r)) |
|
241
|
49 |
11 |
$priority == 1 ? : |
|
|
53 |
7 |
if ($priority == 1 ? &test_ads($d) : &test_d($d)) |
|
250
|
64 |
46 |
if (&test_b($l)) |
|
251
|
40 |
24 |
if (&test_B($r)) |
|
252
|
39 |
1 |
if (&test_t($d)) |
|
262
|
108 |
122 |
if (@$stack >= 2) |
|
264
|
67 |
41 |
if (&test_b($l)) |
|
265
|
5 |
62 |
if (&test_B($r)) |
|
272
|
13 |
90 |
if (&test_s($l)) |
|
273
|
11 |
2 |
if (&test_B($r)) |
|
279
|
11 |
81 |
if (&test_p($l)) |
|
280
|
11 |
0 |
if (&test_t($r)) |
|
341
|
12 |
24 |
unless (&test_t($stack->[-1])) |
|
368
|
86 |
0 |
if (@$expression) { } |
|
372
|
4 |
82 |
unless &test_bpsv($e) |
|
376
|
34 |
48 |
if (&test_v($e)) { } |
|
381
|
7 |
41 |
if (&test_s($e)) |
|
396
|
1 |
50 |
if (index($last, &type($expression->[-1])) == -1) |
|
407
|
1 |
49 |
if (@$stack != 1) |
|
430
|
37 |
49 |
if $r |
|
441
|
4 |
0 |
if (my $l = $LexicalCodes->{$a}) |
|
442
|
3 |
1 |
if index($l->next, $b) > -1 |
|
463
|
0 |
279 |
unless $e |
|
464
|
179 |
100 |
$o ? : |
|
|
179 |
100 |
if (my(@o) = $o ? grep({ref $_;} @$o) : ()) { } |
|
1450
|
1 |
0 |
if eval "eof(${p}::DATA)" |
|
1452
|
0 |
0 |
if $@ |
|
1454
|
0 |
0 |
if $@ |
|
1484
|
0 |
46 |
if -e $log |
|
1485
|
0 |
46 |
unless $r |
|
1495
|
0 |
39 |
unless index($@, $parse) > -1 |
|
1496
|
0 |
39 |
unless index($@, $syntax) > -1 |
|
1497
|
0 |
39 |
if ($e) |
|
1498
|
0 |
0 |
if -e $log |