Branch Coverage

blib/lib/Data/Sofu/SofuML.pm
Criterion Covered Total %
branch 47 150 31.3


line true false branch
106 36 16 if $data eq ' '
198 8 60 if ($data->hasComment)
216 60 8 unless $$self{'COMMENT'}{$tree}
217 0 8 unless ref $$self{'COMMENT'}{$tree}
218 0 8 unless ref $$self{'COMMENT'}{$tree} eq 'ARRAY'
285 0 66 unless $r and $r =~ /Data::Sofu/ and $r->isa('Data::Sofu::Object')
288 10 56 if ($data->isReference and $data->valid)
291 0 66 if ($data->isReference)
295 10 56 if ($$self{'IDS'}{$data})
300 36 20 if ($data->isValue)
301 34 2 if $data->toString ne ''
304 6 14 if ($data->isMap)
313 12 2 if ($data->isList)
335 22 44 if (ref $data)
336 4 18 if ($$self{'IDS'}{$data})
340 6 12 if (ref $data eq 'HASH')
349 12 0 if (ref $data eq 'ARRAY') { }
361 42 2 if (defined $data)
362 40 2 if $data ne ''
381 2 0 unless $level
383 0 2 unless $r and $r =~ /Data::Sofu/ and $r->isa('Data::Sofu::Object')
384 0 2 unless ($data->isMap)
394 2 0 unless $header
395 0 2 if $header
435 2 2 unless defined $comments
436 2 2 if $r and $r =~ /Data::Sofu::/ and $data->isa('Data::Sofu::Object')
438 0 2 unless ref $data and ref $data eq 'HASH'
439 0 2 unless ref $data and ref $data eq 'HASH'
443 2 0 unless $level
449 2 0 unless $header
450 0 2 if $header
494 0 0 if $@
504 0 0 if $id{$target}
507 0 0 if wantarray
534 0 0 if $@
544 0 0 if $id{$target}
562 0 0 if $k eq 'id'
563 0 0 if $k eq 'idref'
564 0 0 if $k eq 'key'
566 0 0 if ($tag eq 'value') { }
0 0 elsif ($tag eq 'undefined') { }
0 0 elsif ($tag eq 'reference') { }
0 0 elsif ($tag eq 'sofu') { }
0 0 elsif ($tag eq 'map') { }
0 0 elsif ($tag eq 'list') { }
0 0 elsif ($tag eq 'element') { }
604 0 0 unless ref $tree[-1] or not defined $tree[-1]
613 0 0 if $end
615 0 0 if $tree
616 0 0 unless $tree
618 0 0 if $end
625 0 0 if ($tag eq 'element')
628 0 0 if (ref $ret and ref $ret eq 'SCALAR')
634 0 0 unless ref $ret or not defined $ret
635 0 0 if $tag eq 'list'
637 0 0 if ($tree[-1] and ref $tree[-1] and ref $tree[-1] eq 'ARRAY')
639 0 0 if (ref $ret and ref $ret eq 'SCALAR')
659 0 0 if $k eq 'id'
660 0 0 if $k eq 'idref'
661 0 0 if $k eq 'key'
663 0 0 if ($tag eq 'value') { }
0 0 elsif ($tag eq 'undefined') { }
0 0 elsif ($tag eq 'reference') { }
0 0 elsif ($tag eq 'sofu') { }
0 0 elsif ($tag eq 'map') { }
0 0 elsif ($tag eq 'list') { }
0 0 elsif ($tag eq 'element') { }
705 0 0 if $tree[-1] and $tree[-1]->isValue
714 0 0 if ($end or $elem) { }
715 0 0 if $ret
718 0 0 if $tree[-1]
727 0 0 if ($tag eq 'element')
734 0 0 if $ret->isValue
735 0 0 if $tag eq 'list'
737 0 0 if ($tree[-1] and $tree[-1]->isList)