| line |
true |
false |
branch |
|
33
|
1 |
116 |
unless @args > 0 |
|
46
|
81 |
35 |
if -e $$self{'cfgfile'} |
|
68
|
81 |
0 |
unless $cfgfile |
|
69
|
0 |
81 |
unless open my $cfg, '<', $cfgfile |
|
76
|
0 |
1035 |
if $line =~ /^(\n|\#)/ |
|
77
|
0 |
1035 |
unless $line =~ /\S/ |
|
84
|
0 |
1035 |
if (not defined $key or $key eq '') |
|
89
|
0 |
1035 |
if (not defined $value or $value eq '') |
|
111
|
6 |
1509 |
unless (defined $name) |
|
113
|
1 |
5 |
@names ? : |
|
115
|
1309 |
200 |
if (defined $value) { } |
|
116
|
534 |
775 |
unless exists $$self{'data'}{$name} |
|
121
|
36 |
164 |
unless exists $$self{'data'}{$name} |
|
123
|
1307 |
166 |
unless defined wantarray |
|
124
|
42 |
124 |
wantarray ? : |
|
138
|
43 |
0 |
unless defined $cfgfile |
|
139
|
1 |
42 |
unless open my $cfg, '>', $cfgfile |