| line |
true |
false |
branch |
|
38
|
1 |
0 |
if (@_) |
|
41
|
0 |
1 |
if (stat $outfile) |
|
49
|
1 |
0 |
if ($outfile) |
|
51
|
0 |
1 |
unless open SAVE, '>&STDOUT' |
|
52
|
0 |
1 |
unless open STDOUT, '>', $outfile |
|
65
|
1 |
0 |
if ($outfile) |
|
68
|
0 |
1 |
unless open STDOUT, '>&SAVE' |
|
86
|
9 |
12 |
if (@_) |
|
91
|
0 |
21 |
unless (open MODEL, "<$path") |
|
99
|
9 |
12 |
if ($refh_options) { } |
|
122
|
9 |
12 |
if (@_) |
|
126
|
6 |
3 |
if (defined $OPTIONS{'cards'}) |
|
130
|
7 |
2 |
if (defined $OPTIONS{'filter'}) |
|
134
|
1 |
8 |
if (defined $OPTIONS{'maxoccur'}) |
|
151
|
41 |
143 |
if ($line =~ /^\$/) { } |
|
163
|
9 |
29 |
if ($cards and $line =~ /^\w+/ and not $line =~ /^$cards/) |
|
174
|
114 |
20 |
if ($line =~ /^\w+/) { } |
|
|
20 |
0 |
elsif (not $just_skipped) { } |
|
180
|
93 |
21 |
if ($entity) |
|
183
|
74 |
19 |
if ($entity->match($refa_filter)) |
|
188
|
1 |
73 |
if ($maxoccur and $maxoccur <= $occur) |
|
223
|
20 |
0 |
if ($entity) |
|
225
|
16 |
4 |
if ($entity->match($refa_filter)) |
|
274
|
4 |
4 |
if (@_) { } |
|
305
|
0 |
11 |
if (@_) |
|
316
|
21 |
51 |
if ($entity->match($refa_filter)) |
|
319
|
0 |
21 |
if ($$refh_param{'firstonly'}) |