Branch Coverage

blib/lib/Perl/Critic/TooMuchCode.pm
Criterion Covered Total %
branch 16 18 88.8


line true false branch
10 57 807 if $_[1]->isa("PPI::Token::Operator")
28 2 unless $doc->find(sub {
12 1 3 unless $el->isa("PPI::Token::Label")
28 15 15 unless $doc->find("PPI::Token::Symbol")
40 175 5 unless $doc->find($class)
41 0 5 unless my $str = "PPIx::QuoteLike"->new($e)
51 17 13 unless $doc->find("PPI::Statement::Variable")
52 7 7 unless $st->schildren == 5
55 0 5 unless $children[0]->content eq "our" and $children[1]->content eq '@EXPORT' || $children[1]->content eq '@EXPORT_OK' and $children[2]->content eq "=" and $children[3]->isa("PPI::Token::QuoteLike::Words") and $children[4]->content eq ";"