Branch Coverage

blib/lib/YAML/PP/Representer.pm
Criterion Covered Total %
branch 80 96 83.3


line true false branch
23 1 753 if ($preserve == 1)
30 0 754 if (keys %args)
56 131 3686 if ($preserve_style or $preserve_alias)
57 87 44 if (ref $node->{'value'} eq "YAML::PP::Preserve::Scalar")
59 21 66 if ($preserve_style)
67 6 3811 if (not $node->{'reftype'} and builtin::reftype(\$node->{'value'}) eq "GLOB")
71 807 3010 if ($node->{'reftype'}) { }
79 34 3783 if ($node->{'reftype'} eq "HASH" and my $tied = tied %{$$node{"data"};})
82 0 34 if (my $def = $representers->{'tied_equals'}{$tied})
88 458 3359 if ($node->{'reftype'} eq 'HASH') { }
266 3093 elsif ($node->{'reftype'} eq 'ARRAY') { }
1 3092 elsif ($node->{'reftype'}) { }
89 458 0 unless (defined $node->{'items'})
92 24 434 if ($self->preserve_order) { }
103 19 439 if ($self->preserve_flow_style and builtin::reftype($node->{'value'}) eq "HASH")
104 18 1 if (my $tied = tied %{$$node{"value"};})
111 266 0 unless (defined $node->{'items'})
115 10 256 if ($self->preserve_flow_style and builtin::reftype($node->{'value'}) eq "ARRAY")
116 10 0 if (my $tied = tied @{$$node{"value"};})
126 3026 66 unless (defined $node->{'items'})
147 110 2900 unless (defined $node->{'value'})
148 110 0 if (my $undef = $representers->{'undef'}) { }
149 110 0 if &$undef($self, $node)
157 748 2152 if ($] >= "5.036" and my $rep = $representers->{'bool'})
159 2 746 if (&$is_bool($node->{'value'}))
166 517 4452 if ($flags & $check_flags)
167 506 11 if $rep->{'code'}->($self, $node)
171 138 2254 if (my $rep = $representers->{'equals'}{$node->{'value'}})
172 138 0 if $rep->{'code'}->($self, $node)
175 101 1949 if ($node->{'value'} =~ /$rep->{'regex'}/)
176 95 6 if $rep->{'code'}->($self, $node)
179 2159 0 unless (defined $node->{'data'})
182 2143 16 unless (defined $node->{'style'})
192 112 695 if (my $classname = builtin::blessed($node->{'value'}))
193 66 46 if (my $def = $representers->{'class_equals'}{$classname})
195 66 0 if &$code($self, $node)
199 43 0 if (ref $re and $classname =~ /$re/ or $re)
200 42 1 if &$code($self, $node)
205 2 1 if ($node->{'value'}->isa($class_name))
206 2 0 if &$code($self, $node)
210 4 693 if ($node->{'reftype'} eq "SCALAR" and my $scalarref = $representers->{'scalarref'})
212 4 0 if &$code($self, $node)
214 4 689 if ($node->{'reftype'} eq "REF" and my $refref = $representers->{'refref'})
216 4 0 if &$code($self, $node)
218 5 684 if ($node->{'reftype'} eq "CODE" and my $coderef = $representers->{'coderef'})
220 5 0 if &$code($self, $node)
222 6 678 if ($node->{'reftype'} eq "GLOB" and my $glob = $representers->{'glob'})
224 6 0 if &$code($self, $node)