Branch Coverage

blib/lib/Perl/ToPerl6/Utils.pm

Criterion	Covered	Total	%
branch	4	248	1.6

line	true	false	branch
334	0	0	unless $nodes_ref
336	0	0	@matches ? :
344	0	0	if (&blessed($elem) and $elem->isa('PPI::Statement::Sub'))
357	0	0	unless $elem
368	0	0	unless $elem
399	0	0	unless $elem
411	0	0	unless $elem
665	0	0	unless $elem
681	0	0	unless $name
690	0	1	unless $elem
691	0	1	ref $elem ? :
698	0	0	unless $elem
701	0	0	if _is_followed_by_parens($elem)
705	0	0	unless $parent
707	0	0	unless $grandparent
708	0	0	if $grandparent->isa('PPI::Structure::Subscript')
713	0	0	unless $sib
714	0	0	if $sib->isa('PPI::Token::Operator') and $sib eq '=>'
723	0	0	unless $elem
733	0	0	unless $elem
735	0	0	unless $stmnt
736	0	0	unless $stmnt->isa('PPI::Statement::Include')
744	0	12	unless defined $value
753	0	0	unless $elem
756	0	0	unless $statement
759	0	0	unless $psib
769	0	0	unless $elem
778	0	0	unless $elem
788	0	0	unless $elem
797	0	0	unless $elem
799	0	0	unless $stmnt
800	0	0	unless $stmnt->isa('PPI::Statement::Package')
808	0	0	unless $elem
810	0	0	unless $sib
812	0	0	unless $stmnt
819	0	0	unless my $elem = shift()
821	0	0	if is_perl_bareword($elem)
822	0	0	if is_perl_filehandle($elem)
823	0	0	if is_package_declaration($elem)
824	0	0	if is_included_module_name($elem)
825	0	0	if is_method_call($elem)
826	0	0	if is_class_name($elem)
827	0	0	if is_subroutine_name($elem)
828	0	0	if is_label_pointer($elem)
829	0	0	if is_hash_key($elem)
844	0	0	if &blessed($doc) and $doc->isa('Perl::ToPerl6::Document')
847	0	0	if shebang_line($doc)
848	0	0	if _is_PL_file($doc)
856	0	0	unless $doc->can('filename')
858	0	0	if $filename =~ /[.] PL \z/msx
868	0	0	if $token->sprevious_sibling
871	0	0	if ($parent)
872	0	0	if $parent->isa('PPI::Structure::List')
873	0	0	if $parent->isa('PPI::Structure::For')
874	0	0	if $parent->isa('PPI::Structure::Condition')
875	0	0	if $parent->isa('PPI::Structure::Constructor')
876	0	0	if $parent->isa('PPI::Structure::Subscript')
879	0	0	if ($grand_parent)
881	0	0	if $parent->isa('PPI::Structure::Block') and not $grand_parent->isa('PPI::Statement::Compound')
893	0	74	unless ($transformer_name =~ / \A $TRANSFORMER_NAMESPACE /msx)
912	0	0	unless $sib
914	0	0	if ($sib->isa('PPI::Structure::List'))
917	0	0	unless $expr
918	0	0	$expr->isa('PPI::Statement') ? :
929	0	0	unless $sib
931	0	0	if ($sib->isa('PPI::Structure::List')) { }
935	0	0	unless @list_contents
939	0	0	if (is_ppi_expression_or_generic_statement($item)) { }
960	0	0	if $iter->isa('PPI::Token::Structure') and $iter eq $SCOLON
961	0	0	if $iter->isa('PPI::Token::Operator') and $MIN_PRECEDENCE_TO_TERMINATE_PARENLESS_ARG_LIST <= precedence_of($iter)
978	0	0	if ($node->isa('PPI::Token::Operator') and $node eq $COMMA || $node eq $FATCOMMA) { }
	0	0	elsif ($node->isa('PPI::Token::QuoteLike::Words')) { }
982	0	0	if (@node_stacks)
1032	0	0	unless defined $verbosity
1033	0	0	if is_integer($verbosity)
1054	0	0	if is_integer($necessity)
1057	0	0	unless (defined $necessity_number)
1066	0	0	$s > $NECESSITY_HIGHEST ? :
1067	0	0	$s < $NECESSITY_LOWEST ? :
1087	0	0	if (-d $file)
1088	0	0	unless opendir my $dh, $file
1097	0	0	if (-f $file and not _is_backup($file) and _is_perl($file))
1110	0	0	if $file =~ / [.] swp \z/msx
1111	0	0	if $file =~ / [.] bak \z/msx
1112	0	0	if $file =~ / ~ \z/msx
1113	0	0	if $file =~ / \A [#] .+ [#] \z/msx
1126	0	0	if $file =~ / [.] PL \z/msx
1127	0	0	if $file =~ / [.] p[lm] \z/msx
1128	0	0	if $file =~ / [.] t \z/msx
1131	0	0	unless open my $fh, '<', $file
1133	0	0	unless close $fh
1135	0	0	if defined $first and $first =~ / \A [#]!.*perl /msx
1144	0	0	unless $first_element
1145	0	0	unless $first_element->isa('PPI::Token::Comment')
1147	0	0	unless $location
1150	0	0	if $location->[0] != 1
1151	0	0	if $location->[1] != 1
1153	0	0	unless $shebang =~ / \A [#]! /msx
1180	0	0	unless is_function_call($elem)
1183	0	0	if (my $sib = $elem->sprevious_sibling)
1184	0	0	if $sib
1188	0	0	if (my $statement = $elem->statement)
1197	0	0	unless $elem->isa('PPI::Token::Operator')
1198	0	0	if $elem ne 'or' and $elem ne '||'
1202	0	0	if $statement->find($or_operators)
1205	0	0	if (my $parent = $elem->statement->parent)
1208	0	0	if $parent->isa('PPI::Structure::Condition')
1211	0	0	if $parent->isa('PPI::Structure::Constructor')
1214	0	0	if ($parent->isa('PPI::Structure::List'))
1215	0	0	if (my $uncle = $parent->sprevious_sibling)
1216	0	0	if $uncle
1222	0	0	if _is_fatal($elem)
1326	0	0	unless $top->isa('PPI::Document')
1329	0	0	unless $includes
1332	0	0	if 'use' ne $include->type
1334	0	0	if ('Fatal' eq $include->module) { }
	0	0	elsif ('Fatal::Exception' eq $include->module) { }
	0	0	elsif ('autodie' eq $include->pragma) { }
1337	0	0	if $arg->[0]->isa('PPI::Token::Quote') and $elem eq $arg->[0]->string
1344	0	0	if $arg->[0]->isa('PPI::Token::Quote') and $elem eq $arg->[0]->string
1364	0	0	if ($first_arg and $first_arg->isa('PPI::Token::Number'))
1366	0	0	if (@args) { }
1373	0	0	if $builtins and $$builtins{$elem->content}
1380	0	0	if $builtins and $$builtins{$elem->content}