| line |
l |
!l |
condition |
|
37
|
18 |
5 |
*${\"${caller}::EXPORT_TAGS";}{"HASH"} // \%{*${\"${caller}::EXPORT_TAGS";} = {};} |
|
43
|
1 |
12 |
*${\"${caller}::EXPORT_OK";}{"ARRAY"} // \@{*${\"${caller}::EXPORT_OK";} = [];} |
|
48
|
0 |
13 |
*${\"${caller}::EXPORT";}{"ARRAY"} // \@{*${\"${caller}::EXPORT";} = [];} |
|
113
|
7 |
6 |
&reftype($_[0]) // "" |
|
114
|
3 |
10 |
&reftype($_[-1]) // "" |
|
116
|
0 |
13 |
shift() // scalar caller |
|
146
|
0 |
10 |
$EXPORT_TAGS->{$tag} //= [] |
|
163
|
0 |
10 |
$EXPORT_TAGS->{'all'} //= \@all |
|
166
|
11 |
2 |
$EXPORT_TAGS->{'default'} // [] |
|
410
|
2 |
2 |
&reftype($id) // "" |
|
416
|
2 |
2 |
_EXPORT_TAGS($package)->{$tag} //= [] |
|
426
|
1 |
3 |
$HOOK{$package}{'pre'}{$fname} //= sub {
no strict 'refs';
_croak("Error: attempt to redefine enumerating function $fqdn") if exists &{$fqdn;};
my(@values) = map({&{"${package}::$_";};} @{_EXPORT_TAGS($package)->{$tag}});
install_constant_func($fname, \@values, $package);
}
|
|
474
|
2 |
1 |
_EXPORT_TAGS($caller)->{'constants_funcs'} //= [] |