| line |
true |
false |
branch |
|
32
|
0 |
6 |
if $$self{'inner'} |
|
39
|
0 |
12 |
if exists $$self{$_} and not ref $$self{$_} |
|
46
|
0 |
6 |
unless $$self{'search_path'} |
|
53
|
0 |
6 |
exists $INC{'blib.pm'} && defined $filename && $filename =~ m[(^|/)blib/] ? : |
|
56
|
0 |
6 |
if defined $$self{'search_dirs'} |
|
64
|
0 |
6 |
unless @plugins |
|
73
|
0 |
6 |
if (defined $$self{'only'}) |
|
74
|
0 |
0 |
if (ref $$self{'only'} eq 'ARRAY') { } |
|
|
0 |
0 |
elsif (ref $$self{'only'} eq 'Regexp') { } |
|
|
0 |
0 |
elsif (ref $$self{'only'} eq '') { } |
|
84
|
0 |
6 |
if (defined $$self{'except'}) |
|
85
|
0 |
0 |
if (ref $$self{'except'} eq 'ARRAY') { } |
|
|
0 |
0 |
elsif (ref $$self{'except'} eq 'Regexp') { } |
|
|
0 |
0 |
elsif (ref $$self{'except'} eq '') { } |
|
99
|
0 |
21 |
if keys %only and not $only{$_} |
|
100
|
0 |
21 |
unless not defined $only or /$only/ |
|
102
|
0 |
21 |
if keys %except and $except{$_} |
|
103
|
0 |
21 |
if defined $except and /$except/ |
|
108
|
0 |
6 |
if (defined $$self{'instantiate'}) { } |
|
110
|
0 |
0 |
$_->can($method) ? : |
|
147
|
71 |
6 |
unless -e $sp and -d _ |
|
154
|
0 |
18 |
unless ($file) = $file =~ /(.*$file_regex)$/ |
|
158
|
0 |
18 |
if not $$self{'include_editor_junk'} and $self->_is_editor_junk($name) |
|
166
|
0 |
18 |
if ($name eq lc $name or $name eq uc $name) |
|
168
|
0 |
0 |
unless open PKGFILE, "<$pkg_file" |
|
171
|
0 |
0 |
if $line =~ /^=\w/ |
|
172
|
0 |
0 |
if $line =~ /^=cut/ |
|
173
|
0 |
0 |
if $in_pod or $line =~ /^=cut/ |
|
174
|
0 |
0 |
if $line =~ /^\s*#/ |
|
175
|
0 |
0 |
if ($line =~ /^\s*package\s+(.*::)?($name)\s*;/i) |
|
185
|
0 |
18 |
if $^O =~ /MSWin32|dos/ |
|
187
|
18 |
0 |
if ($directory) { } |
|
189
|
0 |
18 |
unless $directory eq '.' |
|
193
|
0 |
0 |
unless defined $pkg_dir |
|
201
|
0 |
18 |
unless $plugin =~ /(?:[a-z\d]+)[a-z\d]/i |
|
204
|
0 |
18 |
if $err |
|
212
|
6 |
0 |
unless exists $$self{'inner'} and not $$self{'inner'} |
|
224
|
0 |
18 |
if $name =~ /~$/ |
|
227
|
0 |
18 |
if $name =~ /^\.#/ |
|
229
|
0 |
18 |
if $name =~ /\.sw[po]$/ |
|
238
|
21 |
0 |
unless defined $$self{'instantiate'} or $$self{'require'} |
|
257
|
6 |
18 |
unless $File::Find::name =~ /$file_regex/ |