Branch Coverage

blib/lib/App/PerlNitpick/Rule/MoreOrLessSpaces.pm
Criterion Covered Total %
branch 20 30 66.6


line true false branch
11 0 3 unless $document->find('PPI::Token::Whitespace')
12 3 10 if $el->parent->isa('PPI::Statement')
13 9 1 unless $el->content =~ /\A +\n( *)/
17 0 3 unless $document->find('PPI::Token::Whitespace')
18 3 10 if $el->parent->isa('PPI::Statement')
20 2 8 unless my $prev1 = $el->previous_sibling
21 0 8 unless my $prev2 = $prev1->previous_sibling
22 2 2 unless $prev1->isa('PPI::Token::Whitespace') and $prev1->content eq "\n" and $prev2->isa('PPI::Token::Whitespace') and $prev2->content eq "\n"
23 2 0 if ($el->content eq "\n") { }
0 0 elsif ($el->content =~ /\A\n( +)\z/) { }
30 2 1 unless $document->find('PPI::Structure::List')
31 0 2 unless $el0->find('PPI::Token::Operator')
32 0 4 unless $el->content eq ','
33 0 4 unless my $next_el = $el->next_sibling
34 4 0 unless ($next_el->isa('PPI::Token::Whitespace'))