Branch Coverage

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


line true false branch
53 0 5 unless $elem->block
56 0 5 if ($elem->prototype) { }
64 0 5 if ($self->{'_max_arguments'} < $num_args)
77 0 5 unless @statements
85 0 5 unless $operand
89 0 5 unless $operator
90 4 1 unless $operator->isa("PPI::Token::Operator")
91 0 1 if "=" ne $operator->content
93 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) { }
96 0 0 $skip_object ? :
107 0 0 unless $list
108 0 0 unless $list->isa("PPI::Structure::List")
110 0 0 if (1 == @inner and $inner[0]->isa("PPI::Statement::Expression"))
114 0 0 unless $skip_object and @args
118 0 0 if scalar @{$first_ref;} != 1
124 0 0 unless $symbol
125 0 0 unless $symbol->isa("PPI::Token::Symbol")