Branch Coverage

blib/lib/YAML/Perl/Constructor.pm
Criterion Covered Total %
branch 32 54 59.2


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:][])