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]