Branch Coverage

blib/lib/Perl/ToPerl6/Utils/PPI.pm
Criterion Covered Total %
branch 41 152 26.9


line true false branch
107 251 392 if ($v eq '%') { }
108 0 251 if ($token[$i + 1] eq '%') { }
250 1 elsif ($token[$i + 1] =~ s/ ^ ($conversions_re) //x) { }
114 0 250 if ($conversion eq 'P')
117 0 0 unless $name =~ / ^ PPI\:: /x
121 250 0 if $token[$i + 1] eq ''
141 256 382 if $token =~ / ^ \s+ $ /x
143 0 382 if ($token eq '%%') { }
250 132 elsif ($token =~ s/ ^ \% //x) { }
150 250 0 if (exists $conversion_type{$token}) { }
0 0 elsif ($token =~ s/ ^ P (.+) $ //x) { }
165 0 132 if (&looks_like_number($token)) { }
3 129 elsif ($token =~ / [^\w] /x) { }
190 119 36 unless $elem->isa($match->{'type'})
192 27 9 if $match->{'content'} and $elem->content ne $match->{'content'}
205 62 251 if $elem and $elem->isa('PPI::Token::Word')
214 1 60 if $elem and $elem->isa('PPI::Token::Operator')
223 0 0 if $elem and $elem->isa('PPI::Statement')
232 0 248 if $elem and $elem->isa('PPI::Statement::Compound')
239 0 15 if $elem and $elem->isa('PPI::Token::QuoteLike::Words')
249 0 1 unless $element
251 0 1 unless $element->isa('PPI::Token::Word')
254 0 1 if &looks_like_number($content)
255 0 1 if $content =~ /^v\d+/
265 0 1 unless $element
267 0 0 unless $element->isa('PPI::Token::Word') or $element->isa('PPI::Token::Number::Version') or $element->isa('PPI::Token::Number::Float')
272 0 1 if &looks_like_number($content)
273 0 1 if $content =~ /^v\d+/
283 0 2 unless $element
285 0 2 unless $element->isa('PPI::Token::Word')
307 0 2 if exists $pragma{$content}
316 0 0 unless $string
319 0 0 if ($content =~ / ^ ['"] /x) { }
0 0 elsif ($content =~ /^qq ./) { }
0 0 elsif ($content =~ /^qq./) { }
0 0 elsif ($content =~ /^q ./) { }
0 0 elsif ($content =~ /^q./) { }
369 0 0 unless $element_class
370 0 0 unless $element->isa('PPI::Statement')
382 0 0 unless $element_class
383 0 0 unless $element->isa('PPI::Statement')
402 0 0 unless my $element = shift()
404 0 0 unless my $element_class = &blessed($element)
412 0 0 unless my $element = shift()
414 0 0 unless &blessed($element)
434 0 0 unless $elem
435 0 0 if $elem->isa('PPI::Statement::Package')
436 0 0 if $elem->isa('PPI::Statement::End')
437 0 0 if $elem->isa('PPI::Statement::Data')
438 0 0 if $elem->isa('PPI::Token::Separator')
447 0 0 unless $element
449 0 0 if $element->isa('PPI::Statement::Sub')
451 0 0 if (is_ppi_generic_statement($element))
454 0 0 if $first_element and $first_element->isa('PPI::Token::Word') and $first_element->content eq 'sub'
468 0 0 unless $element
469 0 0 if is_subroutine_declaration($element)
472 0 0 if is_subroutine_declaration($element)
488 0 0 unless $element
489 0 0 unless $element->isa('PPI::Statement')
491 0 0 if ($element->isa('PPI::Statement::Include')) { }
0 0 elsif (is_ppi_generic_statement($element) and $element->schild(0)->content =~ / \A Readonly \b /msx) { }
493 0 0 if ($pragma = $element->pragma and $pragma eq 'constant')
510 0 0 unless my(@arguments) = $include->arguments
513 0 0 unless defined $follower
521 0 0 unless my $element = shift()
528 0 0 if $next = $element->snext_sibling
538 0 0 unless my $element = shift()
540 0 0 unless $element->location
543 0 0 unless $element = $element->parent
547 0 0 unless $element->location
0 0 unless (@{[] unless $element->location;})[0] == $line
548 0 0 if $element->isa('PPI::Statement::Include')
560 0 4 unless $element
561 0 4 unless $element->isa('PPI::Statement')
562 2 2 if $element->isa('PPI::Statement::Expression')
566 0 2 unless $element_class