| line |
true |
false |
branch |
|
23
|
7 |
15 |
if (ref $module_with_optional_args eq 'ARRAY') { } |
|
|
0 |
15 |
elsif (ref $module_with_optional_args) { } |
|
|
10 |
5 |
elsif ($module_with_optional_args =~ /(.+?)[=,](.*)/) { } |
|
24
|
1 |
6 |
unless @$module_with_optional_args == 1 or @$module_with_optional_args == 2 |
|
28
|
3 |
3 |
if ref $args eq "HASH" |
|
29
|
1 |
5 |
unless ref $args eq "ARRAY" |
|
45
|
20 |
0 |
ref $_[0] eq 'HASH' ? : |
|
48
|
2 |
18 |
defined $opts->{'load'} ? : |
|
50
|
2 |
18 |
unless ($do_load) |
|
51
|
0 |
2 |
if ($opts->{'ns_prefix'}) { } |
|
|
0 |
4 |
elsif ($opts->{'ns_prefixes'} and @{$opts->{'ns_prefixes'};}) { } |
|
52
|
0 |
0 |
$opts->{'ns_prefix'} =~ /::\z/ ? : |
|
54
|
0 |
0 |
$opts->{'ns_prefixes'}[0] =~ /::\z/ ? : |
|
60
|
1 |
16 |
defined $opts->{'ns_prefix'} ? : |
|
|
1 |
17 |
$opts->{'ns_prefixes'} ? : |
|
61
|
1 |
17 |
$opts->{'ns_prefixes'} ? : |
|
65
|
3 |
16 |
if (length $ns_prefix) { } |
|
66
|
0 |
3 |
$ns_prefix =~ /::\z/ ? : |
|
73
|
2 |
17 |
if ($try_all) { } |
|
74
|
1 |
1 |
unless $@ |
|
75
|
0 |
1 |
unless $@ =~ /\ACan't locate/ |
|
80
|
0 |
14 |
if ($@) |
|
87
|
10 |
10 |
ref $_[0] eq 'HASH' ? : |
|
93
|
0 |
15 |
defined $opts->{'caller'} ? : |
|
|
5 |
15 |
defined $opts->{'target_package'} ? : |
|
96
|
0 |
20 |
unless $target_package =~ /$Regexp::Pattern::Perl::Module::RE{'perl_modname'}{'pat'}/ |
|
102
|
5 |
9 |
defined $opts->{'import'} ? : |
|
103
|
9 |
5 |
if ($do_import) |
|
105
|
1 |
8 |
if $@ |
|
112
|
3 |
1 |
ref $_[0] eq 'HASH' ? : |
|
122
|
1 |
3 |
defined $opts->{'construct'} ? : |
|
123
|
3 |
1 |
if ($do_construct) { } |
|
125
|
1 |
2 |
defined $opts->{'constructor'} ? : |
|
134
|
0 |
1 |
ref $_[0] eq 'HASH' ? : |
|
140
|
0 |
1 |
if (defined $opts->{'function'}) { } |
|
143
|
0 |
1 |
unless $module =~ s/\A(.+)::(\w+)\z/$1/ |
|
152
|
0 |
1 |
ref $_[0] eq 'HASH' ? : |
|
158
|
0 |
1 |
if (defined $opts->{'method'}) { } |
|
161
|
0 |
1 |
unless $module =~ s/\A(.+)::(\w+)\z/$1/ |