line |
true |
false |
branch |
105
|
0 |
61 |
unless (defined $value)
|
107
|
61 |
0 |
if (not defined $args{'no_quotes'}) { }
|
111
|
17 |
44 |
if (ref $value eq 'ARRAY') { }
|
|
12 |
32 |
elsif (ref $value eq 'HASH') { }
|
114
|
44 |
0 |
unless ($args{'no_quotes'} or $contents[$i] =~ /^'.*'$/)
|
127
|
24 |
0 |
unless ($args{'no_quotes'} or $val =~ /^'.*'$/)
|
137
|
32 |
0 |
unless ($args{'no_quotes'} or $value =~ /^'.*'$/)
|
154
|
11 |
27 |
if ($str =~ /^\[(.*)\]$/) { }
|
|
7 |
20 |
elsif ($str =~ /^\{(.*)\}$/) { }
|
162
|
28 |
0 |
if ($contents[$i] =~ /^\s*'?(.*?)'?\s*$/)
|
178
|
14 |
0 |
if (defined $key and $key =~ /^\s*'?(.*?)'?\s*$/)
|
179
|
14 |
0 |
if (defined $val and $val =~ /^\s*'?(.*?)'?\s*$/)
|
181
|
14 |
0 |
if (defined $key)
|
189
|
15 |
5 |
if ($val =~ /^\s*'(.*?)'\s*$/)
|
207
|
0 |
0 |
if ($success)
|
208
|
0 |
0 |
if (not $success)
|
246
|
2 |
0 |
unless (defined $default_ref)
|
247
|
2 |
0 |
unless (defined $hash_ref)
|
250
|
0 |
2 |
if (%{$hash_ref;})
|
260
|
0 |
2 |
if (defined $params{'no_follow'} and $params{'no_follow'} eq '1') { }
|
265
|
0 |
2 |
if (defined $params{'no_quotes'} and $params{'no_quotes'} eq '1') { }
|
270
|
0 |
2 |
if (defined $params{'compact'} and $params{'compact'} eq '1') { }
|
323
|
2 |
2 |
if (defined $val)
|
326
|
1 |
1 |
if (defined $old_val and $old_val ne $val)
|
385
|
0 |
0 |
if (defined $val)
|
402
|
0 |
0 |
if (defined $val)
|
419
|
0 |
0 |
if (defined $val)
|
460
|
3 |
0 |
unless (defined $params{'force'})
|
461
|
3 |
0 |
unless (defined $params{'no_follow'})
|
463
|
2 |
1 |
unless (defined $filename)
|
464
|
0 |
3 |
unless (defined $filename)
|
468
|
0 |
3 |
unless (-e $filename)
|
485
|
33 |
5 |
if (not /^\s*#.*/ and /(\S*)\s*=\s*(\S*)/)
|
489
|
5 |
1 |
if (defined $temp) { }
|
491
|
4 |
1 |
unless ($temp =~ /^\s*#.*/)
|
501
|
33 |
0 |
if (defined $key)
|
511
|
0 |
3 |
if ($@)
|
541
|
2 |
2 |
unless (defined $params{'force'})
|
542
|
4 |
0 |
unless (defined $params{'no_follow'})
|
543
|
4 |
0 |
unless (defined $params{'no_quotes'})
|
544
|
4 |
0 |
unless (defined $params{'compact'})
|
547
|
0 |
4 |
if (defined $filename and $filename ne $self->get_hash_val('filename'))
|
550
|
1 |
2 |
unless ($self->is_dirty or $params{'force'})
|
552
|
3 |
0 |
unless (defined $filename)
|
553
|
0 |
3 |
unless (defined $filename)
|
557
|
1 |
2 |
if (not -e $filename) { }
|
558
|
0 |
1 |
if (defined $self->get_hash_val('file_md5'))
|
560
|
0 |
0 |
if (not $params{'force'}) { }
|
573
|
0 |
11 |
if (not defined $value) { }
|
576
|
11 |
0 |
if (not $params{'compact'}) { }
|
593
|
0 |
1 |
if ($@)
|
599
|
0 |
2 |
unless (defined $self->get_hash_val('file_md5'))
|
601
|
0 |
0 |
if (not $params{'force'}) { }
|
610
|
0 |
2 |
if ($rc == 0)
|
612
|
0 |
2 |
if ($rc == 0)
|
622
|
1 |
1 |
if (defined $self->get_hash_val('file_md5') and $self->get_hash_val('file_md5') ne $orig_md5)
|
624
|
0 |
1 |
if (not $params{'force'}) { }
|
635
|
22 |
5 |
if (not /^\s*#.*/ and /(\S*)\s*=\s*(\S*)/) { }
|
639
|
4 |
2 |
if (defined $temp and not $temp =~ /^\s*#.*/) { }
|
|
1 |
1 |
elsif (not defined $temp) { }
|
648
|
22 |
0 |
if (defined $key and defined $$self{$key})
|
650
|
0 |
22 |
if (not defined $value) { }
|
653
|
22 |
0 |
if (not $params{'compact'}) { }
|
668
|
0 |
2 |
if (scalar @saved < scalar @keys)
|
670
|
0 |
0 |
if (grep(/$keys[$i]/, @saved) == 0)
|
672
|
0 |
0 |
if (not defined $value) { }
|
675
|
0 |
0 |
if (not $params{'compact'}) { }
|
694
|
0 |
2 |
if ($@)
|
715
|
0 |
0 |
unless (defined $filename)
|
716
|
0 |
0 |
unless (defined $filename)
|
718
|
0 |
0 |
if (not -e $filename) { }
|
721
|
0 |
0 |
if ($rc == 0)
|
744
|
0 |
25 |
if (not defined $value) { }
|
747
|
22 |
3 |
if ($str ne '{ ')
|