Condition Coverage

blib/lib/Perl/ToPerl6/Utils.pm
Criterion Covered Total %
condition 0 78 0.0


and 3 conditions

line !l l&&!r l&&r condition
344 0 0 0 &blessed($elem) and $elem->isa('PPI::Statement::Sub')
714 0 0 0 $sib->isa('PPI::Token::Operator') and $sib eq '=>'
761 0 0 0 $statement->isa('PPI::Statement::Break') && $psib =~ /(?:redo|goto|next|last)/mosx
780 0 0 0 _is_dereference_operator($elem->snext_sibling) && !_is_dereference_operator($elem->sprevious_sibling)
790 0 0 0 $elem->isa('PPI::Token::Operator') && $elem eq '->'
813 0 0 0 $stmnt->isa('PPI::Statement::Sub') && $sib eq 'sub'
844 0 0 0 &blessed($doc) and $doc->isa('Perl::ToPerl6::Document')
881 0 0 0 $parent->isa('PPI::Structure::Block') and not $grand_parent->isa('PPI::Statement::Compound')
960 0 0 0 $iter->isa('PPI::Token::Structure') and $iter eq $SCOLON
961 0 0 0 $iter->isa('PPI::Token::Operator') and $MIN_PRECEDENCE_TO_TERMINATE_PARENLESS_ARG_LIST <= precedence_of($iter)
978 0 0 0 $node->isa('PPI::Token::Operator') and $node eq $COMMA || $node eq $FATCOMMA
1097 0 0 0 -f $file and not _is_backup($file)
0 0 0 -f $file and not _is_backup($file) and _is_perl($file)
1135 0 0 0 defined $first and $first =~ / \A [#]!.*perl /msx
1198 0 0 0 $elem ne 'or' and $elem ne '||'
1337 0 0 0 $arg->[0]->isa('PPI::Token::Quote') and $elem eq $arg->[0]->string
1344 0 0 0 $arg->[0]->isa('PPI::Token::Quote') and $elem eq $arg->[0]->string
1364 0 0 0 $first_arg and $first_arg->isa('PPI::Token::Number')
1373 0 0 0 $builtins and $$builtins{$elem->content}
1380 0 0 0 $builtins and $$builtins{$elem->content}

or 2 conditions

line l !l condition
725 0 0 $elem->snext_sibling || (return)
857 0 0 $doc->filename || (return)
1065 0 0 shift() || (return $NECESSITY_HIGHEST)

or 3 conditions

line l !l&&r !l&&!r condition
326 0 0 0 eval qq["$literal"] || confess($Perl::ToPerl6::Utils::EVAL_ERROR)
672 0 0 0 exists $BUILTINS_WHICH_TAKE_ONE_ARGUMENT{$name} || exists $BUILTINS_WHICH_TAKE_NO_ARGUMENTS{$name} || exists $BUILTINS_WHICH_TAKE_OPTIONAL_ARGUMENT{$name}
978 0 0 0 $node eq $COMMA || $node eq $FATCOMMA
1033 0 0 0 $FORMAT_OF{abs int $verbosity} || $DEFAULT_FORMAT