Branch Coverage

blib/lib/Statocles/App/Perldoc.pm
Criterion Covered Total %
branch 20 32 62.5


line true false branch
223 8 20 if ($module eq $self->index_module)
238 0 5 unless (eval { do { require Pod::Weaver; 1 } })
241 0 5 unless (eval { do { require PPI; 1 } })
244 0 5 unless (eval { do { require Pod::Elemental; 1 } })
247 0 5 unless (eval { do { require Encode; 1 } })
254 0 5 if ($Pod::Weaver::VERSION == 4.014)
258 0 5 if (keys %errors)
267 1 4 unless ($self->weave_config->parent->child('weaver.ini')->is_file)
273 0 4 unless my $ppi_document = 'PPI::Document'->new(\$perl_utf8)
279 24 8 if grep {$_[1]->isa("PPI::Token::$_");} 'Comment', 'Pod', 'Whitespace', 'Separator', 'Data', 'End'
290 4 28 if ($element->isa('PPI::Token::Pod'))
295 2 30 if (&blessed($element) and $element->isa('PPI::Node'))
305 32 0 unless grep {$node->isa($_);} 'PPI::Token::Quote', 'PPI::Token::QuoteLike', 'PPI::Token::HereDoc'
307 0 0 if $node->content =~ /^=[a-z]/m
311 0 4 if ($ppi_document->find_first($finder))
332 0 4 if ($@)