Branch Coverage

blib/lib/Perl/Critic/Policy/ValuesAndExpressions/ProhibitEmptyCommas.pm
Criterion Covered Total %
branch 11 12 91.6


line true false branch
41 18 54 unless $Perl::Critic::Pulp::Utils::COMMA{$elem}
44 30 24 if ($prev and not $prev->isa('PPI::Token::Operator') && $Perl::Critic::Pulp::Utils::COMMA{$prev})
70 11 13 unless ($prev)
72 0 6 if ($parent->isa('PPI::Statement::Expression') and $parent->parent->isa('PPI::Structure::List') and $parent->sprevious_sibling)
100 11 13 unless ($prev)
103 5 6 if ($parent->isa('PPI::Statement') and $parent->parent->isa('PPI::Structure::Constructor') and $parent->sprevious_sibling)