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 |