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)) |