Condition Coverage

blib/lib/Perl/Critic/Utils.pm
Criterion Covered Total %
condition 52 97 53.6


and 3 conditions

line !l l&&!r l&&r condition
349 5 960 17 &blessed($elem) and $elem->isa("PPI::Statement::Sub")
364 0 169 89 $elem && exists $BUILTINS{_name_for_sub_or_stringified_element($elem)}
377 0 305 70 $elem && exists $BAREWORDS{_name_for_sub_or_stringified_element($elem)}
419 0 300 0 $elem && exists $FILEHANDLES{_name_for_sub_or_stringified_element($elem)}
688 0 0 0 $name && index($name, '::') >= 0
696 0 0 206 $elem && $PRECEDENCE_OF{ref $elem ? "$elem" : $elem}
707 2 661 47 $sib and $sib->isa("PPI::Structure::List")
718 661 0 0 $sib && $sib->isa('PPI::Token::Operator') && $sib eq '=>'
756 10 4 0 $psib && exists $redirectors->{$psib}
764 0 593 0 $elem && _is_dereference_operator($elem->sprevious_sibling)
773 300 0 0 $elem && _is_dereference_operator($elem->snext_sibling) && !_is_dereference_operator($elem->sprevious_sibling)
785 891 2 0 $elem && $elem->isa('PPI::Token::Operator') && $elem eq '->'
845 0 8 0 &blessed($doc) and $doc->isa("Perl::Critic::Document")
880 0 0 0 $parent->isa("PPI::Structure::Block") and $token->statement->snext_sibling
887 0 0 0 $parent->isa("PPI::Structure::Block") and not $grand_parent->isa("PPI::Statement::Compound")
966 27 0 20 $iter->isa("PPI::Token::Structure") and $iter eq $SCOLON
967 25 2 0 $iter->isa("PPI::Token::Operator") and $MIN_PRECEDENCE_TO_TERMINATE_PARENLESS_ARG_LIST <= precedence_of($iter)
985 34 0 8 $node->isa("PPI::Token::Operator") and $node_content eq $COMMA || $node_content eq $FATCOMMA
1093 145 18 0 -d $_ and $SKIP_DIR{$_}
18 0 145 -f $_ and not _is_backup($_)
18 0 145 -f $_ and not _is_backup($_) and _is_perl($_)
1139 0 3 6 defined $first and $first =~ / \A [#]!.*perl /msx
1199 153 24 1 $elem->isa('PPI::Token::Operator') && exists $$or_or_or{$elem->content}
1359 0 4 0 $first_arg and $first_arg->isa("PPI::Token::Number")
1371 0 2 2 $builtins and $builtins->{$elem_content}
1378 0 0 1 $builtins and $$builtins{$elem->content}

or 2 conditions

line l !l condition
858 1 2 $doc->filename || (return)
1072 865 0 shift() || (return $SEVERITY_HIGHEST)

or 3 conditions

line l !l&&r !l&&!r condition
331 959 0 0 eval qq["$literal"] || confess($Perl::Critic::Utils::EVAL_ERROR)
679 0 0 41 exists $BUILTINS_WHICH_TAKE_ONE_ARGUMENT{$name} || exists $BUILTINS_WHICH_TAKE_NO_ARGUMENTS{$name} || exists $BUILTINS_WHICH_TAKE_OPTIONAL_ARGUMENT{$name}
985 6 2 0 $node_content eq $COMMA || $node_content eq $FATCOMMA
1040 1 1 0 $FORMAT_OF{abs int $verbosity} || $DEFAULT_FORMAT
1333 4 0 4 $include->pragma eq "autodie" or &any(sub {