Condition Coverage

blib/lib/Perl/ToPerl6/Utils.pm
Criterion Covered Total %
condition 41 78 52.5


and 3 conditions

line !l l&&!r l&&r condition
346 2 31 2 &blessed($elem) and $elem->isa('PPI::Statement::Sub')
716 14 0 0 $sib->isa('PPI::Token::Operator') and $sib eq '=>'
763 1 1 0 $statement->isa('PPI::Statement::Break') && $psib =~ /(?:redo|goto|next|last)/mosx
782 15 0 0 _is_dereference_operator($elem->snext_sibling) && !_is_dereference_operator($elem->sprevious_sibling)
792 16 2 0 $elem->isa('PPI::Token::Operator') && $elem eq '->'
815 3 0 2 $stmnt->isa('PPI::Statement::Sub') && $sib eq 'sub'
846 0 8 0 &blessed($doc) and $doc->isa('Perl::ToPerl6::Document')
883 0 0 0 $parent->isa('PPI::Structure::Block') and not $grand_parent->isa('PPI::Statement::Compound')
962 11 0 8 $iter->isa('PPI::Token::Structure') and $iter eq $SCOLON
963 9 2 0 $iter->isa('PPI::Token::Operator') and $MIN_PRECEDENCE_TO_TERMINATE_PARENLESS_ARG_LIST <= precedence_of($iter)
980 17 8 0 $node->isa('PPI::Token::Operator') and $node eq $COMMA || $node eq $FATCOMMA
1099 17 0 38 -f $file and not _is_backup($file)
17 0 38 -f $file and not _is_backup($file) and _is_perl($file)
1137 0 3 6 defined $first and $first =~ / \A [#]!.*perl /msx
1200 1 0 12 $elem ne 'or' and $elem ne '||'
1339 0 0 2 $arg->[0]->isa('PPI::Token::Quote') and $elem eq $arg->[0]->string
1346 0 0 2 $arg->[0]->isa('PPI::Token::Quote') and $elem eq $arg->[0]->string
1366 0 4 0 $first_arg and $first_arg->isa('PPI::Token::Number')
1375 0 2 2 $builtins and $$builtins{$elem->content}
1382 0 0 1 $builtins and $$builtins{$elem->content}

or 2 conditions

line l !l condition
727 22 2 $elem->snext_sibling || (return)
859 1 0 $doc->filename || (return)
1067 46 0 shift() || (return $SEVERITY_HIGHEST)

or 3 conditions

line l !l&&r !l&&!r condition
328 18 0 0 eval qq["$literal"] || confess($Perl::ToPerl6::Utils::EVAL_ERROR)
674 0 0 0 exists $BUILTINS_WHICH_TAKE_ONE_ARGUMENT{$name} || exists $BUILTINS_WHICH_TAKE_NO_ARGUMENTS{$name} || exists $BUILTINS_WHICH_TAKE_OPTIONAL_ARGUMENT{$name}
980 6 2 0 $node eq $COMMA || $node eq $FATCOMMA
1035 1 1 0 $FORMAT_OF{abs int $verbosity} || $DEFAULT_FORMAT