| line |
true |
false |
branch |
|
14
|
0 |
16 |
unless my $package = shift() |
|
17
|
8 |
8 |
ref $_[0] eq 'HASH' ? : |
|
18
|
0 |
16 |
exists $opts->{'-version'} ? : |
|
24
|
4 |
12 |
unless @_ or not do {
"${package}::"
}->{'EXPORT'} |
|
27
|
7 |
159 |
ref $_[0] eq 'HASH' ? : |
|
29
|
144 |
22 |
if exists $opts->{'-filter'} |
|
32
|
0 |
89 |
if $opts->{'-strict'} and not $can_export->{$symbol} |
|
33
|
0 |
89 |
if $symbol =~ /^[\$\@\%\*]/ |
|
38
|
8 |
81 |
exists $opts->{'-map'} ? : |
|
40
|
0 |
89 |
unless $sub |
|
44
|
0 |
89 |
if keys %{$seen{$export};} > 1 |
|
45
|
87 |
2 |
unless ($seen) |
|
61
|
1 |
15 |
if exists $o->{'-strict'} |
|
62
|
4 |
12 |
if exists $o->{'-filter'} |
|
64
|
16 |
0 |
unless exists $o->{'-map'} and $opts{'-map'} = $o->{'-map'} |
|
66
|
0 |
16 |
if (my(@bad) = grep({not $IS_MODULE_OPTION->{$_};} keys %$o)) |
|
79
|
144 |
22 |
if exists $_[1]{'-filter'} |
|
80
|
6 |
160 |
if exists $_[1]{'-map'} |
|
81
|
166 |
0 |
if exists $_[1]{'-strict'} |
|
83
|
6 |
160 |
if exists $o->{'-as'} |
|
84
|
0 |
166 |
if exists $o->{'-filter'} |
|
86
|
166 |
0 |
unless exists $o->{'-map'} and $opts{'-map'} = $o->{'-map'} |
|
87
|
1 |
165 |
if exists $o->{'-strict'} |
|
89
|
0 |
166 |
if (my(@bad) = grep({not $IS_IMPORT_OPTION->{$_};} keys %$o)) |
|
97
|
72 |
72 |
ref $filter eq 'Regexp' ? : |
|
101
|
161 |
5 |
unless ref $_[1] or $_[1] =~ /^[:&]/ |
|
103
|
0 |
0 |
/^&/ ? : |
|
|
0 |
5 |
if ref $_[1] |
|
105
|
2 |
3 |
if $_[1] =~ /^&/ |
|
109
|
0 |
3 |
unless my $symbols = do {
"${package}::"
}->{'EXPORT_TAGS'} && do {
"${package}::EXPORT_TAGS"
}->{$tag} |
|
111
|
0 |
6 |
/^&/ ? : |
|
117
|
4 |
12 |
do {
"${package}::"
}->{'EXPORT'} ? : |
|
|
16 |
0 |
do {
"${package}::"
}->{'EXPORT_OK'} ? : |
|
122
|
12 |
348 |
/^&/ ? : |