Branch Coverage

blib/lib/Perl/Critic/Policy/Objects/ProhibitIndirectSyntax.pm
Criterion Covered Total %
branch 8 12 66.6


line true false branch
52 367 15 unless $self->{'_forbid'}{$elem->content}
55 5 10 unless is_function_call($elem)
59 0 10 unless my $object = $elem->snext_sibling
61 0 4 unless $object->isa("PPI::Token::Word") or $object->isa("PPI::Token::Symbol") and $DOLLAR eq $object->raw_type or $object->isa("PPI::Structure::Block")
69 10 0 if (my $operator = $object->snext_sibling)
72 0 10 if $operator->isa("PPI::Token::Operator") and $COMMA{$operator->content}