line |
true |
false |
branch |
20
|
2 |
8 |
$opts{'sub_name'} ? : |
41
|
3 |
3 |
if ($item) { } |
42
|
2 |
1 |
if (not $item =~ /::$/) { } |
82
|
9 |
33 |
if ($plugin =~ /(.*)\W(\w+)\.pm/) { } |
|
0 |
33 |
elsif ($plugin =~ /^(\w+)\.pm$/) { } |
93
|
41 |
1 |
if ($loaded) |
98
|
2 |
10 |
if ref $_[0] |
102
|
1 |
11 |
if ($_[0] and $_[0] eq 'can') { } |
112
|
1 |
11 |
if (@_) |
120
|
10 |
1 |
if ($item) |
121
|
9 |
1 |
if ($item =~ /(?:\.pm|\.pl)/) { } |
125
|
0 |
9 |
unless ($ok_file) |
130
|
8 |
1 |
if (-e $abs_path) |
138
|
2 |
9 |
unless (@plugins) |
141
|
0 |
3 |
if (not $plugins[0] and $self->{'default'}) |
144
|
3 |
8 |
unless ($plugins[0]) |
145
|
2 |
1 |
if ($item) { } |
155
|
3 |
5 |
if ($can) |
159
|
3 |
1 |
if ($mod->can($sub)) |
163
|
2 |
1 |
if $can_count == @$can |
165
|
3 |
0 |
wantarray ? : |
168
|
2 |
3 |
wantarray ? : |