| line |
true |
false |
branch |
|
90
|
5 |
22 |
if @file > 1
|
|
94
|
4 |
18 |
if @type > 1
|
|
110
|
13 |
5 |
if @action > 1
|
|
120
|
0 |
5 |
$action[0] ? :
|
|
|
0 |
5 |
$type[0] ? :
|
|
|
3 |
2 |
$context ? :
|
|
|
0 |
5 |
$opt->{'file'} ? :
|
|
128
|
0 |
94 |
unless my $meth = $self->can($action)
|
|
137
|
2 |
29 |
if not defined $key or $key eq ""
|
|
148
|
1 |
4 |
if /^Multiple\ values/i
|
|
155
|
5 |
19 |
unless defined $val
|
|
166
|
2 |
18 |
if not defined $key or $key eq ""
|
|
179
|
1 |
13 |
unless @vals
|
|
190
|
2 |
17 |
if not defined $key or $key eq ""
|
|
204
|
1 |
12 |
unless %vals
|
|
211
|
18 |
1 |
if (defined $vals{$key}) { }
|
|
212
|
1 |
17 |
if ($config->is_multiple($key)) { }
|
|
245
|
4 |
20 |
if not defined $key or $key eq "" or not defined $value
|
|
260
|
1 |
1 |
if /^Multiple occurrences/i
|
|
270
|
2 |
3 |
unless -e $file
|
|
278
|
2 |
6 |
if not defined $key or $key eq ""
|
|
290
|
1 |
1 |
if /^Multiple occurrences/i
|
|
300
|
2 |
3 |
if not defined $key or $key eq ""
|
|
314
|
5 |
1 |
$self->context ? :
|
|
317
|
4 |
2 |
if $config
|
|
332
|
2 |
3 |
unless defined $old_name and $old_name ne "" and defined $new_name and $new_name ne ""
|
|
344
|
1 |
1 |
if /no\ such\ section/i
|
|
352
|
1 |
3 |
unless defined $section and $section ne ""
|
|
361
|
1 |
1 |
if /no\ such\ section/i
|
|
369
|
2 |
27 |
unless (-e $self->file)
|
|
372
|
1 |
1 |
unless (-e $dir and -d _)
|