Branch Coverage

blib/lib/Perl/Critic/Policy/CodeLayout/RequireKRBracing.pm
Criterion Covered Total %
branch 25 32 78.1


line true false branch
22 6 14 if &any(sub { not defined $_; } , $keyword, $parens)
25 2 12 unless ($inter_whitespace->isa('PPI::Token::Whitespace'))
31 3 9 unless ($pre_whitespace->isa('PPI::Token::Whitespace'))
35 2 7 if (index($inter_whitespace->content, "\n") != -1)
40 5 0 if (ref $next_keyword and $next_keyword->isa('PPI::Token::Word') and $affected_followup{$next_keyword})
47 1 4 unless $follow_whitespace->isa('PPI::Token::Whitespace')
51 2 2 if index($follow_whitespace->content, "\n") == -1
62 0 20 unless ref $parens
66 5 15 unless $is_conditional or $is_list_loop
69 13 2 if ($keyword->isa('PPI::Token::Word')) { }
2 0 elsif ($is_list_loop and $keyword->isa('PPI::Token::Symbol')) { }
70 1 12 if $is_conditional and not $affected_conditional{$keyword}
71 0 12 if $is_list_loop and not $affected_list_loop{$keyword}
75 2 0 if $keyword->isa('PPI::Token::Word') and $keyword->content eq 'my'
80 0 2 unless $keyword->isa('PPI::Token::Word')
81 0 2 unless $affected_list_loop{$keyword}