Branch Coverage

blib/lib/Perl/Critic/Policy/ErrorHandling/RequireCarping.pm
Criterion Covered Total %
branch 1 62 1.6


line true false branch
54 329 0 unless my $alternative = $ALTERNATIVES{$elem}
56 0 0 unless is_function_call($elem)
58 0 0 if ($self->{'_allow_messages_ending_with_newlines'})
59 0 0 if _last_flattened_argument_list_element_ends_in_newline($elem)
63 0 0 if $self->{'_allow_in_main_unless_in_subroutine'} and not $self->_is_element_contained_in_subroutine($elem) and $self->_is_element_in_namespace_main($elem)
75 0 0 unless my $last_flattened_argument = _find_last_flattened_argument_list_element($die_or_warn)
79 0 0 if ($last_flattened_argument->isa('PPI::Token::Quote')) { }
0 0 elsif ($last_flattened_argument->isa('PPI::Token::HereDoc')) { }
82 0 0 if ($last_flattened_argument_string =~ / \n \z /msx or $last_flattened_argument->isa('PPI::Token::Quote::Double') || $last_flattened_argument->isa('PPI::Token::Quote::Interpolate') and $last_flattened_argument_string =~ / [\\] n \z /msx)
191 0 0 if ($current_candidate->isa('PPI::Structure::List')) { }
0 0 elsif (not $current_candidate->isa('PPI::Token')) { }
204 0 0 unless $current_candidate
205 0 0 if _is_complex_expression_token($current_candidate)
208 0 0 if ($penultimate_element)
212 0 0 if ($penultimate_element->isa('PPI::Token::Operator')) { }
0 0 elsif ($penultimate_element != $die_or_warn) { }
213 0 0 if ($penultimate_element ne $Perl::Critic::Policy::ErrorHandling::RequireCarping::COMMA and $penultimate_element ne $Perl::Critic::Policy::ErrorHandling::RequireCarping::PERIOD)
254 0 0 if ($prior_sibling)
258 0 0 if ($prior_sibling->isa('PPI::Token::Operator')) { }
0 0 elsif ($prior_sibling != $die_or_warn) { }
259 0 0 if ($prior_sibling ne $Perl::Critic::Policy::ErrorHandling::RequireCarping::COMMA)
272 0 0 if scalar @list_children != 1
278 0 0 unless is_ppi_expression_or_generic_statement($list_child)
281 0 0 if scalar @statement_children < 1
311 0 0 unless $element->isa("PPI::Token")
339 0 0 unless $element->isa("PPI::Token")
352 0 0 if $parent->isa("PPI::Statement::Sub")
353 0 0 unless $parent->isa("PPI::Structure::Block")
354 0 0 unless my $prior_elem = $parent->sprevious_sibling
355 0 0 if $prior_elem->isa("PPI::Token::Word") and "sub" eq $prior_elem->content
373 0 0 if ($prior_elem->isa("PPI::Statement::Package"))