| line |
true |
false |
branch |
|
107
|
0 |
1 |
if $protoref |
|
141
|
0 |
5 |
unless $selfref |
|
147
|
0 |
5 |
if @_ > 0 |
|
174
|
0 |
1 |
unless $selfref |
|
180
|
0 |
1 |
if @_ > 0 |
|
185
|
2 |
3 |
if ($ref eq 'ARRAY') { } |
|
214
|
0 |
2 |
unless $selfref |
|
219
|
0 |
2 |
if @_ < 1 |
|
220
|
0 |
2 |
if @_ > 1 |
|
225
|
0 |
2 |
unless defined $string |
|
259
|
0 |
1 |
unless $selfref |
|
264
|
0 |
1 |
if @_ < 1 |
|
265
|
0 |
1 |
if @_ > 1 |
|
275
|
0 |
1 |
unless open FILE, $file |
|
286
|
0 |
1 |
unless close FILE |
|
307
|
0 |
1 |
unless $selfref |
|
313
|
0 |
1 |
if @_ > 0 |
|
326
|
1 |
2 |
if ($i == $mem_pos) |
|
335
|
0 |
1 |
defined $reg ? : |
|
357
|
0 |
1 |
unless $selfref |
|
363
|
0 |
1 |
if @_ > 0 |
|
389
|
0 |
1 |
defined $reg ? : |
|
411
|
0 |
3 |
unless $selfref |
|
417
|
0 |
3 |
if @_ > 0 |
|
430
|
0 |
3 |
unless @$prog |
|
457
|
0 |
656 |
if ($code == 0) { } |
|
|
1 |
655 |
elsif ($code == 1) { } |
|
|
2 |
653 |
elsif ($code == 2) { } |
|
|
0 |
653 |
elsif ($code == 3) { } |
|
|
28 |
625 |
elsif ($code == 4) { } |
|
|
52 |
573 |
elsif ($code == 5) { } |
|
|
563 |
10 |
elsif ($code == 6) { } |
|
|
0 |
10 |
elsif ($code == 7) { } |
|
|
6 |
4 |
elsif ($code == 8) { } |
|
|
4 |
0 |
elsif ($code == 9) { } |
|
|
0 |
0 |
elsif ($code == 10) { } |
|
|
0 |
0 |
elsif ($code == 11) { } |
|
470
|
0 |
0 |
if ($$prog_pos == 0) |
|
479
|
0 |
0 |
if ($$prog[$$prog_pos] == 0) { } |
|
|
0 |
0 |
elsif ($$prog[$$prog_pos] == 7) { } |
|
502
|
0 |
1 |
if ($$mem_pos == 0) |
|
508
|
1 |
0 |
if $$prog_pos == $#$prog |
|
519
|
2 |
0 |
if ($$mem_pos > $#$mem) |
|
523
|
0 |
2 |
if $$prog_pos == $#$prog |
|
533
|
0 |
0 |
if ($$mem[$$mem_pos] == 3) |
|
550
|
0 |
28 |
if ($$mem[$$mem_pos] == 0) { } |
|
558
|
2 |
26 |
if $$prog_pos == $#$prog |
|
570
|
0 |
52 |
if $$prog_pos == $#$prog |
|
582
|
0 |
563 |
if $$prog_pos == $#$prog |
|
592
|
0 |
0 |
if ($$mem[$$mem_pos] == 0) { } |
|
607
|
0 |
0 |
if ($$prog_pos == $#$prog) |
|
615
|
0 |
0 |
if ($$prog[$$prog_pos] == 7) { } |
|
|
0 |
0 |
elsif ($$prog[$$prog_pos] == 0) { } |
|
619
|
0 |
0 |
if ($prev_code == 7) |
|
633
|
0 |
0 |
if $$prog_pos == $#$prog |
|
639
|
0 |
0 |
if $$prog_pos == $#$prog |
|
653
|
0 |
6 |
if $$prog_pos == $#$prog |
|
663
|
2 |
2 |
if (defined $$reg) { } |
|
670
|
0 |
4 |
if $$prog_pos == $#$prog |
|
682
|
0 |
0 |
if $$prog_pos == $#$prog |
|
693
|
0 |
0 |
unless defined $input |
|
697
|
0 |
0 |
unless $input =~ /^[+-]?\d+/ |
|
702
|
0 |
0 |
if $$prog_pos == $#$prog |