line |
true |
false |
branch |
97
|
3 |
0 |
if $MODULE_USED |
100
|
0 |
0 |
unless my $includes = $doc->find('PPI::Statement::Include') |
105
|
0 |
1 |
if $File::Find::name =~ m[ / \. [^.] ]x |
106
|
0 |
1 |
unless / \.pm \z /x |
107
|
0 |
1 |
if not -f -r $_ or -z _ or -B _ |
109
|
0 |
1 |
if $SHOW_ACTIVITY |
111
|
0 |
1 |
unless my $packages = eval {
do {
$doc->find('PPI::Statement::Package')
}
} |
118
|
0 |
1 |
if $File::Find::name =~ m[ / \. [^.] ]x |
120
|
1 |
0 |
if (/ \. /x) { } |
121
|
0 |
1 |
unless / \. (?: cgi | p[lm] | t ) \z /x |
124
|
0 |
0 |
if not -f -r $_ or -z _ or -B _ |
126
|
0 |
0 |
unless eval {
do {
first_line($_) =~ m[ \A \#! .* /perl ]x
}
} |
129
|
0 |
1 |
if $SHOW_ACTIVITY |
130
|
0 |
1 |
unless my(@packages) = eval {
do {
modules_used($_)
}
} |