Branch Coverage

blib/lib/Devel/PerlySense/Document.pm
Criterion Covered Total %
branch 100 118 84.7


line true false branch
170 0 526 unless my $file = $self->file
199 9 337 if (my $oDocument = $self->cacheGet($keyCache, $file)) { }
210 9 335 if (my $oMeta = $self->cacheGet($keyCache, $file)) { }
238 2 335 unless my $oDocument = 'PPI::Document'->new($file)
276 180 4 if not $hStop{$_}
333 2 24 unless $row > 0
336 24 0 if $_->namespace
337 4 20 unless my(@aPackage) = grep({$_->location->[0] <= $row if $_->namespace;} @{$self->oMeta->raPackage;})
366 4 12 if $self->oMeta->moduleAt('row', $row, 'col', $col)
367 1 11 if $self->oMeta->rhMethodAt('row', $row, 'col', $col)
416 32 44 unless my $rhMethod = $self->oMeta->rhMethodAt('row', $row, 'col', $col)
419 36 8 if wantarray
420 7 1 defined $oObject ? :
442 10 15 unless $method
443 0 15 unless $object
444 4 11 if $object eq '$self'
448 2 9 if ($object eq 'shift')
449 1 1 if $self->isThereSelfInSubAt('row', $row, 'col', $col)
464 0 2 unless my $oLocationSubAt = $self->oLocationSubAt('row', $row, 'col', $col)
467 0 2 unless my $source = $oLocationSubAt->rhProperty->{'source'}
469 1 1 if ($source =~ / \$self \b /msx)
492 10 13 unless $module and $method
493 5 8 if $module =~ /[^\w:]/
495 6 2 if wantarray
518 10 8 unless $oObject and $oMethod
519 1 7 unless $oObject =~ /^\$\w+$/
521 0 7 unless my $oLocationSub = $self->oLocationEnclosingSub($oMethod)
572 16 122 if ($oLocation->rhProperty->{'nameSub'} eq $name and $oLocation->rhProperty->{'namePackage'} eq $package)
602 4 130 if ($row >= $oLocation->row and $row <= $oLocation->rhProperty->{'oLocationEnd'}->row)
638 12 7 unless ($package)
639 11 1 if ($row) { }
640 0 11 unless $package = $self->packageAt('row', $row)
650 13 6 if $oLocation
654 4 2 if $oLocation
658 0 2 unless my $oDocumentBase = $self->oPerlySense->oDocumentFindModule('nameModule', $moduleBase, 'dirOrigin', dirname($self->file))
663 2 0 if $oLocation
706 0 194 unless $lookFor eq 'method'
713 87 2766 if ($oLocationCur->rhProperty->{'pod'} =~ /^= \w+ \s+ [^\n]*? \b $rexName \b /x)
720 2 85 if $pod =~ /^=item\s/
728 3 104 if $ignoreBaseModules
732 1 97 unless my $oDocumentBase = $self->oPerlySense->oDocumentFindModule('nameModule', $moduleBase, 'dirOrigin', dirname($self->file))
736 53 44 if (my $oLocation = $oDocumentBase->oLocationPod('name', $name, 'lookFor', $lookFor))
741 47 6 unless ($oLocation->rhProperty->{'pod'} =~ /\n=head1 From <[\w:]+>\n$/)
815 7 59 if (my $rhPackageApi = $self->cacheGet($keyCache, $self->file)) { }
845 59 6695 if ($oNode->isa('PPI::Statement::Package'))
847 0 59 if keys %{$oApiCur->rhSub;}
857 412 6342 if ($oNode->isa('PPI::Statement::Sub') and not $oNode->forward)
863 59 0 if keys %{$oApiCur->rhSub;}
869 0 20 unless my $oDocumentBase = $self->oPerlySense->oDocumentFindModule('nameModule', $nameBase, 'dirOrigin', dirname($self->file))
875 0 20 if $nameModule eq $nameBase
915 0 20 unless my $oApiBase = $rhPackageApiBase->{$nameModuleBase}
918 0 20 unless $oApi
954 0 42 unless my $oApi = $self->rhPackageApiLikely->{$nameModule}
957 30 14 unless $oApi->isSubSupported($method)
1016 33 662 if (index($match, 'sub') > -1)
1017 1 32 if index($match, ':') > -1
1020 76 586 if index($match, '=') > -1
1105 337 0 unless my $raList = $oNode->find($what)
1134 7 78 if ($row >= $oLocation->row and $row <= $oLocation->rhProperty->{'oLocationEnd'}->row)