line |
true |
false |
branch |
46
|
0 |
4 |
unless ($package =~ /^\w+(?:::\w+)*$/) |
54
|
0 |
8 |
unless ($subroutine =~ /^[_[:alpha:]][[:word:]]*$/) |
61
|
0 |
1 |
unless $packages |
62
|
0 |
1 |
unless 'ARRAY' eq ref $packages |
69
|
0 |
3 |
if ($INC{$file} and $INC{$file} ne $message) { } |
85
|
0 |
1 |
unless $subs |
89
|
0 |
3 |
if (exists $$subs_installed{$sub}) |
93
|
0 |
3 |
unless ('CODE' eq ref $code) |
102
|
0 |
1 |
unless $chains |
107
|
0 |
1 |
unless (@methods) |
110
|
0 |
1 |
unless ('CODE' eq ref $code) |
139
|
0 |
1 |
unless $subs |
140
|
1 |
0 |
unless 'ARRAY' eq ref $subs |
151
|
0 |
1 |
if $@ |
161
|
0 |
0 |
if (@_ > 1) |
171
|
0 |
1 |
if (my $loaded = $self->is_package_loaded) |
178
|
1 |
0 |
if (@import) |
186
|
0 |
1 |
$self->import_on_use ? : |
191
|
0 |
1 |
if $@ |
206
|
1 |
0 |
unless ($self->import_on_use) |
211
|
0 |
1 |
if $@ |