blib/lib/YAML/PP/Constructor.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 36 | 44 | 81.8 |
line | !l | l&&!r | l&&r | condition |
---|---|---|---|---|
141 | 564 | 0 | 24 | $preserve_order || $preserve_style || $preserve_alias and not tied %$data |
241 | 795 | 0 | 2 | $preserve_alias and not tied @$data |
291 | 4323 | 0 | 83 | $preserve_style || $preserve_alias and not ref $value |
299 | 17 | 60 | 6 | $preserve_alias and defined $event->{'anchor'} |
347 | 11 | 0 | 50 | ref $data eq "YAML::PP::Preserve::Scalar" and $self->preserve_scalar_style || $self->preserve_alias |
line | l | !l | condition |
---|---|---|---|
28 | 12 | 174 | delete $args{'preserve'} || 0 |
32 | 186 | 0 | delete $args{'cyclic_refs'} || 'allow' |
176 | 5 | 1 | &reftype($merge) || '' |
4 | 1 | &reftype($merge) || '' | |
181 | 6 | 1 | &reftype($item) || '' |
218 | 40 | 535 | $last->{'on_data'} || sub { my($self, $hash, $items) = @_; my %seen; for (my $i = 0; $i < @$items; $i += 2) { my($key, $value) = @$items[$i, $i + 1]; $key = '' unless defined $key; if (ref $key) { $key = $self->stringify_complex($key); }; if ($seen{$key}++ and not $self->duplicate_keys) { croak("Duplicate key '${key}'"); }; $$hash->{$key} = $value; }; } |
270 | 1 | 796 | $last->{'on_data'} || sub { my($self, $array, $items) = @_; push @$$array, @$items; } |
line | l | !l&&r | !l&&!r | condition |
---|---|---|---|---|
15 | 0 | 0 | 35 | $ENV{'YAML_PP_LOAD_DEBUG'} || $ENV{'YAML_PP_LOAD_TRACE'} |
141 | 22 | 2 | 564 | $preserve_order || $preserve_style || $preserve_alias |
241 | 7 | 4 | 793 | $preserve_style or $preserve_alias and not tied @$data |
291 | 17 | 66 | 4323 | $preserve_style || $preserve_alias |
347 | 6 | 44 | 0 | $self->preserve_scalar_style || $self->preserve_alias |