| line |
true |
false |
branch |
|
52
|
0 |
0 |
if ($? != 0) |
|
56
|
0 |
0 |
unless (defined $opts{'file'}) |
|
60
|
0 |
0 |
unless (-e $opts{'file'}) |
|
64
|
0 |
0 |
unless (-f $opts{'file'}) |
|
68
|
0 |
0 |
unless (-r $opts{'file'}) |
|
81
|
0 |
0 |
if ($raw =~ /^\%YAML\ 1\.1/) { } |
|
|
0 |
0 |
elsif ($raw =~ /^\%YAML\ 1\.2/) { } |
|
|
0 |
0 |
elsif ($raw =~ /^\%YAML\ 1\.2\.0/) { } |
|
|
0 |
0 |
elsif ($raw =~ /^\%YAML\ 1\.2\.1/) { } |
|
|
0 |
0 |
elsif ($raw =~ /^\%YAML\ 1\.2\.2/) { } |
|
|
0 |
0 |
elsif ($raw =~ /^\%YAML\ 1\.0/) { } |
|
120
|
0 |
0 |
if (not defined $opts{'var'}) { } |
|
|
0 |
0 |
elsif (not $opts{'var'} =~ /^\./) { } |
|
126
|
0 |
0 |
if ($self->is_array_clear("var", $opts{'var'})) |
|
130
|
0 |
0 |
unless ($opts{'var'} =~ /\[\]$/) |
|
155
|
0 |
0 |
if (not defined $opts{'var'}) { } |
|
|
0 |
0 |
elsif (not $opts{'var'} =~ /^\./) { } |
|
161
|
0 |
0 |
if ($self->is_hash_clear("var", $opts{'var'})) |
|
165
|
0 |
0 |
unless ($opts{'var'} =~ /\[\]$/) |
|
192
|
0 |
0 |
if (not defined $opts{'var'}) { } |
|
|
0 |
0 |
elsif (not $opts{'var'} =~ /^\./) { } |
|
199
|
0 |
0 |
if (not $self->is_defined('var', $opts{'var'})) { } |
|
205
|
0 |
0 |
unless ($opts{'var'} =~ /\[\]$/) |
|
235
|
0 |
0 |
if (not defined $opts{'var'}) { } |
|
|
0 |
0 |
elsif (not $opts{'var'} =~ /^\./) { } |
|
242
|
0 |
0 |
if (not $self->is_defined('var', $opts{'var'})) { } |
|
268
|
0 |
0 |
unless (defined $opts{'dedup'}) |
|
272
|
0 |
0 |
if (not defined $opts{'var'}) { } |
|
|
0 |
0 |
elsif (not $opts{'var'} =~ /^\./) { } |
|
278
|
0 |
0 |
if ($opts{'var'} =~ /\[\]$/) |
|
283
|
0 |
0 |
unless ($self->is_array("var", $opts{'var'})) |
|
289
|
0 |
0 |
if ($string =~ /\[\]/) { } |
|
294
|
0 |
0 |
unless eval {
do {
$yaml = Load($string)
}
} |
|
301
|
0 |
0 |
unless (defined $$existing{$yaml->[$int]}) |
|
326
|
0 |
0 |
if (not defined $opts{'var'}) { } |
|
|
0 |
0 |
elsif (not $opts{'var'} =~ /^\./) { } |
|
332
|
0 |
0 |
unless ($self->is_defined("var", $opts{'var'})) |
|
357
|
0 |
0 |
if (not defined $opts{'var'}) { } |
|
|
0 |
0 |
elsif (not $opts{'var'} =~ /^\./) { } |
|
363
|
0 |
0 |
unless ($self->is_defined("var", $opts{'var'})) |
|
367
|
0 |
0 |
unless ($self->is_array("var", $opts{'var'})) |
|
371
|
0 |
0 |
if ($opts{'var'} =~ /\[\]$/) |
|
396
|
0 |
0 |
if (not defined $opts{'var'}) { } |
|
|
0 |
0 |
elsif (not $opts{'var'} =~ /^\./) { } |
|
402
|
0 |
0 |
unless ($self->is_defined("var", $opts{'var'})) |
|
406
|
0 |
0 |
unless ($self->is_hash("var", $opts{'var'})) |
|
410
|
0 |
0 |
if ($opts{'var'} =~ /\[\]$/) |
|
436
|
0 |
0 |
if ($opts{'force'}) |
|
440
|
0 |
0 |
unless ($self->{'ensure'}) |
|
447
|
0 |
0 |
if ($raw =~ /^\%YAML/) |
|
452
|
0 |
0 |
unless ($raw =~ /^\-\-\-\n/) |
|
459
|
0 |
0 |
unless write_file($self->{'file'}, $raw) |
|
480
|
0 |
0 |
if (not defined $opts{'var'}) { } |
|
|
0 |
0 |
elsif (not $opts{'var'} =~ /^\./) { } |
|
487
|
0 |
0 |
if ($string =~ /\[\]/) { } |
|
|
0 |
0 |
elsif ($string =~ /\{\}/) { } |
|
|
0 |
0 |
elsif ($string eq "null\n") { } |
|
497
|
0 |
0 |
if ($@) |
|
500
|
0 |
0 |
if (ref $yaml->{'foo'} eq "ARRAY") |
|
506
|
0 |
0 |
if (ref $yaml eq "ARRAY") |
|
529
|
0 |
0 |
if (not defined $opts{'var'}) { } |
|
|
0 |
0 |
elsif (not $opts{'var'} =~ /^\./) { } |
|
535
|
0 |
0 |
unless ($self->is_array("var", $opts{'var'})) |
|
540
|
0 |
0 |
if ($string =~ /\[\]/) |
|
565
|
0 |
0 |
if (not defined $opts{'var'}) { } |
|
|
0 |
0 |
elsif (not $opts{'var'} =~ /^\./) { } |
|
573
|
0 |
0 |
if ($string eq "null\n") |
|
598
|
0 |
0 |
if (not defined $opts{'var'}) { } |
|
|
0 |
0 |
elsif (not $opts{'var'} =~ /^\./) { } |
|
606
|
0 |
0 |
if ($string =~ /\[\]/) { } |
|
|
0 |
0 |
elsif ($string =~ /\{\}/) { } |
|
|
0 |
0 |
elsif ($string eq "null\n") { } |
|
616
|
0 |
0 |
if (ref $yaml eq "HASH") |
|
641
|
0 |
0 |
if (not defined $opts{'var'}) { } |
|
|
0 |
0 |
elsif (not $opts{'var'} =~ /^\./) { } |
|
647
|
0 |
0 |
unless ($self->is_hash("var", $opts{'var'})) |
|
652
|
0 |
0 |
if ($string =~ /\{\}/) |
|
694
|
0 |
0 |
if (not defined $opts{'yaml'}) { } |
|
|
0 |
0 |
elsif (not -f $opts{'yaml'}) { } |
|
|
0 |
0 |
elsif ($opts{'yaml'} =~ /[\"\']/) { } |
|
702
|
0 |
0 |
if (not defined $opts{'merge_mode'}) { } |
|
|
0 |
0 |
elsif ($opts{'merge_mode'} ne 'deeply' and $opts{'merge_mode'} ne 'replace' and $opts{'merge_mode'} ne 'append' and $opts{'merge_mode'} ne 'existing' and $opts{'merge_mode'} ne 'new') { } |
|
715
|
0 |
0 |
if ($opts{'merge_mode'} eq 'replace') { } |
|
|
0 |
0 |
elsif ($opts{'merge_mode'} eq 'append') { } |
|
|
0 |
0 |
elsif ($opts{'merge_mode'} eq 'existing') { } |
|
|
0 |
0 |
elsif ($opts{'merge_mode'} eq 'new') { } |
|
750
|
0 |
0 |
if (not defined $opts{'vals'}) { } |
|
753
|
0 |
0 |
unless (defined $opts{'vals'}[0]) |
|
758
|
0 |
0 |
unless (defined $opts{'dedup'}) |
|
762
|
0 |
0 |
if (not defined $opts{'var'}) { } |
|
|
0 |
0 |
elsif (not $opts{'var'} =~ /^\./) { } |
|
768
|
0 |
0 |
if ($opts{'var'} =~ /\[\]$/) |
|
773
|
0 |
0 |
unless ($self->is_array("var", $opts{'var'})) |
|
779
|
0 |
0 |
if ($string =~ /\[\]/) { } |
|
784
|
0 |
0 |
unless eval {
do {
$yaml = Load($string)
}
} |
|
815
|
0 |
0 |
unless (defined $opts{'vals'}) |
|
819
|
0 |
0 |
if (not defined $opts{'var'}) { } |
|
|
0 |
0 |
elsif (not $opts{'var'} =~ /^\./) { } |
|
826
|
0 |
0 |
if ($self->is_defined('var', $opts{'var'})) { } |
|
832
|
0 |
0 |
unless ($opts{'var'} =~ /\[\]$/) |
|
869
|
0 |
0 |
if (not defined $opts{'hash'}) { } |
|
872
|
0 |
0 |
if (ref $opts{'hash'} ne "HASH") |
|
879
|
0 |
0 |
if (defined $opts{'hash'}{$key} and ref $opts{'hash'}{$key} ne "SCALAR" and ref $opts{'hash'}{$key} ne "") |
|
892
|
0 |
0 |
if (not defined $opts{'var'}) { } |
|
|
0 |
0 |
elsif (not $opts{'var'} =~ /^\./) { } |
|
898
|
0 |
0 |
if ($opts{'var'} =~ /\[\]$/) |
|
902
|
0 |
0 |
unless ($opts{'var'} =~ /\.$/) |
|
907
|
0 |
0 |
if (not $self->is_defined('var', $opts{'var'})) { } |
|
915
|
0 |
0 |
if (defined $opts{'hash'}{$key}) { } |
|
951
|
0 |
0 |
if (not defined $opts{'vals'}) { } |
|
954
|
0 |
0 |
unless (defined $opts{'vals'}[0]) |
|
966
|
0 |
0 |
unless (defined $opts{'dedup'}) |
|
970
|
0 |
0 |
if (not defined $opts{'var'}) { } |
|
|
0 |
0 |
elsif (not $opts{'var'} =~ /^\./) { } |
|
976
|
0 |
0 |
if ($opts{'var'} =~ /\[\]$/) |
|
981
|
0 |
0 |
if (not $self->is_defined('var', $opts{'var'})) { } |
|
984
|
0 |
0 |
unless ($self->is_array("var", $opts{'var'})) |
|
992
|
0 |
0 |
if ($string =~ /\[\]/) { } |
|
1003
|
0 |
0 |
if (defined $$to_exist{$yaml->[$int]}) |
|
1015
|
0 |
0 |
if ($opts{'dedup'}) { } |
|
1040
|
0 |
0 |
if (not defined $opts{'yaml'}) { } |
|
|
0 |
0 |
elsif (not -f $opts{'yaml'}) { } |
|
|
0 |
0 |
elsif (not -r $opts{'yaml'}) { } |