Branch Coverage

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


line true false branch
58 1 36 unless $elem->block
61 10 26 if ($elem->prototype) { }
69 12 24 if ($self->{'_max_arguments'} < $num_args)
82 6 51 unless @statements
90 0 51 unless $operand
94 0 51 unless $operator
95 4 47 unless $operator->isa("PPI::Token::Operator")
96 0 47 if "=" ne $operator->content
98 15 32 if ($operand->isa('PPI::Token::Magic') and $AT_ARG eq $operand->content) { }
31 2 elsif ($operand->isa('PPI::Token::Word') and 'shift' eq $operand->content) { }
101 6 25 $skip_object ? :
112 0 15 unless $list
113 0 15 unless $list->isa("PPI::Structure::List")
115 15 0 if (1 == @inner and $inner[0]->isa("PPI::Statement::Expression"))
119 8 7 unless $skip_object and @args
123 0 7 if scalar @{$first_ref;} != 1
129 0 13 unless $symbol
130 0 13 unless $symbol->isa("PPI::Token::Symbol")