| line |
true |
false |
branch |
|
48
|
0 |
8 |
ref $proto ? : |
|
52
|
6 |
1 |
UNIVERSAL::isa($_[0], 'HASH') ? : |
|
|
7 |
1 |
@_ ? : |
|
60
|
7 |
9 |
exists $args{$_} ? : |
|
80
|
0 |
1 |
ref $proto ? : |
|
86
|
0 |
1 |
unless $logfile and -f $logfile |
|
91
|
2 |
2 |
unless exists $seen{"$config"} or skip_config($config) |
|
94
|
0 |
1 |
unless @not_seen |
|
126
|
0 |
18 |
if ($key eq "all_defaults") |
|
134
|
0 |
18 |
unless exists $CONFIG{"df_$key"} |
|
136
|
1 |
17 |
if @_ |
|
177
|
2 |
6 |
unless defined $nameorref |
|
181
|
6 |
2 |
if (ref $nameorref eq 'SCALAR') { } |
|
|
0 |
2 |
elsif (ref $nameorref eq 'ARRAY') { } |
|
|
0 |
2 |
elsif (ref $nameorref eq 'HASH') { } |
|
|
0 |
2 |
elsif (ref $nameorref eq 'GLOB') { } |
|
196
|
0 |
2 |
if ($nameorref) { } |
|
197
|
0 |
0 |
if (open BUILDCFG, "< $nameorref") { } |
|
212
|
0 |
8 |
if $self->{'_continue'} |
|
242
|
0 |
8 |
unless defined $self->{'_buildcfg'} |
|
254
|
3 |
22 |
if keys %opts == 0 or exists $opts{''} and keys %opts == 1 |
|
256
|
9 |
13 |
if (grep m[^/.+/?$], keys %opts) { } |
|
260
|
18 |
9 |
unless $line =~ m[^/(.+?)/?$] |
|
265
|
0 |
9 |
if (@targets > 1) |
|
281
|
0 |
8 |
unless @{$self->{'_sections'};} |
|
314
|
33 |
19 |
if (ref $this_cfg eq "HASH") |
|
321
|
56 |
52 |
if length $conf |
|
324
|
66 |
42 |
if defined $policy_target |
|
327
|
44 |
64 |
if (@cfgs) |
|
359
|
0 |
2 |
unless UNIVERSAL::isa($self->{'_sections'}, "ARRAY") |
|
364
|
3 |
3 |
unless UNIVERSAL::isa($section, "HASH") and $section->{'policy_target'} |
|
381
|
8 |
6 |
if (UNIVERSAL::isa($section, 'ARRAY')) { } |
|
|
6 |
0 |
elsif (UNIVERSAL::isa($section, 'HASH')) { } |
|
429
|
1 |
0 |
if (open LOG, "< $logfile") |
|
434
|
14 |
3 |
unless s/^Configuration:\s*// or /^Finished smoking/ |
|
435
|
2 |
1 |
if $conf |
|
440
|
1 |
0 |
wantarray ? : |
|
484
|
1 |
82 |
unless $_[0][0] |
|
529
|
244 |
0 |
if @_ >= 1 |
|
530
|
64 |
180 |
if @_ > 0 |
|
544
|
244 |
0 |
if (defined $_[0]) |
|
561
|
64 |
16 |
if (@_) |
|
563
|
0 |
64 |
@_ == 1 && ref $_[0][0] eq 'ARRAY' ? : |
|
641
|
26 |
0 |
if (exists $copy{$option}) { } |
|
647
|
0 |
17 |
@left || keys %copy ? : |
|
661
|
138 |
0 |
if exists $self->[2]{$arg} |