| line |
true |
false |
branch |
|
2079
|
677 |
56 |
unless ($self->oProject->isa('Devel::PerlySense::Project::Unknown'))
|
|
2083
|
1 |
55 |
unless my $oProject = 'Devel::PerlySense::Project'->newFromLocation(@_, 'oPerlySense', $self)
|
|
2112
|
130 |
83 |
if (exists $self->rhFileDocumentCache->{$file})
|
|
2113
|
0 |
130 |
unless (defined $self->rhFileDocumentCache->{$file})
|
|
2158
|
0 |
5 |
unless open my $fhIn, '<', $file
|
|
2206
|
3 |
13 |
if (my $method = $oDocument->selfMethodCallAt('row', $row, 'col', $col))
|
|
2208
|
3 |
0 |
if $oLocation
|
|
2213
|
3 |
10 |
if ($module and $method)
|
|
2214
|
2 |
1 |
if (my $oDocumentDest = $self->oDocumentFindModule('nameModule', $module, 'dirOrigin', dirname($file)))
|
|
2216
|
2 |
0 |
if $oLocation
|
|
2222
|
4 |
0 |
if ($oObject and $oMethod and $oLocationSub)
|
|
2235
|
4 |
0 |
if (@aDocumentDest)
|
|
2241
|
4 |
0 |
if $oLocation
|
|
2246
|
3 |
4 |
if (my $module = $oDocument->moduleAt('row', $row, 'col', $col))
|
|
2247
|
0 |
3 |
unless my $file = $self->fileFindModule('nameModule', $module, 'dirOrigin', dirname($file))
|
|
2289
|
2 |
7 |
if (my $method = $oDocument->selfMethodCallAt('row', $row, 'col', $col))
|
|
2295
|
2 |
5 |
if ($module and $method)
|
|
2296
|
2 |
0 |
if (my $oDocumentDest = $self->oDocumentFindModule('nameModule', $module, 'dirOrigin', dirname($file)))
|
|
2303
|
1 |
0 |
if ($oObject and $oMethod and $oLocationSub)
|
|
2307
|
1 |
0 |
if (@aDocumentDest)
|
|
2314
|
1 |
3 |
if (my $module = $oDocument->moduleAt('row', $row, 'col', $col))
|
|
2315
|
0 |
1 |
unless my $file = $self->fileFindModule('nameModule', $module, 'dirOrigin', dirname($file))
|
|
2322
|
0 |
1 |
unless $oLocation->rhProperty->{'text'} = $self->podFromFile('file', $file)
|
|
2327
|
3 |
0 |
if ($oDocument->isEmptyAt('row', $row, 'col', $col))
|
|
2332
|
0 |
3 |
unless $oLocation->rhProperty->{'text'} = $self->podFromFile('file', $file)
|
|
2435
|
0 |
0 |
unless $self->setFindProject('file', $file)
|
|
2454
|
0 |
0 |
unless $self->setFindProject('file', $file)
|
|
2483
|
0 |
4 |
unless $self->setFindProject('file', $file)
|
|
2514
|
0 |
1 |
unless $self->setFindProject('file', $file)
|
|
2533
|
0 |
0 |
unless $self->setFindProject('file', $file)
|
|
2553
|
0 |
0 |
unless $self->setFindProject('file', $file)
|
|
2602
|
0 |
0 |
if $package eq 'main'
|
|
2647
|
0 |
0 |
unless my $oDocument = $self->oDocumentFindModule('nameModule', $name, 'dirOrigin', $dirOrigin)
|
|
2703
|
2 |
175 |
unless my $fileModule = $self->fileFindModule('nameModule', $nameModule, 'dirOrigin', $dirOrigin)
|
|
2708
|
0 |
175 |
unless my $oDocument = $self->oDocumentParseFile($fileModule)
|
|
2731
|
0 |
2 |
unless $self->setFindProject('file', $fileProjectOf)
|
|
2762
|
0 |
0 |
unless $line =~ / -> \s* $nameMethod \b /x
|
|
2763
|
0 |
0 |
if $line =~ / ^ \s* \# /x
|
|
2764
|
0 |
0 |
unless $oDocument ||= $self->oDocumentParseFile($file)
|
|
2766
|
0 |
0 |
unless my $oLocationSub = $oDocument->oLocationSubAt('row', $row, 'col', 1)
|
|
2775
|
0 |
0 |
if $hSeen{"$namePackage->$nameSub"}++
|
|
2853
|
224 |
15817 |
if (my $fileFound = $self->fileFoundInDir($dirCur, $fileModuleBase))
|
|
2855
|
0 |
224 |
if (&first(sub {
$_ eq $dir;
}
, @aDirIncProject))
|
|
2860
|
51 |
173 |
unless $nameModule
|
|
2873
|
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)
|
|
2898
|
543 |
4729 |
if $dir =~ m[^( / | \\ | \w: \\ )$]x
|
|
2926
|
10 |
451 |
if ($self->fileFoundInDir($dirCur, $fileModuleBase))
|
|
2934
|
49 |
398 |
if $dir =~ m[^( / | \\ | \w: \\ )$]x
|
|
2959
|
68 |
6307 |
if (my $fileFound = $self->fileFoundInDir($dirCur, $fileModuleBase))
|
|
2997
|
302 |
22575 |
if -e $file
|
|
3044
|
6 |
78 |
unless $oLocation
|
|
3046
|
0 |
78 |
unless my $pod = $oLocation->rhProperty->{'pod'}
|
|
3047
|
0 |
78 |
unless $oLocation->rhProperty->{'text'} = $self->textFromPod($pod)
|
|
3077
|
0 |
37 |
unless my $oDocument = $self->oDocumentFindModule('nameModule', $nameModule, 'dirOrigin', $dirOrigin)
|
|
3081
|
0 |
37 |
unless $oDocument->determineLikelyApi('nameModule', $nameModule)
|
|
3082
|
29 |
8 |
unless my $score = $oDocument->scoreInterfaceMatch('nameModule', $nameModule, 'raMethodRequired', $raMethodRequired, 'raMethodNice', $raMethodNice)
|
|
3115
|
0 |
0 |
unless my $packageName = $oDocument->packageAt('row', $row)
|
|
3117
|
0 |
0 |
unless $oDocument->determineLikelyApi('nameModule', $packageName)
|
|
3141
|
22 |
13 |
&$rsGrepDocument($oDocument) ? :
|
|
|
0 |
35 |
$@ ? :
|
|
3177
|
705 |
26 |
unless my $keyTotal = $self->cacheKeyTotal($file, $key)
|
|
3179
|
0 |
26 |
unless my $data = freeze($value)
|
|
3202
|
707 |
52 |
unless my $keyTotal = $self->cacheKeyTotal($file, $key)
|
|
3206
|
26 |
26 |
unless my $data = $self->oCache->get($keyTotal)
|
|
3211
|
0 |
26 |
unless my $rValue = thaw($data)
|
|
3233
|
1412 |
80 |
unless $self->oCache
|
|
3235
|
2 |
78 |
unless my $timestamp = (stat $file)[9]
|