| line |
true |
false |
branch |
|
26
|
4 |
3 |
exists $args{'options'}{'wrap_existing_import'} ? : |
|
|
7 |
9 |
exists $args{'options'} ? : |
|
39
|
4 |
12 |
do {
BEGIN {${^WARNING_BITS} = "\x54\x55\x55\x45\x75\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x15"}
no strict 'refs';
*{$caller_import_name;}{'CODE'}
} ? : |
|
41
|
4 |
12 |
if ($wrap_existing_import) { } |
|
42
|
1 |
3 |
unless $has_import_already |
|
45
|
1 |
11 |
if $has_import_already |
|
64
|
2 |
4 |
exists $args{'options'}{'buildargs'} ? : |
|
|
6 |
6 |
exists $args{'options'} ? : |
|
109
|
4 |
17 |
if ($buildargs) |
|
111
|
1 |
3 |
if @overriden_gimme > 1 |
|
113
|
2 |
1 |
if @overriden_gimme |
|
121
|
98 |
8 |
if (exists $constants->{$gimme}) { } |
|
|
7 |
1 |
elsif ($wrap_existing_import) { } |
|
146
|
4 |
12 |
if ($wrap_existing_import and @leftover_gimme) |
|
165
|
8 |
6 |
unless $args{'options'} |
|
170
|
63 |
41 |
if (ref $value eq 'CODE') { } |
|
|
39 |
2 |
elsif (ref $value eq 'HASH') { } |
|
180
|
1 |
38 |
unless $value->{'options'} |
|
207
|
18 |
209 |
unless (exists $constants->{$gimme}) |
|
208
|
1 |
17 |
unless $wrap_existing_import |
|
225
|
8 |
201 |
exists $constants->{$gimme}{'options'}{'private_name_munger'} ? : |
|
227
|
208 |
1 |
defined $private_name ? : |
|
234
|
17 |
209 |
if ($wrap_existing_import and not exists $constants->{$gimme}) { } |
|
|
6 |
203 |
elsif (do {
&$make_private_glob_and_alias_name();
$pkg_stash->can($private_name)
}) { } |
|
238
|
16 |
1 |
if (my $code = $pkg_stash->can($gimme)) { } |
|
240
|
2 |
14 |
if @value > 1 |
|
269
|
171 |
32 |
unless ref $stash |
|
273
|
27 |
176 |
if ($override and not exists $Constant::Export::Lazy::_GETTING_VALUE_FOR_OVERRIDE->{$pkg_importer} && exists $Constant::Export::Lazy::_GETTING_VALUE_FOR_OVERRIDE->{$pkg_importer}{$gimme}) |
|
279
|
7 |
196 |
if (@overriden_value) { } |
|
280
|
1 |
6 |
if @overriden_value > 1 |
|
293
|
97 |
5 |
unless (exists $Constant::Export::Lazy::_GETTING_VALUE_FOR_OVERRIDE->{$pkg_importer} and exists $Constant::Export::Lazy::_GETTING_VALUE_FOR_OVERRIDE->{$pkg_importer}{$gimme}) |
|
362
|
26 |
71 |
if (my $after = $constants->{$gimme}{'options'}{'after'}) |
|
366
|
1 |
25 |
if @ret |
|
409
|
95 |
21 |
if (not exists $Constant::Export::Lazy::_GETTING_VALUE_FOR_OVERRIDE->{$pkg_importer} && exists $Constant::Export::Lazy::_GETTING_VALUE_FOR_OVERRIDE->{$pkg_importer}{$gimme} and exists $Constant::Export::Lazy::_CALL_SHOULD_ALIAS_FROM_TO->{$pkg_importer} and exists $Constant::Export::Lazy::_CALL_SHOULD_ALIAS_FROM_TO->{$pkg_importer}{$gimme}) |