Branch Coverage

blib/lib/Perl/Critic/Policy/Subroutines/ProhibitManyArgs.pm
Criterion Covered Total %
branch 11 40 27.5


line true false branch
53 0 5 unless $elem->block
56 0 5 if ($elem->prototype) { }
58 0 0 if ($prototype =~ /[[:alpha:]]/msx) { }
59 0 0 if ($self->{'_skip_object'})
74 0 5 if ($self->{'_max_arguments'} < $num_args)
87 0 5 unless @statements
95 0 5 unless $operand
99 0 5 unless $operator
100 4 1 unless $operator->isa("PPI::Token::Operator")
101 0 1 if "=" ne $operator->content
103 0 1 if ($operand->isa('PPI::Token::Magic') and $AT_ARG eq $operand->content) { }
0 2 elsif ($operand->isa('PPI::Token::Word') and 'shift' eq $operand->content) { }
106 0 0 $skip_object ? :
117 0 0 unless $list
118 0 0 unless $list->isa("PPI::Structure::List")
120 0 0 if (1 == @inner and $inner[0]->isa("PPI::Statement::Expression"))
124 0 0 unless $skip_object and @args
128 0 0 if scalar @{$first_ref;} != 1
134 0 0 unless $symbol
135 0 0 unless $symbol->isa("PPI::Token::Symbol")