| line |
true |
false |
branch |
|
24
|
2 |
0 |
unless @_ > 1 and $_[1] eq 'noimport' |
|
41
|
0 |
4 |
if $status < 0 |
|
43
|
2 |
2 |
if $offset |
|
68
|
6 |
1 |
unless $source =~ /gosub|greturn/ |
|
73
|
0 |
340 |
if ($source =~ /(\G\s*use\s+Acme::Gosub\b)/cg) |
|
79
|
12 |
328 |
if (defined $pos[0]) |
|
85
|
0 |
328 |
if ($source =~ /\G\s*($pod_or_DATA)/cg) |
|
89
|
37 |
291 |
if (defined $pos[0]) |
|
91
|
28 |
9 |
if $pos[0] < $pos[2] |
|
96
|
8 |
283 |
if ($source =~ /\G(\n*)(\s*)gosub\b/cg) { } |
|
|
4 |
279 |
elsif ($source =~ /\G(\s*)greturn\s*;/cg) { } |
|
100
|
5 |
3 |
if ($source =~ /\G\s*(\w+)\s*;/cg) { } |
|
114
|
0 |
3 |
unless (@pos = &Text::Balanced::_match_codeblock(\$source_for_text_balanced, qr/\s*/, qr/;/, qr/;/, qr/[[{(<]/, qr/[]})>]/, undef)) |