| blib/lib/YAML/PP/Constructor.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 36 | 44 | 81.8 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 141 | 1279 | 0 | 24 | $preserve_order || $preserve_style || $preserve_alias and not tied %$data |
| 241 | 1204 | 0 | 2 | $preserve_alias and not tied @$data |
| 291 | 7547 | 0 | 83 | $preserve_style || $preserve_alias and not ref $value |
| 299 | 17 | 60 | 6 | $preserve_alias and defined $event->{'anchor'} |
| 347 | 25 | 0 | 50 | ref $data eq "YAML::PP::Preserve::Scalar" and $self->preserve_scalar_style || $self->preserve_alias |
| line | l | !l | condition |
|---|---|---|---|
| 28 | 12 | 736 | delete $args{'preserve'} || 0 |
| 32 | 748 | 0 | delete $args{'cyclic_refs'} || 'fatal' |
| 176 | 5 | 1 | &reftype($merge) || '' |
| 4 | 1 | &reftype($merge) || '' | |
| 181 | 6 | 1 | &reftype($item) || '' |
| 218 | 40 | 1248 | $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 | 1204 | $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 | 1279 | $preserve_order || $preserve_style || $preserve_alias |
| 241 | 7 | 4 | 1202 | $preserve_style or $preserve_alias and not tied @$data |
| 291 | 17 | 66 | 7547 | $preserve_style || $preserve_alias |
| 347 | 6 | 44 | 0 | $self->preserve_scalar_style || $self->preserve_alias |