| line |
l |
!l |
condition |
|
36
|
46 |
6 |
*${\("${caller}::EXPORT_TAGS");}{"HASH"} // \%{*${\("${caller}::EXPORT_TAGS");} = {};} |
|
41
|
1 |
15 |
*${\("${caller}::EXPORT_OK");}{"ARRAY"} // \@{*${\("${caller}::EXPORT_OK");} = [];} |
|
46
|
0 |
16 |
*${\("${caller}::EXPORT");}{"ARRAY"} // \@{*${\("${caller}::EXPORT");} = [];} |
|
113
|
7 |
9 |
builtin::reftype($_[0]) // "" |
|
114
|
3 |
13 |
builtin::reftype($_[-1]) // "" |
|
116
|
0 |
16 |
shift() // scalar caller |
|
144
|
0 |
10 |
$EXPORT_TAGS->{$tag} //= [] |
|
160
|
0 |
13 |
$EXPORT_TAGS->{'all'} //= \@all |
|
163
|
13 |
3 |
$EXPORT_TAGS->{'default'} // [] |
|
452
|
3 |
3 |
builtin::reftype($id) // "" |
|
477
|
2 |
4 |
_EXPORT_TAGS($package)->{$tag} //= [] |
|
597
|
6 |
4 |
_EXPORT_TAGS($caller)->{$tag} //= [] |
| line |
l |
!l&&r |
!l&&!r |
condition |
|
457
|
6 |
0 |
0 |
$fn_values //= uc $tag |
|
458
|
2 |
4 |
0 |
$fn_names //= $fn_values . '_NAMES' |
|
487
|
1 |
5 |
0 |
$HOOK{$package}{'pre'}{$fn_values} //= sub {
my $fqdn = join("::", $package, $fn_values);
_croak "Error: attempt to redefine enumerating function $fqdn" if exists &{$fqdn;};
no strict 'refs';
my(@values) = map({&{"${package}::$_";};} @{_EXPORT_TAGS($package)->{$tag}});
install_constant_func($fn_values, \@values, $package);
}
|
|
496
|
1 |
5 |
0 |
$HOOK{$package}{'pre'}{$fn_names} //= sub {
my $fqdn = join("::", $package, $fn_names);
_croak "Error: attempt to redefine enumerating function $fqdn" if exists &{$fqdn;};
add_constant_to_tag "constant_name_funcs", $fn_names, [@{_EXPORT_TAGS($package)->{$tag}}], $package;
}
|