Branch Coverage

blib/lib/Perl6/Pod/Lex.pm
Criterion Covered Total %
branch 22 24 91.6


line true false branch
21 0 17 $#_ == 0 ? :
33 0 53 if ($name =~ /(item|head)(\d+)/)
45 29 27 if ($node->{'type'} eq 'block') { }
20 7 elsif ($node->{'type'} =~ /text|raw/) { }
51 15 5 if ($type eq 'text') { }
65 36 20 unless UNIVERSAL::isa($node, 'Perl6::Pod::Lex::Text') or UNIVERSAL::isa($node, 'Perl6::Pod::Lex::RawText')
73 1 19 if ($name =~ /item|defn/ and $is_first)
87 11 8 if ($is_implicit_code_and_para_blocks) { }
88 3 8 $content =~ /^\s+/ ? :
98 3 5 if ($name eq 'para')
116 12 5 unless ($self->{'default_pod'})
121 12 1 unless $type eq 'implicit'