Coverage Summary

# Branch Coverage

lib/Devel/PerlySense.pm
Criterion | Covered | Total | %
--- | --- | --- | ---
branch | 80 | 124 | 64.5

line | true | false | branch
--- | --- | --- | ---
1950 | 668 | 54 | unless ($self->oProject->isa('Devel::PerlySense::Project::Unknown'))
1954 | 1 | 53 | unless my $oProject = 'Devel::PerlySense::Project'->newFromLocation(@_, 'oPerlySense', $self)
1983 | 128 | 82 | if (exists $self->rhFileDocumentCache->{$file})
1984 | 0 | 128 | unless (defined $self->rhFileDocumentCache->{$file})
2029 | 0 | 5 | unless open my $fhIn, '<', $file
2074 | 2 | 12 | if (my $method = $oDocument->selfMethodCallAt('row', $row, 'col', $col))
2076 | 2 | 0 | if $oLocation
2081 | 2 | 10 | if ($module and $method)
2082 | 2 | 0 | if (my $oDocumentDest = $self->oDocumentFindModule('nameModule', $module, 'dirOrigin', dirname($file)))
2084 | 2 | 0 | if $oLocation
2090 | 4 | 0 | if ($oObject and $oMethod and $oLocationSub)
2103 | 4 | 0 | if (@aDocumentDest)
2109 | 4 | 0 | if $oLocation
2114 | 3 | 3 | if (my $module = $oDocument->moduleAt('row', $row, 'col', $col))
2115 | 0 | 3 | unless my $file = $self->fileFindModule('nameModule', $module, 'dirOrigin', dirname($file))
2157 | 2 | 7 | if (my $method = $oDocument->selfMethodCallAt('row', $row, 'col', $col))
2163 | 2 | 5 | if ($module and $method)
2164 | 2 | 0 | if (my $oDocumentDest = $self->oDocumentFindModule('nameModule', $module, 'dirOrigin', dirname($file)))
2171 | 1 | 0 | if ($oObject and $oMethod and $oLocationSub)
2175 | 1 | 0 | if (@aDocumentDest)
2182 | 1 | 3 | if (my $module = $oDocument->moduleAt('row', $row, 'col', $col))
2183 | 0 | 1 | unless my $file = $self->fileFindModule('nameModule', $module, 'dirOrigin', dirname($file))
2190 | 0 | 1 | unless $oLocation->rhProperty->{'text'} = $self->podFromFile('file', $file)
2195 | 3 | 0 | if ($oDocument->isEmptyAt('row', $row, 'col', $col))
2200 | 0 | 3 | unless $oLocation->rhProperty->{'text'} = $self->podFromFile('file', $file)
2303 | 0 | 0 | unless $self->setFindProject('file', $file)
2322 | 0 | 0 | unless $self->setFindProject('file', $file)
2351 | 0 | 4 | unless $self->setFindProject('file', $file)
2382 | 0 | 1 | unless $self->setFindProject('file', $file)
2401 | 0 | 0 | unless $self->setFindProject('file', $file)
2421 | 0 | 0 | unless $self->setFindProject('file', $file)
2470 | 0 | 0 | if $package eq 'main'
2515 | 0 | 0 | unless my $oDocument = $self->oDocumentFindModule('nameModule', $name, 'dirOrigin', $dirOrigin)
2571 | 1 | 175 | unless my $fileModule = $self->fileFindModule('nameModule', $nameModule, 'dirOrigin', $dirOrigin)
2576 | 0 | 175 | unless my $oDocument = $self->oDocumentParseFile($fileModule)
2599 | 0 | 2 | unless $self->setFindProject('file', $fileProjectOf)
2632 | 176 | 20980 | if (my $fileFound = $self->fileFoundInDir($dirCur, $fileModuleBase))
2634 | 0 | 176 | if (first sub { $_ eq $dir; } , @aDirIncProject)
2639 | 3 | 173 | unless $nameModule
2652 | 172 | 1 | if ($textFile =~ / package # package declaration \s+ [^;]*? # up until until the next # statement separator (fragile, # could well be in comments or a # block) (?<!::) # Not preceeded by a module # separator, i.e. it's not a # module shadowing the shorter # name $nameModule \b (?!::) # Not followed by a module # separator, i.e. it's not a # longer, other module /msx)
2677 | 537 | 6456 | if $dir =~ m[^( / | \\ | \w: \\ )$]x
2705 | 55 | 258 | if ($self->fileFoundInDir($dirCur, $fileModuleBase))
2713 | 2 | 252 | if $dir =~ m[^( / | \\ | \w: \\ )$]x
2738 | 68 | 4079 | if (my $fileFound = $self->fileFoundInDir($dirCur, $fileModuleBase))
2776 | 299 | 25317 | if -e $file
2823 | 6 | 78 | unless $oLocation
2825 | 0 | 78 | unless my $pod = $oLocation->rhProperty->{'pod'}
2826 | 0 | 78 | unless $oLocation->rhProperty->{'text'} = $self->textFromPod($pod)
2856 | 0 | 37 | unless my $oDocument = $self->oDocumentFindModule('nameModule', $nameModule, 'dirOrigin', $dirOrigin)
2860 | 0 | 37 | unless $oDocument->determineLikelyApi('nameModule', $nameModule)
2861 | 29 | 8 | unless my $score = $oDocument->scoreInterfaceMatch('nameModule', $nameModule, 'raMethodRequired', $raMethodRequired, 'raMethodNice', $raMethodNice)
2894 | 0 | 0 | unless my $packageName = $oDocument->packageAt('row', $row)
2896 | 0 | 0 | unless $oDocument->determineLikelyApi('nameModule', $packageName)
2920 | 22 | 13 | &$rsGrepDocument($oDocument) ? :
| 0 | 35 | $@ ? :
2956 | 685 | 26 | unless my $keyTotal = $self->cacheKeyTotal($file, $key)
2958 | 0 | 26 | unless my $data = freeze($value)
2981 | 687 | 52 | unless my $keyTotal = $self->cacheKeyTotal($file, $key)
2985 | 26 | 26 | unless my $data = $self->oCache->get($keyTotal)
2990 | 0 | 26 | unless my $rValue = thaw($data)
3012 | 1372 | 80 | unless $self->oCache
3014 | 2 | 78 | unless my $timestamp = (stat $file)[9]