| 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'}) |