Branch Coverage

blib/lib/YAML/PP/Schema/Perl.pm
Criterion Covered Total %
branch 88 100 88.0


line true false branch
24 6 0 unless defined $dumpcode
43 6 18 if (&blessed($self)) { }
45 6 0 unless @$tags
54 7 5 if ($option =~ /^tags?=(.+)$/) { }
4 1 elsif ($option eq '+loadcode') { }
1 0 elsif ($option eq '-dumpcode') { }
72 22 6 if ($type eq '!perl') { }
6 0 elsif ($type eq '!!perl') { }
87 4 20 if ($tagtypes{'!perl'} and $tagtypes{'!!perl'}) { }
18 2 elsif ($tagtypes{'!perl'}) { }
2 0 elsif ($tagtypes{'!!perl'}) { }
99 5 19 if ($classes)
100 1 4 if (@$classes) { }
110 5 19 if ($loadcode) { }
132 1 4 if $no_objects
156 3 16 if $no_objects
184 4 20 if ($no_objects) { }
227 4 20 if $no_objects
248 4 20 if $no_objects
268 4 20 if $no_objects
308 4 20 if $no_objects
345 4 20 if $no_objects
368 4 1 $dumpcode ? :
386 0 40 unless ($blessed =~ /^$class_regex$/)
391 6 34 if ($node->{'reftype'} eq 'HASH') { }
10 24 elsif ($node->{'reftype'} eq 'ARRAY') { }
8 16 elsif ($node->{'reftype'} eq 'REGEXP') { }
4 12 elsif ($node->{'reftype'} eq 'SCALAR') { }
4 8 elsif ($node->{'reftype'} eq 'REF') { }
5 3 elsif ($node->{'reftype'} eq 'CODE') { }
3 0 elsif ($node->{'reftype'} eq 'GLOB') { }
400 4 4 if ($blessed eq "Regexp")
408 0 4 if ($blessed eq 'Regexp') { }
0 4 elsif ($] <= 5.010001 and not defined ${$$node{'value'};} and $node->{'value'} =~ /^\(\?/) { }
433 4 1 $dumpcode ? :
450 2 10 unless ($code =~ /^ \s* \{ .* \} \s* \z/sx)
455 2 8 if ($@)
463 2 9 if ($regex =~ /^$qr_prefix(.*)\)\z/s)
472 0 10 if (@$list % 2)
476 1 9 unless my $name = delete $globdata{'NAME'}
478 1 8 unless defined $pkg
481 1 8 if (my(@keys) = keys %globdata)
490 4 24 if (@$list != 2)
494 4 20 unless ($key eq "=")
528 9 54 if ($type eq 'SCALAR') { }
9 45 elsif ($type eq 'IO') { }
532 5 4 if (defined $value)
535 5 0 if ($value->{'fileno'} = fileno do { $glob })
541 35 28 if defined $value
549 8 0 if ($regex =~ /^$qr_prefix(.*)\)\z/s)