Branch Coverage

blib/lib/Perl6/Pod/To.pm
Criterion Covered Total %
branch 25 52 48.0


line true false branch
28 0 2 $#_ == 0 ? :
32 2 0 unless ($self->context)
36 2 0 unless ($self->writer)
59 2 12 if (@_)
69 0 0 unless UNIVERSAL::isa($n, 'Perl6::Pod::Block') or UNIVERSAL::isa($n, 'Perl6::Pod::Lex::Block')
72 0 0 unless (defined $n->childs)
86 0 5 unless (ref $n)
96 5 0 unless (UNIVERSAL::isa($n, 'Perl6::Pod::Block'))
99 0 5 if (UNIVERSAL::isa($n, 'Perl6::Pod::Lex::FormattingCode')) { }
106 2 3 if ($name =~ /(para|code)/)
123 0 5 $class eq '-' ? :
129 3 2 unless $el
140 0 4 unless (ref $n)
144 2 2 if (ref $n eq 'ARRAY')
149 0 5 ref $_ eq 'ARRAY' ? :
152 2 0 if ($i == $#nodes) { }
164 0 2 unless UNIVERSAL::isa($n, 'Perl6::Pod::Lex::Block')
168 0 2 unless (UNIVERSAL::isa($n, 'Perl6::Pod::Block'))
175 0 2 if ($name eq 'head')
181 0 2 if ($nested)
191 0 2 if ($nested)
204 0 0 if (@_)
217 0 2 unless (UNIVERSAL::isa($el, 'Perl6::Pod::Block'))
221 0 2 if (UNIVERSAL::isa($el, 'Perl6::Pod::FormattingCode')) { }
277 0 0 unless ($export_format)
281 0 0 unless ($export_method and UNIVERSAL::can($n, $export_method))