| line |
true |
false |
branch |
|
100
|
0 |
1 |
if $protoref |
|
134
|
0 |
5 |
unless $selfref |
|
140
|
0 |
5 |
if @_ > 0 |
|
167
|
0 |
1 |
unless $selfref |
|
173
|
0 |
1 |
if @_ > 0 |
|
178
|
2 |
3 |
if ($ref eq 'ARRAY') { } |
|
207
|
0 |
2 |
unless $selfref |
|
212
|
0 |
2 |
if @_ < 1 |
|
213
|
0 |
2 |
if @_ > 1 |
|
218
|
0 |
2 |
unless defined $string |
|
252
|
0 |
1 |
unless $selfref |
|
257
|
0 |
1 |
if @_ < 1 |
|
258
|
0 |
1 |
if @_ > 1 |
|
268
|
0 |
1 |
unless open FILE, $file |
|
279
|
0 |
1 |
unless close FILE |
|
300
|
0 |
1 |
unless $selfref |
|
306
|
0 |
1 |
if @_ > 0 |
|
319
|
1 |
2 |
if ($i == $mem_pos) |
|
328
|
0 |
1 |
defined $reg ? : |
|
350
|
0 |
1 |
unless $selfref |
|
356
|
0 |
1 |
if @_ > 0 |
|
382
|
0 |
1 |
defined $reg ? : |
|
404
|
0 |
3 |
unless $selfref |
|
410
|
0 |
3 |
if @_ > 0 |
|
423
|
0 |
3 |
unless @$prog |
|
450
|
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) { } |
|
463
|
0 |
0 |
if ($$prog_pos == 0) |
|
472
|
0 |
0 |
if ($$prog[$$prog_pos] == 0) { } |
|
|
0 |
0 |
elsif ($$prog[$$prog_pos] == 7) { } |
|
495
|
0 |
1 |
if ($$mem_pos == 0) |
|
501
|
1 |
0 |
if $$prog_pos == $#$prog |
|
512
|
2 |
0 |
if ($$mem_pos > $#$mem) |
|
516
|
0 |
2 |
if $$prog_pos == $#$prog |
|
526
|
0 |
0 |
if ($$mem[$$mem_pos] == 3) |
|
543
|
0 |
28 |
if ($$mem[$$mem_pos] == 0) { } |
|
551
|
2 |
26 |
if $$prog_pos == $#$prog |
|
563
|
0 |
52 |
if $$prog_pos == $#$prog |
|
575
|
0 |
563 |
if $$prog_pos == $#$prog |
|
585
|
0 |
0 |
if ($$mem[$$mem_pos] == 0) { } |
|
600
|
0 |
0 |
if ($$prog_pos == $#$prog) |
|
608
|
0 |
0 |
if ($$prog[$$prog_pos] == 7) { } |
|
|
0 |
0 |
elsif ($$prog[$$prog_pos] == 0) { } |
|
612
|
0 |
0 |
if ($prev_code == 7) |
|
626
|
0 |
0 |
if $$prog_pos == $#$prog |
|
632
|
0 |
0 |
if $$prog_pos == $#$prog |
|
646
|
0 |
6 |
if $$prog_pos == $#$prog |
|
656
|
2 |
2 |
if (defined $$reg) { } |
|
663
|
0 |
4 |
if $$prog_pos == $#$prog |
|
675
|
0 |
0 |
if $$prog_pos == $#$prog |
|
686
|
0 |
0 |
unless defined $input |
|
690
|
0 |
0 |
unless $input =~ /^[+-]?\d+/ |
|
695
|
0 |
0 |
if $$prog_pos == $#$prog |