| line |
true |
false |
branch |
|
50
|
8 |
105 |
if $self->{'OPTS'}{'rules'} |
|
52
|
105 |
8 |
if ($self->{'OPTS'}{'module'} or @{$self->{'rules'};}) |
|
89
|
15 |
24 |
unless defined $rule->{$_} |
|
100
|
0 |
4 |
if $@ |
|
102
|
0 |
4 |
if $@ |
|
106
|
3 |
1 |
$self->{'OPTS'}{'builtin-format'} eq 'RAW' ? : |
|
112
|
1 |
111 |
if ($self->{'OPTS'}{'list-modules'}) |
|
118
|
98 |
13 |
if (defined $self->{'OPTS'}{'module'}) |
|
120
|
1 |
97 |
unless exists $self->{'MODS'}{$self->{'OPTS'}{'module'}} |
|
144
|
2 |
101 |
unless (&GetOptionsFromArray($self->{'ARGV'}, @rest_opts)) |
|
145
|
2 |
0 |
defined $mod ? : |
|
149
|
1 |
100 |
if ($self->{'OPTS'}{'help'}) |
|
154
|
1 |
99 |
if ($self->{'OPTS'}{'version'}) |
|
159
|
3 |
96 |
if ($self->{'OPTS'}{'dump-rules'} and not @{$self->{'ARGV'};}) { } |
|
162
|
0 |
95 |
unless $self->check_args(@{$$self{'ARGV'};}) |
|
173
|
98 |
15 |
if $self->{'OPTS'}{'module'} |
|
188
|
95 |
119 |
if $self->{'_initialized_mods'}{$mod} |
|
192
|
0 |
119 |
if $@ |
|
216
|
0 |
3 |
if $@ |
|
218
|
0 |
3 |
if $@ |
|
220
|
2 |
1 |
if $self->{'OPTS'}{'builtin-format'} eq 'RAW' |
|
231
|
3 |
94 |
if ($self->{'OPTS'}{'builtin-rules'}) |
|
235
|
3 |
0 |
unless defined $self->{'OPTS'}{'embed-rules'} |
|
238
|
1 |
96 |
if ($self->{'OPTS'}{'dump-rules'}) |
|
245
|
1 |
72 |
if ($self->{'OPTS'}{'embed-blame'}) |
|
250
|
3 |
70 |
if ($self->{'OPTS'}{'embed-rules'}) |
|
256
|
4 |
69 |
if defined $self->{'OPTS'}{'dump-blame'} |
|
269
|
1 |
111 |
unless exists $self->{'MODS'}{$rule->{'modname'}} |
|
271
|
6 |
105 |
if (exists $self->{'OPTS'}{'disable-module'}{$rule->{'modname'}}) |
|
276
|
0 |
105 |
if ($rule->{'disabled'}) |
|
281
|
3 |
102 |
defined $rule->{'cond'} ? : |
|
285
|
0 |
4 |
if $@ |
|
287
|
2 |
2 |
unless (eval {
do {
&path($data, $spath)
}
}) |
|
288
|
0 |
2 |
if $@ |
|
298
|
102 |
1 |
ref ${$data;} ? : |
|
301
|
40 |
63 |
exists $rule->{'source'} ? : |
|
306
|
2 |
82 |
defined $rule->{'blame'} ? : |
|
|
82 |
2 |
if (defined $rule->{'blame'} ? $rule->{'blame'} : $self->{'OPTS'}{'blame'}) |
|
310
|
36 |
216 |
if defined $rule->{$_} |
|
329
|
10 |
105 |
if exists $rule->{'path'} and not ref $rule->{'path'} |
|
331
|
72 |
43 |
unless exists $rule->{'source'} |
|
332
|
1 |
42 |
unless (defined $rule->{'source'} and $rule->{'source'} ne '') |
|
336
|
1 |
42 |
if exists $self->{'sources'}{$rule->{'source'}} |