Branch Coverage

blib/lib/Perl/Critic/StricterSubs/Utils.pm
Criterion Covered Total %
branch 81 100 81.0


line true false branch
50 2 10 unless $list_node->find("PPI::Token::Quote")
52 11 1 unless $list_node->find("PPI::Token::QuoteLike::Words")
62 0 0 unless @string_elems
83 22 30 unless $statements
94 20 4 unless $statements
104 2647 59 unless $element->isa("PPI::Statement::Include")
107 5 54 unless $element->module
111 0 54 if $include_type ne "use" and $include_type ne "require"
121 0 10 @export_types ? :
128 8 12 unless $export_assignment
152 27 7 unless $sub_nodes
165 12 16 unless $includes_ref
192 6 22 unless defined $first_import_arg
201 0 37 unless defined $import_rqst
204 8 29 if ($import_rqst->isa('PPI::Token::QuoteLike::Words')) { }
7 22 elsif ($import_rqst->isa('PPI::Structure::List')) { }
11 11 elsif ($import_rqst->isa('PPI::Token::Quote')) { }
230 31 3 unless $constant_pragmas_ref
245 2 5 if (defined $sibling and $sibling->isa('PPI::Structure::Constructor')) { }
263 0 2 unless defined $block_or_list_node
265 0 2 unless my $fat_commas = $block_or_list_node->find(\&Perl::Critic::StricterSubs::Utils::_is_fat_comma)
296 5 28 unless $sub_calls_ref
305 243 1863 if ($elem->isa('PPI::Token::Word')) { }
85 1778 elsif ($elem->isa('PPI::Token::Symbol')) { }
307 79 164 if is_perl_builtin($elem)
308 17 147 if _smells_like_filehandle($elem)
309 5 142 if _smells_like_label($elem)
310 78 64 if is_function_call($elem)
315 29 56 if $elem->symbol_type eq "&"
328 0 164 unless $elem
336 72 92 if (my $left_sib = $elem->sprevious_sibling)
353 74 18 unless $enclosing_node->isa("PPI::Structure::List") or $enclosing_node->isa("PPI::Structure::Block")
356 1 17 if $enclosing_node->schild(0) != $expression
358 17 0 if (my $left_uncle = $enclosing_node->sprevious_sibling)
375 0 147 unless $elem
383 63 84 if (my $left_sib = $elem->sprevious_sibling)
400 78 6 unless $enclosing_node->isa("PPI::Structure::List")
402 0 6 if $enclosing_node->schild(0) != $expression
404 6 0 if (my $left_uncle = $enclosing_node->sprevious_sibling)
429 8 12 unless $export_assignments
432 0 12 if @{$export_assignments;} > 1
453 1036 26 unless $elem->isa("PPI::Token::Symbol")
454 13 13 if $elem ne $wanted_symbol
458 1 12 unless $next_sib->isa("PPI::Token::Operator")
459 0 12 if $next_sib ne "="
474 0 12 unless $snext_sibling
484 0 12 unless @left_hand_side
489 7 5 if $first_element->isa("PPI::Token::QuoteLike::Words")
492 5 0 if $first_element->isa("PPI::Structure::List")
495 0 0 if $first_element->isa("PPI::Token::Quote")