| line |
true |
false |
branch |
|
18
|
0 |
0 |
if ($class eq 'Importer::Zim::Lexical') |
|
38
|
0 |
16 |
unless my $package = shift() |
|
41
|
8 |
8 |
ref $_[0] eq 'HASH' ? : |
|
42
|
0 |
16 |
exists $opts->{'-version'} ? : |
|
48
|
4 |
12 |
unless @_ or not do {
"${package}::"
}->{'EXPORT'} |
|
51
|
7 |
159 |
ref $_[0] eq 'HASH' ? : |
|
53
|
144 |
22 |
if exists $opts->{'-filter'} |
|
56
|
0 |
89 |
if $opts->{'-strict'} and not $can_export->{$symbol} |
|
57
|
0 |
89 |
if $symbol =~ /^[\$\@\%\*]/ |
|
62
|
8 |
81 |
exists $opts->{'-map'} ? : |
|
64
|
0 |
89 |
unless $sub |
|
68
|
0 |
89 |
if keys %{$seen{$export};} > 1 |
|
69
|
87 |
2 |
unless ($seen) |
|
85
|
1 |
15 |
if exists $o->{'-strict'} |
|
86
|
4 |
12 |
if exists $o->{'-filter'} |
|
88
|
16 |
0 |
unless exists $o->{'-map'} and $opts{'-map'} = $o->{'-map'} |
|
89
|
0 |
16 |
if exists $o->{'-version'} |
|
91
|
0 |
16 |
if (my(@bad) = grep({not $IS_MODULE_OPTION->{$_};} keys %$o)) |
|
104
|
144 |
22 |
if exists $_[1]{'-filter'} |
|
105
|
6 |
160 |
if exists $_[1]{'-map'} |
|
106
|
166 |
0 |
if exists $_[1]{'-strict'} |
|
108
|
6 |
160 |
if exists $o->{'-as'} |
|
109
|
0 |
166 |
if exists $o->{'-filter'} |
|
111
|
166 |
0 |
unless exists $o->{'-map'} and $opts{'-map'} = $o->{'-map'} |
|
112
|
1 |
165 |
if exists $o->{'-strict'} |
|
114
|
0 |
166 |
if (my(@bad) = grep({not $IS_IMPORT_OPTION->{$_};} keys %$o)) |
|
122
|
72 |
72 |
ref $filter eq 'Regexp' ? : |
|
126
|
161 |
5 |
unless ref $_[1] or $_[1] =~ /^[:&]/ |
|
128
|
0 |
0 |
/^&/ ? : |
|
|
0 |
5 |
if ref $_[1] |
|
130
|
2 |
3 |
if $_[1] =~ /^&/ |
|
134
|
0 |
3 |
unless my $symbols = do {
"${package}::"
}->{'EXPORT_TAGS'} && do {
"${package}::EXPORT_TAGS"
}->{$tag} |
|
136
|
0 |
6 |
/^&/ ? : |
|
142
|
4 |
12 |
do {
"${package}::"
}->{'EXPORT'} ? : |
|
|
16 |
0 |
do {
"${package}::"
}->{'EXPORT_OK'} ? : |
|
147
|
12 |
348 |
/^&/ ? : |