| line |
true |
false |
branch |
|
121
|
0 |
0 |
if ($v eq '%') { }
|
|
122
|
0 |
0 |
if ($token[$i + 1] eq '%') { }
|
|
|
0 |
0 |
elsif ($token[$i + 1] =~ s/ ^ ($conversions_re) //x) { }
|
|
128
|
0 |
0 |
if ($conversion eq 'P')
|
|
131
|
0 |
0 |
unless $name =~ / ^ PPI\:: /x
|
|
135
|
0 |
0 |
if $token[$i + 1] eq ''
|
|
155
|
0 |
0 |
if $token =~ / ^ \s+ $ /x
|
|
157
|
0 |
0 |
if ($token eq '%%') { }
|
|
|
0 |
0 |
elsif ($token =~ s/ ^ \% //x) { }
|
|
164
|
0 |
0 |
if (exists $conversion_type{$token}) { }
|
|
|
0 |
0 |
elsif ($token =~ s/ ^ P (.+) $ //x) { }
|
|
179
|
0 |
0 |
if (&looks_like_number($token)) { }
|
|
|
0 |
0 |
elsif ($token =~ / [^\w] /x) { }
|
|
204
|
0 |
0 |
unless $elem->isa($match->{'type'})
|
|
206
|
0 |
0 |
if $match->{'content'} and $elem->content ne $match->{'content'}
|
|
219
|
0 |
0 |
if $elem and $elem->isa('PPI::Token::Word')
|
|
228
|
0 |
0 |
if $elem and $elem->isa('PPI::Token::Operator')
|
|
237
|
0 |
0 |
if $elem and $elem->isa('PPI::Statement')
|
|
246
|
0 |
0 |
if $elem and $elem->isa('PPI::Statement::Compound')
|
|
253
|
0 |
0 |
if $elem and $elem->isa('PPI::Token::QuoteLike::Words')
|
|
264
|
0 |
0 |
if ($_elem->isa('PPI::Token::Quote')) { }
|
|
|
0 |
0 |
elsif ($_elem->isa('PPI::Structure::List') and $_elem->schildren) { }
|
|
277
|
0 |
0 |
if $elem->isa('PPI::Token::QuoteLike::Words')
|
|
279
|
0 |
0 |
if ($elem->isa('PPI::Structure::List') and $elem->schild(0) and $elem->schild(0)->isa('PPI::Statement::Expression'))
|
|
291
|
0 |
0 |
unless $element
|
|
293
|
0 |
0 |
unless $element->isa('PPI::Token::Word')
|
|
296
|
0 |
0 |
if &looks_like_number($content)
|
|
297
|
0 |
0 |
if $content =~ /^v\d+/
|
|
307
|
0 |
0 |
unless $element
|
|
309
|
0 |
0 |
unless $element->isa('PPI::Token::Word') or $element->isa('PPI::Token::Number::Version') or $element->isa('PPI::Token::Number::Float')
|
|
314
|
0 |
0 |
if &looks_like_number($content)
|
|
315
|
0 |
0 |
if $content =~ /^v\d+/
|
|
325
|
0 |
0 |
unless $element
|
|
327
|
0 |
0 |
unless $element->isa('PPI::Token::Word')
|
|
349
|
0 |
0 |
if exists $pragma{$content}
|
|
358
|
0 |
0 |
unless $string
|
|
361
|
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./) { }
|
|
413
|
0 |
0 |
if &$terminator_test(undef, $head)
|
|
432
|
0 |
0 |
if &$terminator_test(undef, $head)
|
|
457
|
0 |
0 |
unless $head->next_sibling
|
|
458
|
0 |
0 |
unless $head->next_sibling->isa('PPI::Token::Whitespace')
|
|
468
|
0 |
0 |
unless defined $optional_whitespace
|
|
469
|
0 |
0 |
if $head->next_sibling and $head->next_sibling->isa('PPI::Token::Whitespace')
|
|
480
|
0 |
0 |
unless $head->previous_sibling
|
|
481
|
0 |
0 |
unless $head->previous_sibling->isa('PPI::Token::Whitespace')
|
|
491
|
0 |
0 |
unless defined $optional_whitespace
|
|
492
|
0 |
0 |
if $head->previous_sibling and $head->previous_sibling->isa('PPI::Token::Whitespace')
|
|
525
|
0 |
0 |
unless $element_class
|
|
526
|
0 |
0 |
unless $element->isa('PPI::Statement')
|
|
538
|
0 |
0 |
unless $element_class
|
|
539
|
0 |
0 |
unless $element->isa('PPI::Statement')
|
|
558
|
0 |
0 |
unless my $element = shift()
|
|
560
|
0 |
0 |
unless my $element_class = &blessed($element)
|
|
568
|
0 |
0 |
unless my $element = shift()
|
|
570
|
0 |
0 |
unless &blessed($element)
|
|
590
|
0 |
0 |
unless $elem
|
|
591
|
0 |
0 |
if $elem->isa('PPI::Statement::Package')
|
|
592
|
0 |
0 |
if $elem->isa('PPI::Statement::End')
|
|
593
|
0 |
0 |
if $elem->isa('PPI::Statement::Data')
|
|
594
|
0 |
0 |
if $elem->isa('PPI::Token::Separator')
|
|
603
|
0 |
0 |
unless $element
|
|
605
|
0 |
0 |
if $element->isa('PPI::Statement::Sub')
|
|
607
|
0 |
0 |
if (is_ppi_generic_statement($element))
|
|
610
|
0 |
0 |
if $first_element and $first_element->isa('PPI::Token::Word') and $first_element->content eq 'sub'
|
|
624
|
0 |
0 |
unless $element
|
|
625
|
0 |
0 |
if is_subroutine_declaration($element)
|
|
628
|
0 |
0 |
if is_subroutine_declaration($element)
|
|
644
|
0 |
0 |
unless $element
|
|
645
|
0 |
0 |
unless $element->isa('PPI::Statement')
|
|
647
|
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) { }
|
|
649
|
0 |
0 |
if ($pragma = $element->pragma and $pragma eq 'constant')
|
|
666
|
0 |
0 |
unless my(@arguments) = $include->arguments
|
|
669
|
0 |
0 |
unless defined $follower
|
|
677
|
0 |
0 |
unless my $element = shift()
|
|
684
|
0 |
0 |
if $next = $element->snext_sibling
|
|
694
|
0 |
0 |
unless my $element = shift()
|
|
696
|
0 |
0 |
unless $element->location
|
|
699
|
0 |
0 |
unless $element = $element->parent
|
|
703
|
0 |
0 |
unless $element->location
|
|
|
0 |
0 |
unless (@{[] unless $element->location;})[0] == $line
|
|
704
|
0 |
0 |
if $element->isa('PPI::Statement::Include')
|
|
716
|
0 |
0 |
unless $element
|
|
717
|
0 |
0 |
unless $element->isa('PPI::Statement')
|
|
718
|
0 |
0 |
if $element->isa('PPI::Statement::Expression')
|
|
722
|
0 |
0 |
unless $element_class
|