Branch Coverage

blib/lib/Perl/Critic/Policy/Tics/ProhibitManyArrows.pm

Criterion	Covered	Total	%
branch	10	12	83.3

line	true	false	branch
50	0	11	unless defined $arg{'max_allowed'}
53	0	11	unless $arg{'max_allowed'} =~ /\A\d+\z/ and $arg{'max_allowed'} >= 0
64	22	24	unless $elem eq "=>"
65	12	12	if eval {
71	6	12	unless $next eq "=>"
76	6	6	unless $in_a_row > $self->_max_allowed