| line |
true |
false |
branch |
|
14
|
0 |
17 |
$] ge '5.037002' ? : |
|
17
|
0 |
17 |
$] ge '5.011002' && eval 'require Lexical::Sub' ? : |
|
57
|
13 |
29 |
@_ && ref $_[0] eq 'HASH' ? : |
|
59
|
0 |
42 |
if (defined $global_opts->{'into'} and $global_opts->{'into'} eq "-lexical") |
|
63
|
31 |
11 |
unless (defined $global_opts->{'into'}) |
|
69
|
39 |
3 |
@_ ? : |
|
74
|
0 |
42 |
if $global_opts->{'lexical'} |
|
80
|
7 |
65 |
if $not_want{$wanted->[0]} |
|
91
|
0 |
4 |
@_ && ref $_[0] eq 'HASH' ? : |
|
94
|
0 |
4 |
if (defined $global_opts->{'into'} and $global_opts->{'into'} eq "-lexical") |
|
98
|
4 |
0 |
unless (defined $global_opts->{'into'}) |
|
104
|
2 |
2 |
@_ ? : |
|
112
|
4 |
0 |
if $expando == \&Exporter::Tiny::_exporter_expand_sub |
|
116
|
0 |
4 |
if $not_want{$wanted->[0]} |
|
118
|
1 |
3 |
if ($wanted->[1]) |
|
121
|
0 |
1 |
unless ref $wanted->[1] eq "HASH" and not keys %{$$wanted[1];} |
|
126
|
0 |
4 |
defined $expando ? : |
|
137
|
0 |
17 |
$] ge '5.037002' ? : |
|
142
|
0 |
0 |
$sigilname =~ /^\w/ ? : |
|
164
|
22 |
4 |
unless ref $tag_opts eq "HASH" |
|
166
|
0 |
26 |
if exists $tag_opts->{'-as'} and ref $tag_opts->{'-as'} ne "CODE" |
|
171
|
0 |
52 |
if defined $export->[1] and ref $export->[1] ne "HASH" |
|
173
|
48 |
4 |
unless $export->[1] |
|
175
|
2 |
0 |
if exists $export->[1]{'-prefix'} and exists $tag_opts->{'-prefix'} |
|
177
|
0 |
2 |
if exists $export->[1]{'-suffix'} and exists $tag_opts->{'-suffix'} |
|
197
|
0 |
24 |
if ref $tags->{$name} eq "CODE" |
|
200
|
8 |
16 |
if exists $tags->{$name} |
|
202
|
14 |
2 |
if $name eq "all" |
|
205
|
1 |
1 |
if $name eq "default" |
|
226
|
1 |
2 |
$globals->{'is_unimport'} ? : |
|
239
|
0 |
34 |
unless length $b <=> length $a |
|
256
|
16 |
49 |
if ($name =~ /\A([&\$\%\@\*])(.+)\z/) |
|
259
|
0 |
16 |
if ($sigil eq "*") |
|
263
|
49 |
16 |
$sigil eq '&' ? : |
|
265
|
63 |
2 |
if ($sigilname =~ /$permitted/ms) |
|
275
|
27 |
36 |
if $generator |
|
277
|
27 |
9 |
if ($sigil eq '&') { } |
|
279
|
26 |
1 |
if $sub |
|
284
|
9 |
0 |
if $evalled |
|
298
|
0 |
3 |
if $globals->{'is_unimport'} |
|
309
|
44 |
18 |
ref $value eq 'HASH' ? : |
|
318
|
4 |
58 |
exists $value_hash->{'-as'} ? : |
|
|
0 |
62 |
ref $value_hash->{'-as'} ? : |
|
|
0 |
62 |
ref $globals->{'as'} ? : |
|
320
|
0 |
62 |
unless defined $name |
|
323
|
62 |
0 |
unless (ref $name) |
|
324
|
15 |
47 |
if ($name =~ /\A([&\$\%\@\*])(.+)\z/) |
|
327
|
0 |
15 |
if ($sigil eq "*") |
|
336
|
47 |
15 |
$sigil eq '&' ? : |
|
344
|
0 |
62 |
if ref $name eq "SCALAR" |
|
345
|
14 |
48 |
if ref $into eq "HASH" |
|
350
|
0 |
39 |
ref $into ? : |
|
|
0 |
5 |
ref $into ? : |
|
|
4 |
35 |
if (ref $sym eq "CODE" and ref $into ? exists $into->{$name} : exists &{"${into}::$name";} and $sym != (ref $into ? $into->{$name} : \&{"${into}::$name";})) |
|
368
|
1 |
3 |
if $TRACKED{$class}{$into}{$sigilname} |
|
370
|
2 |
2 |
$action == \&Exporter::Tiny::_croak ? : |
|
|
0 |
4 |
ref $into ? : |
|
385
|
0 |
46 |
$installer ? : |
|
394
|
0 |
4 |
if ref $into |
|
399
|
1 |
3 |
if ($name =~ /\A([&\$\%\@\*])(.+)\z/) |
|
402
|
0 |
1 |
if ($sigil eq "*") |
|
406
|
3 |
1 |
$sigil eq '&' ? : |
|
408
|
1 |
3 |
if ($sigil ne "&") |
|
415
|
3 |
0 |
exists &{"${into}::$name";} ? : |
|
416
|
0 |
3 |
unless $our_coderef == $cur_coderef |
|
423
|
9 |
3 |
unless defined *{$old;}{$type} |
|
432
|
0 |
72 |
unless my $in = shift() |
|
435
|
0 |
0 |
ref $in->{$_} ? : |
|
|
0 |
72 |
if ref $in eq "HASH" |
|
443
|
32 |
19 |
!ref($$in[$i + 1]) ? : |
|
|
0 |
51 |
!defined($$in[$i + 1]) ? : |
|
|
61 |
51 |
$i == $#$in ? : |
|
456
|
0 |
0 |
unless my $in = shift() |