| line |
true |
false |
branch |
|
10
|
1 |
0 |
if @_ |
|
11
|
0 |
1 |
if @_ |
|
17
|
0 |
0 |
unless my $bfile = shift() |
|
18
|
0 |
0 |
unless open my $fh, '<', $bfile |
|
37
|
0 |
1 |
unless ref $coderef |
|
69
|
0 |
2 |
$@ ? : |
|
74
|
0 |
1 |
if ($interpret) { } |
|
81
|
0 |
0 |
if @_ |
|
108
|
0 |
0 |
if $$bf{'debug'} |
|
118
|
0 |
0 |
if $$bf{'data'}[$$bf{'sp'}] |
|
122
|
0 |
0 |
$$bf{'code'}[$$bf{'pc'}] eq ']' ? : |
|
|
0 |
0 |
$$bf{'code'}[$$bf{'pc'}] eq '[' ? : |
|
127
|
0 |
0 |
if $$bf{'pc'} > scalar @{$$bf{'code'};} |
|
134
|
0 |
0 |
$$bf{'code'}[$$bf{'pc'}] eq ']' ? : |
|
|
0 |
0 |
$$bf{'code'}[$$bf{'pc'}] eq '[' ? : |
|
138
|
0 |
0 |
if $$bf{'pc'} < 0 |