line |
true |
false |
branch |
35
|
9 |
0 |
if (wantarray) { } |
43
|
0 |
0 |
$self->check_data ? : |
54
|
18 |
0 |
if ($self->composer->check_node) { } |
88
|
54 |
18 |
@_ ? : |
91
|
0 |
72 |
if ($deep) |
95
|
2 |
70 |
if ($self->constructed_objects->{$node}) |
98
|
0 |
70 |
if ($self->recursive_objects->{$node}) |
109
|
0 |
70 |
if ($self->yaml_constructors->{$node->tag or ''}) { } |
115
|
0 |
0 |
if ($node->tag =~ /^\Q$tag_prefix\E(.*)/) |
121
|
0 |
70 |
if ($self->yaml_multi_constructors->{''}) { } |
|
0 |
70 |
elsif ($self->yaml_constructors->{''}) { } |
|
46 |
24 |
elsif ($node->isa('YAML::Perl::Node::Scalar')) { } |
|
10 |
14 |
elsif ($node->isa('YAML::Perl::Node::Sequence')) { } |
|
14 |
0 |
elsif ($node->isa('YAML::Perl::Node::Mapping')) { } |
141
|
70 |
0 |
if (not defined $tag_suffix) { } |
157
|
0 |
70 |
if ($deep) |
166
|
0 |
46 |
unless ($node->isa('YAML::Perl::Node::Scalar')) |
175
|
2 |
44 |
if (my $tag = $node->tag) |
176
|
2 |
0 |
if ($tag =~ s[^tag:yaml.org,2002:perl/scalar:][]) |
186
|
0 |
10 |
@_ ? : |
188
|
0 |
10 |
unless ($node->isa('YAML::Perl::Node::Sequence')) |
199
|
2 |
8 |
if (my $tag = $node->tag) |
200
|
2 |
0 |
if ($tag =~ s[^tag:yaml.org,2002:perl/array:][]) |
210
|
0 |
14 |
@_ ? : |
212
|
0 |
14 |
unless ($node->isa('YAML::Perl::Node::Mapping')) |
233
|
2 |
12 |
if (my $tag = $node->tag) |
234
|
2 |
0 |
if ($tag =~ s[^tag:yaml.org,2002:perl/hash:][]) |