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]
|