line |
true |
false |
branch |
29
|
0 |
2 |
unless defined $filename |
34
|
0 |
2 |
if @_ % 2 |
38
|
2 |
4 |
if ($_[$x] eq '_defs') { } |
56
|
2 |
0 |
unless (defined $do_prints) |
58
|
0 |
2 |
if ($$self{'filename'} =~ /^string:/) { } |
63
|
0 |
2 |
unless (open INF, $$self{'filename'}) |
85
|
11 |
12 |
if ($type == 0) { } |
86
|
1 |
10 |
unless ($$self{'do_output'}) |
87
|
8 |
2 |
if ($token =~ /^[\s\n]*$/gs) |
89
|
2 |
0 |
if $do_prints |
93
|
1 |
11 |
if ($token =~ /^-.*$/s) { } |
|
2 |
9 |
elsif ($token =~ /^=(.*)$/s) { } |
|
3 |
6 |
elsif ($token =~ /^!(.*)$/ms) { } |
|
5 |
1 |
elsif ($token =~ /^:(.*)$/s) { } |
97
|
0 |
2 |
unless ($$self{'do_output'}) |
101
|
0 |
3 |
unless ($$self{'do_output'}) |
104
|
0 |
3 |
unless (defined $tmp) |
109
|
0 |
5 |
unless ($self->_command($1)) |
112
|
0 |
1 |
unless ($$self{'do_output'}) |
141
|
2 |
23 |
if ($$self{'cursor'} == $$self{'blength'} - 1) |
147
|
0 |
23 |
if ($pos == -1) { } |
|
11 |
12 |
elsif ($pos > $$self{'cursor'}) { } |
157
|
0 |
12 |
if ($end == -1) |
179
|
1 |
2 |
if ($token =~ /^include/) |
183
|
0 |
2 |
if ($token =~ /^package/) |
190
|
2 |
0 |
if ($2) |
192
|
0 |
0 |
unless (exists $$self{'special'}{$1} or exists $$self{'special'}{'*'}) |
193
|
0 |
0 |
if ($#args > -1) { } |
197
|
0 |
2 |
unless exists $$self{'special'}{$tmp} |
198
|
0 |
2 |
if $tmp eq '*' |
217
|
1 |
0 |
if (not $arg =~ m[^/] or $am_i_string) |
218
|
1 |
0 |
if ($$self{'filename'} =~ m[^(.*)/[^/]*$] or $am_i_string) |
219
|
0 |
1 |
if ($$self{'special'}{$type}) { } |
228
|
0 |
1 |
unless ($arg) |
239
|
1 |
0 |
if ($inc->compile) { } |
240
|
1 |
0 |
if (not $am_i_string) { } |
286
|
1 |
4 |
if ($command eq 'if') { } |
|
1 |
3 |
elsif ($command eq 'else') { } |
|
1 |
2 |
elsif ($command eq 'end') { } |
|
1 |
1 |
elsif ($command eq 'for') { } |
|
1 |
0 |
elsif ($command eq 'done') { } |
287
|
0 |
1 |
unless ($$self{'do_output'}) |
291
|
0 |
1 |
if ($arg =~ /^!/) { } |
293
|
0 |
0 |
if (grep /^$test$/, @{$$self{'defs'};}) { } |
301
|
1 |
0 |
if (grep /^$arg$/, @{$$self{'defs'};}) { } |
310
|
0 |
1 |
unless ($$self{'if_level'}) |
317
|
0 |
1 |
unless ($$self{'if_level'}) |
323
|
1 |
0 |
unless $$self{'if_count'}[$$self{'if_level'}] |
326
|
0 |
1 |
unless ($$self{'do_output'}) |
331
|
0 |
1 |
unless ($$self{'for_level'}) |