| line |
true |
false |
branch |
|
21
|
48 |
0 |
unless (exists $Pcore::Core::Exporter::CACHE->{$caller})
|
|
22
|
23 |
25 |
if ref $$import{'pragma'}{'export'} eq 'ARRAY'
|
|
29
|
5 |
128 |
if $$tags{$tag}
|
|
31
|
0 |
128 |
if exists $tags->{$tag} and not $$tags{$tag}
|
|
38
|
285 |
531 |
$sym =~ s/\A([:&\$\@%*])//msu ? :
|
|
40
|
811 |
5 |
if ($type ne ':') { }
|
|
41
|
0 |
811 |
if $type eq '&'
|
|
48
|
0 |
5 |
if $tag eq 'ALL'
|
|
90
|
0 |
933 |
if (ref $arg) { }
|
|
|
708 |
225 |
elsif (substr($arg, 0, 1) eq '-') { }
|
|
96
|
489 |
219 |
if ($arg eq 'level' or $arg eq 'caller') { }
|
|
|
219 |
0 |
elsif ($export_pragma and exists $export_pragma->{$arg}) { }
|
|
100
|
91 |
128 |
$$export_pragma{$arg} ? :
|
|
124
|
5 |
546 |
if $caller eq $self
|
|
134
|
431 |
115 |
if (not $import) { }
|
|
135
|
0 |
431 |
if (not exists $export->{'DEFAULT'}) { }
|
|
143
|
0 |
115 |
unless $export
|
|
154
|
460 |
196 |
if ($sym =~ s/\A([!:])//msu)
|
|
155
|
0 |
460 |
if ($1 eq '!') { }
|
|
158
|
0 |
0 |
if $sym =~ s/\A://msu
|
|
165
|
460 |
196 |
if ($is_tag) { }
|
|
166
|
0 |
460 |
unless exists $export->{$sym}
|
|
168
|
0 |
460 |
if ($no_export) { }
|
|
182
|
0 |
196 |
if index($sym, '=') > 0
|
|
184
|
0 |
196 |
unless exists $$export{'ALL'}{$sym}
|
|
186
|
0 |
196 |
if ($no_export) { }
|
|
196
|
546 |
0 |
if (%$symbols)
|
|
202
|
30 |
1870 |
unless defined *{"${self}::$$export_all{$sym}[0]";}
|
|
218
|
0 |
0 |
$type eq '*' ? :
|
|
|
0 |
0 |
$type eq '%' ? :
|
|
|
0 |
0 |
$type eq '@' ? :
|
|
|
1365 |
0 |
$type eq '$' ? :
|
|
|
505 |
1365 |
$type eq '' ? :
|