line |
true |
false |
branch |
18
|
8 |
10 |
ref $_[0] eq 'HASH' ? : |
24
|
0 |
14 |
defined $opts->{'caller'} ? : |
|
4 |
14 |
defined $opts->{'target_package'} ? : |
27
|
0 |
18 |
unless $target_package =~ /$Regexp::Pattern::Perl::Module::RE{'perl_modname'}{'pat'}/ |
30
|
5 |
13 |
if (ref $module_with_optional_args eq 'ARRAY') { } |
|
0 |
13 |
elsif (ref $module_with_optional_args) { } |
|
8 |
5 |
elsif ($module_with_optional_args =~ /(.+?)=(.*)/) { } |
31
|
1 |
4 |
unless @$module_with_optional_args == 1 or @$module_with_optional_args == 2 |
35
|
1 |
3 |
if ref $args eq "HASH" |
36
|
1 |
3 |
unless ref $args eq "ARRAY" |
50
|
1 |
14 |
defined $opts->{'ns_prefix'} ? : |
|
1 |
15 |
$opts->{'ns_prefixes'} ? : |
51
|
1 |
15 |
$opts->{'ns_prefixes'} ? : |
55
|
3 |
14 |
if (length $ns_prefix) { } |
56
|
0 |
3 |
$ns_prefix =~ /::\z/ ? : |
64
|
2 |
15 |
if ($try_all) { } |
65
|
1 |
1 |
unless $@ |
70
|
0 |
12 |
if ($@) |
75
|
4 |
8 |
defined $opts->{'import'} ? : |
76
|
8 |
4 |
if ($do_import) |
78
|
1 |
7 |
if $@ |
85
|
2 |
1 |
ref $_[0] eq 'HASH' ? : |
94
|
1 |
2 |
defined $opts->{'construct'} ? : |
95
|
2 |
1 |
if ($do_construct) { } |
97
|
1 |
1 |
defined $opts->{'constructor'} ? : |