| line |
true |
false |
branch |
|
36
|
1 |
6 |
unless defined $conf_file and not ref $conf_file |
|
37
|
0 |
7 |
unless ref $groups eq 'ARRAY' |
|
40
|
6 |
1 |
if (defined $argc) { } |
|
41
|
0 |
6 |
unless ref $argc eq 'SCALAR' |
|
48
|
1 |
6 |
unless defined $argv |
|
49
|
0 |
7 |
unless ref $argv eq 'ARRAY' |
|
63
|
0 |
7 |
unless @$groups |
|
80
|
0 |
31 |
unless /^--(.*?)=(.*)$/ |
|
84
|
11 |
20 |
if ($value =~ /=/) { } |
|
85
|
1 |
10 |
unless exists $ini{$name} and ref $ini{$name} eq 'HASH' |
|
96
|
3 |
0 |
wantarray ? : |
|
115
|
7 |
7 |
unless -f $file and -r _ |
|
118
|
0 |
7 |
unless (open INI, $file) |
|
127
|
119 |
203 |
unless length $_ |
|
129
|
21 |
182 |
if /^\s*\[(.*)\]\s*$/ |
|
132
|
21 |
161 |
unless /=/ |
|
136
|
14 |
168 |
if ($v =~ /\s/) |
|
144
|
0 |
7 |
unless (close INI) |