Branch Coverage

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


line true false branch
49 2 10 unless $list_node->find('PPI::Token::Quote')
51 11 1 unless $list_node->find('PPI::Token::QuoteLike::Words')
62 0 0 unless @string_elems
83 21 29 unless $statements
94 18 4 unless $statements
104 2617 58 unless $element->isa('PPI::Statement::Include')
107 5 53 unless $element->module
111 0 53 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(\&_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 80 163 if is_perl_builtin($elem)
308 17 146 if _smells_like_filehandle($elem)
309 5 141 if _smells_like_label($elem)
310 78 63 if is_function_call($elem)
315 29 56 if $elem->symbol_type eq '&'
328 0 163 unless $elem
336 71 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 146 unless $elem
383 62 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')