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 |