| line |
true |
false |
branch |
|
17
|
0 |
4 |
if ($@) { } |
|
48
|
0 |
38 |
if $self->{'inner'} |
|
58
|
5 |
71 |
if exists $self->{$_} and not ref $self->{$_} |
|
69
|
5 |
33 |
unless exists $self->{'follow_symlinks'} |
|
72
|
37 |
1 |
exists $INC{'blib.pm'} && defined $filename && $filename =~ m[(^|/)blib/] && !$self->{'force_search_all_paths'} ? : |
|
75
|
0 |
38 |
if defined $self->{'search_dirs'} |
|
79
|
38 |
0 |
unless $self->{'search_dirs'} |
|
80
|
0 |
38 |
if defined $self->{'search_dirs'} |
|
87
|
0 |
38 |
unless @plugins |
|
93
|
0 |
346 |
unless $self->_is_legit($_) |
|
98
|
0 |
38 |
if (defined $self->{'instantiate'}) { } |
|
102
|
0 |
0 |
unless $package->can($method) |
|
104
|
0 |
0 |
if $@ |
|
105
|
0 |
0 |
if $obj |
|
123
|
0 |
38 |
if (defined $self->{'only'}) |
|
124
|
0 |
0 |
if (ref $self->{'only'} eq 'ARRAY') { } |
|
|
0 |
0 |
elsif (ref $self->{'only'} eq 'Regexp') { } |
|
|
0 |
0 |
elsif (ref $self->{'only'} eq '') { } |
|
134
|
0 |
38 |
if (defined $self->{'except'}) |
|
135
|
0 |
0 |
if (ref $self->{'except'} eq 'ARRAY') { } |
|
|
0 |
0 |
elsif (ref $self->{'except'} eq 'Regexp') { } |
|
|
0 |
0 |
elsif (ref $self->{'except'} eq '') { } |
|
153
|
0 |
692 |
unless $self->{'_exceptions'}{'only_hash'} |
|
154
|
0 |
692 |
unless $self->{'_exceptions'}{'except_hash'} |
|
159
|
0 |
692 |
if keys %only and not $only{$plugin} |
|
160
|
0 |
692 |
unless not defined $only or $plugin =~ /$only/ |
|
162
|
0 |
0 |
if keys %except and $except{$plugin} |
|
163
|
0 |
692 |
if defined $except and $plugin =~ /$except/ |
|
165
|
0 |
692 |
if defined $self->{'max_depth'} and $depth > $self->{'max_depth'} |
|
166
|
0 |
692 |
if defined $self->{'min_depth'} and $depth < $self->{'min_depth'} |
|
198
|
111 |
38 |
unless -e $sp and -d _ |
|
205
|
0 |
124 |
unless ($file) = $file =~ /(.*$file_regex)$/ |
|
209
|
0 |
124 |
if not $self->{'include_editor_junk'} and $self->_is_editor_junk($name) |
|
217
|
0 |
124 |
if ($name eq lc $name or $name eq uc $name) |
|
219
|
0 |
0 |
unless open PKGFILE, "<$pkg_file" |
|
222
|
0 |
0 |
if $line =~ /^=\w/ |
|
223
|
0 |
0 |
if $line =~ /^=cut/ |
|
224
|
0 |
0 |
if $in_pod or $line =~ /^=cut/ |
|
225
|
0 |
0 |
if $line =~ /^\s*#/ |
|
226
|
0 |
0 |
if ($line =~ /^\s*package\s+(.*::)?($name)\s*;/i) |
|
227
|
0 |
0 |
if defined $1 |
|
236
|
0 |
124 |
if $^O =~ /MSWin32|dos/ |
|
238
|
124 |
0 |
if ($directory) { } |
|
240
|
11 |
113 |
unless $directory eq '.' |
|
244
|
11 |
0 |
unless defined $pkg_dir |
|
252
|
0 |
124 |
unless $plugin =~ /(?:[a-z\d]+)[a-z\d]*/i |
|
272
|
0 |
124 |
if $name =~ /~$/ |
|
275
|
0 |
124 |
if $name =~ /^\.#/ |
|
277
|
0 |
124 |
if $name =~ /\.sw[po]$/ |
|
288
|
0 |
346 |
unless $self->_is_legit($plugin) |
|
289
|
13 |
333 |
unless (defined $self->{'instantiate'} or $self->{'require'}) |
|
294
|
0 |
333 |
if defined $self->{'before_require'} |
|
295
|
111 |
222 |
unless ($no_req) |
|
300
|
0 |
111 |
if ($err) |
|
301
|
0 |
0 |
if (defined $self->{'on_require_error'}) { } |
|
302
|
0 |
0 |
unless $self->{'on_require_error'}->($plugin, $err) |
|
308
|
0 |
333 |
if defined $self->{'after_require'} |
|
328
|
44 |
124 |
unless $File::Find::name =~ /$file_regex/ |
|
346
|
149 |
0 |
unless ref $dir and eval {
do {
$dir->can('files')
}
} |
|
351
|
0 |
0 |
unless $plugin =~ /^$path::/ |
|
360
|
0 |
76 |
if exists $self->{'inner'} and not $self->{'inner'} |