| line |
true |
false |
branch |
|
30
|
0 |
1 |
unless (open my $fh, $file) |
|
31
|
0 |
0 |
if (write_dummy_config($file)) { } |
|
44
|
8 |
26 |
unless $line ne '' |
|
46
|
7 |
19 |
if ($line =~ /^\[(.+)\]$/) { } |
|
|
19 |
0 |
elsif ($line =~ /^(\w+)\s*=\s*(.+)/) { } |
|
49
|
0 |
7 |
if $$self{$name} |
|
52
|
0 |
19 |
unless $sec |
|
53
|
5 |
14 |
if ($1 eq 'inherit') { } |
|
63
|
0 |
1 |
unless ($sec) |
|
72
|
1 |
5 |
if exists $inherit{$inherit{$child_sec}} |
|
76
|
4 |
1 |
unless $parent_sec =~ /:/ |
|
78
|
0 |
5 |
unless $$self{$parent_sec} |
|
81
|
0 |
2 |
if ++$loop_count > 20 |
|
90
|
0 |
0 |
if ($ENV{'HOME'}) { } |
|
|
0 |
0 |
elsif ($ENV{'APPDATA'}) { } |
|
107
|
0 |
0 |
unless sysopen my $fh, $file, 193, 384 |
|
142
|
0 |
8 |
unless my $conf = $$self{"SOURCE:$name"} |
|
160
|
0 |
8 |
if (my(@keys) = $conf->unused_config) |
|
180
|
0 |
7 |
if %opts |
|
182
|
0 |
7 |
unless my $confsec = $$self{"TARGET:$name"} |
|
185
|
0 |
7 |
unless my $type = $confsec->value('type') |
|
187
|
0 |
7 |
unless $type =~ /^\w+$/ |
|
191
|
0 |
7 |
unless eval "use $class; 1;" |
|
195
|
0 |
7 |
if (my(@unk_config) = $confsec->unused_config) |
|
196
|
0 |
0 |
unless $testmode |
|
207
|
3 |
17 |
if $child_sec->values($key) |