Branch Coverage

lib/Devel/PerlySense/Document/Meta.pm
Criterion Covered Total %
branch 71 76 93.4


line true false branch
261 0 514745 unless my $oLocation = $oNode->location
274 423802 90943 if ($pkgNode =~ /^PPI::Token/ and $oNode->location)
275 5230 418572 if ($pkgNode =~ /^PPI::Token::QuoteLike/ or $pkgNode =~ /^PPI::Token::Quote/) { }
279 243702 174870 unless ($oNode =~ /\s/)
289 323 514422 if ($pkgNode eq 'PPI::Statement::Package')
297 3104 511641 if ($pkgNode eq 'PPI::Statement::Include')
298 2564 540 if $oNode =~ /^ use \s+ ( [A-Z][\w:]* ) /sx
307 3104 511641 if ($pkgNode eq 'PPI::Statement::Include')
308 157 2947 if ($oNode =~ /^ use \s+ (?:base|parent) \s+ (?:qw)? \s* (.+);$/sx)
319 25 514720 if ($pkgNode eq 'PPI::Token::Symbol' and $oNode eq '@ISA')
323 17 8 if ($oStatement =~ /\@ISA \s* = \s* (.+);$/sx)
333 25 35548 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 7525 507220 if ($pkgNode eq 'PPI::Token::Word' and $oNode =~ /^[A-Z][\w:]*$/) { }
4964 502256 elsif ($pkgNode =~ /^PPI::Token::Quote::/) { }
353 5654 1871 unless ($aToken[-2]->isa('PPI::Token::Operator') and $aToken[-2] eq '->')
362 345 4619 if ($module =~ /^ [A-Z]\w* (?: :: [A-Z]\w* )+ $/x) { }
517 4102 elsif ($module =~ /^[A-Z][\w]*$/) { }
368 55 462 if ($oDocument->fileFindModule('nameModule', $module))
378 59001 455744 if ($pkgNode eq 'PPI::Token::Word' and @aToken > 2)
380 17493 41508 if ($oOperator->isa('PPI::Token::Operator') and $oOperator eq '->')
381 164 17329 unless $oObject->isa('PPI::Token::Symbol') or $oObject->isa('PPI::Token::Word')
394 4838 509907 if ($pkgNode eq 'PPI::Token::Pod')
402 3284 511461 if $pkgNode eq 'PPI::Statement::Sub' and not $oNode->forward
403 75 514670 if $pkgNode eq 'PPI::Statement::Scheduled'
404 3359 511386 if ($nameSub)
432 0 514745 if $@
461 25 12 unless my $rhToken = $self->rhTokenOfAt($self->rhRowColModule, $row, $col)
497 56 65 unless my $rhCol = $$rhRowCol{$row}
502 53 39 if ($col >= $colToken and $col < $colTokenEnd)
532 7033 45404 if ($line =~ /^ (?: =head(\d+)\b ) | (?: =item\b )/x)
534 6714 319 if ($headingLevel)
535 727 5987 if @$raPodHeadingCurrent > $headingLevel
542 0 12035 unless defined $heading
543 5321 6714 if $level < $headingLevel - 1 or $headingLevel == 0
603 3343 16 if ($countNewline) { }
604 3343 0 if $oNode =~ /\n([^\n]+?)\z/