| line |
true |
false |
branch |
|
50
|
8 |
76 |
if $self->{'OPTS'}{'rules'} |
|
52
|
76 |
8 |
if ($self->{'OPTS'}{'module'} or @{$self->{'rules'};}) |
|
79
|
53 |
4 |
unless defined $self->{'OPTS'}{'dump-blame'} |
|
91
|
12 |
24 |
unless defined $rule->{$_} |
|
102
|
0 |
4 |
if $@ |
|
104
|
0 |
4 |
if $@ |
|
108
|
3 |
1 |
$self->{'OPTS'}{'builtin-format'} eq 'RAW' ? : |
|
114
|
1 |
82 |
if ($self->{'OPTS'}{'list-modules'}) |
|
119
|
69 |
13 |
if (defined $self->{'OPTS'}{'module'}) |
|
121
|
1 |
68 |
unless exists $self->{'MODS'}{$self->{'OPTS'}{'module'}} |
|
145
|
1 |
74 |
unless (&GetOptionsFromArray($self->{'ARGV'}, @rest_opts)) |
|
150
|
1 |
73 |
if ($self->{'OPTS'}{'help'}) |
|
155
|
1 |
72 |
if ($self->{'OPTS'}{'version'}) |
|
160
|
3 |
69 |
if ($self->{'OPTS'}{'dump-rules'} and not @{$self->{'ARGV'};}) { } |
|
163
|
0 |
68 |
unless $self->check_args(@{$$self{'ARGV'};}) |
|
174
|
69 |
15 |
if $self->{'OPTS'}{'module'} |
|
189
|
73 |
84 |
if $self->{'_initialized_mods'}{$mod} |
|
193
|
0 |
84 |
if $@ |
|
217
|
0 |
3 |
if $@ |
|
219
|
0 |
3 |
if $@ |
|
221
|
2 |
1 |
if $self->{'OPTS'}{'builtin-format'} eq 'RAW' |
|
232
|
3 |
67 |
if ($self->{'OPTS'}{'builtin-rules'}) |
|
236
|
3 |
0 |
unless defined $self->{'OPTS'}{'embed-rules'} |
|
239
|
1 |
69 |
if ($self->{'OPTS'}{'dump-rules'}) |
|
246
|
1 |
56 |
if ($self->{'OPTS'}{'embed-blame'}) |
|
251
|
3 |
54 |
if ($self->{'OPTS'}{'embed-rules'}) |
|
268
|
6 |
82 |
if (exists $self->{'OPTS'}{'disable-module'}{$rule->{'modname'}}) |
|
272
|
0 |
82 |
if ($rule->{'disabled'}) |
|
277
|
1 |
81 |
unless exists $self->{'MODS'}{$rule->{'modname'}} |
|
282
|
80 |
1 |
ref ${$data;} ? : |
|
283
|
23 |
58 |
exists $rule->{'source'} ? : |
|
287
|
2 |
68 |
defined $rule->{'blame'} ? : |
|
|
68 |
2 |
if (defined $rule->{'blame'} ? $rule->{'blame'} : $self->{'OPTS'}{'blame'}) |
|
290
|
24 |
186 |
if defined $rule->{$_} |
|
309
|
10 |
78 |
if exists $rule->{'path'} and not ref $rule->{'path'} |
|
311
|
65 |
23 |
unless exists $rule->{'source'} |
|
312
|
1 |
22 |
unless (defined $rule->{'source'} and $rule->{'source'} ne '') |
|
316
|
1 |
22 |
if exists $self->{'sources'}{$rule->{'source'}} |