| line |
l |
!l |
condition |
|
58
|
80 |
8 |
*${\("${caller}::EXPORT_TAGS");}{"HASH"} // \%{*${\("${caller}::EXPORT_TAGS");} = {};} |
|
63
|
1 |
19 |
*${\("${caller}::EXPORT_OK");}{"ARRAY"} // \@{*${\("${caller}::EXPORT_OK");} = [];} |
|
68
|
0 |
20 |
*${\("${caller}::EXPORT");}{"ARRAY"} // \@{*${\("${caller}::EXPORT");} = [];} |
|
135
|
7 |
13 |
builtin::reftype($_[0]) // "" |
|
136
|
3 |
17 |
builtin::reftype($_[-1]) // "" |
|
138
|
0 |
20 |
shift() // scalar caller |
|
166
|
0 |
10 |
$EXPORT_TAGS->{$tag} //= [] |
|
186
|
0 |
7 |
$EXPORT_TAGS->{'all'} //= \@all |
|
189
|
15 |
5 |
$EXPORT_TAGS->{'default'} // [] |
|
480
|
5 |
6 |
builtin::reftype($id) // "" |
|
504
|
4 |
7 |
_EXPORT_TAGS($package)->{$tag} //= [] |
|
526
|
3 |
4 |
$REGISTRY{'CONSTANTS_TAGS'}{$package} //= {} |
|
628
|
10 |
8 |
_EXPORT_TAGS($caller)->{$tag} //= [] |
|
728
|
4 |
2 |
ui_entry($target, $tag, $pfx)->{'values'}{$name} // (return $name) |
| line |
l |
!l&&r |
!l&&!r |
condition |
|
485
|
11 |
0 |
0 |
$fn_values //= uc $tag |
|
486
|
3 |
8 |
0 |
$fn_names //= $fn_values . '_NAMES' |
|
514
|
2 |
9 |
0 |
$REGISTRY{'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);
}
|
|
523
|
2 |
9 |
0 |
$REGISTRY{'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;
}
|
|
527
|
4 |
7 |
0 |
$REGISTRY{'HOOK'}{$package}{'pre'}{"register_tag:$tag"} //= sub {
+($REGISTRY{'CONSTANTS_TAGS'}{$package} //= {})->{$tag} = $fn_names;
}
|
|
633
|
11 |
0 |
0 |
$REGISTRY{'CONSTANTS_TAGS'}{$target} // _croak("Can't find any constant tags associated with '${target}'") |
|
636
|
11 |
0 |
0 |
$tags->{$tag} // _croak("unknown constant tag '${tag}'") |
|
657
|
0 |
31 |
0 |
$valsubs{$name} //= do {
die "internal error: Can't find subroutine ${target}::$name" unless my $coderef = $target->can($name);
sub {
&$coderef();
}
} |
|
684
|
2 |
1 |
0 |
$name eq "ui_helpers" or $name eq "all" |
|
688
|
0 |
3 |
0 |
$REGISTRY{'HOOK'}{$target}{'post'}{'add_helpers'} //= sub {
_EXPORT_TAGS($target)->{'ui_helpers'} = [@{$EXPORT_TAGS{'ui_helpers'}}];
}
|
|
747
|
1 |
0 |
1 |
ui_entry($target, $tag, $pfx)->{'values'}{$name} // _croak("unknown constant ${tag}: $name") |