| line |
true |
false |
branch |
|
261
|
0 |
523635 |
unless my $oLocation = $oNode->location
|
|
274
|
431136 |
92499 |
if ($pkgNode =~ /^PPI::Token/ and $oNode->location)
|
|
275
|
5350 |
425786 |
if ($pkgNode =~ /^PPI::Token::QuoteLike/ or $pkgNode =~ /^PPI::Token::Quote/) { }
|
|
279
|
247677 |
178109 |
unless ($oNode =~ /\s/)
|
|
289
|
332 |
523303 |
if ($pkgNode eq 'PPI::Statement::Package')
|
|
297
|
3144 |
520491 |
if ($pkgNode eq 'PPI::Statement::Include')
|
|
298
|
2589 |
555 |
if $oNode =~ /^ use \s+ ( [A-Z][\w:]* ) /sx
|
|
307
|
3144 |
520491 |
if ($pkgNode eq 'PPI::Statement::Include')
|
|
308
|
157 |
2987 |
if ($oNode =~ /^ use \s+ (?:base|parent) \s+ (?:qw)? \s* (.+);$/sx)
|
|
319
|
25 |
523610 |
if ($pkgNode eq 'PPI::Token::Symbol' and $oNode eq '@ISA')
|
|
323
|
17 |
8 |
if ($oStatement =~ /\@ISA \s* = \s* (.+);$/sx)
|
|
333
|
25 |
36017 |
if ($pkgNode eq 'PPI::Token::Symbol' and $oNode eq '@ISA' and @aToken > 2)
|
|
336
|
8 |
17 |
if ($aToken[--$prev] eq 'push' or $aToken[--$prev] eq 'push')
|
|
338
|
0 |
8 |
unless $oStatement =~ /\@ISA \s* , \s* (.+)/sx
|
|
349
|
7835 |
515800 |
if ($pkgNode eq 'PPI::Token::Word' and $oNode =~ /^[A-Z][\w:]*$/) { }
|
|
|
5070 |
510730 |
elsif ($pkgNode =~ /^PPI::Token::Quote::/) { }
|
|
353
|
5820 |
2015 |
unless ($aToken[-2]->isa('PPI::Token::Operator') and $aToken[-2] eq '->')
|
|
362
|
355 |
4715 |
if ($module =~ /^ [A-Z]\w* (?: :: [A-Z]\w* )+ $/x) { }
|
|
|
526 |
4189 |
elsif ($module =~ /^[A-Z][\w]*$/) { }
|
|
368
|
55 |
471 |
if ($oDocument->fileFindModule('nameModule', $module))
|
|
378
|
60118 |
463517 |
if ($pkgNode eq 'PPI::Token::Word' and @aToken > 2)
|
|
380
|
17837 |
42281 |
if ($oOperator->isa('PPI::Token::Operator') and $oOperator eq '->')
|
|
381
|
168 |
17669 |
unless $oObject->isa('PPI::Token::Symbol') or $oObject->isa('PPI::Token::Word')
|
|
394
|
4915 |
518720 |
if ($pkgNode eq 'PPI::Token::Pod')
|
|
402
|
3354 |
520281 |
if $pkgNode eq 'PPI::Statement::Sub' and not $oNode->forward
|
|
403
|
75 |
523560 |
if $pkgNode eq 'PPI::Statement::Scheduled'
|
|
404
|
3429 |
520206 |
if ($nameSub)
|
|
432
|
0 |
523635 |
if $@
|
|
461
|
26 |
12 |
unless my $rhToken = $self->rhTokenOfAt($self->rhRowColModule, $row, $col)
|
|
497
|
57 |
69 |
unless my $rhCol = $rhRowCol->{$row}
|
|
502
|
57 |
32 |
if ($col >= $colToken and $col < $colTokenEnd)
|
|
532
|
7202 |
46628 |
if ($line =~ /^ (?: =head(\d+)\b ) | (?: =item\b )/x)
|
|
534
|
6865 |
337 |
if ($headingLevel)
|
|
535
|
755 |
6110 |
if @$raPodHeadingCurrent > $headingLevel
|
|
542
|
0 |
12298 |
unless defined $heading
|
|
543
|
5433 |
6865 |
if $level < $headingLevel - 1 or $headingLevel == 0
|
|
603
|
3420 |
20 |
if ($countNewline) { }
|
|
604
|
3420 |
0 |
if $oNode =~ /\n([^\n]+?)\z/
|