| 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
|