Lines Matching refs:sym
13 my ($sym, $ch);
15 if (($ch, $sym) = /^([\$\@\%\*\&])(.+)/) {
16 if ($sym =~ /\W/) {
18 if ($sym =~ /^\w+[[{].*[]}]$/) {
21 } elsif (warnings::enabled() and length($sym) == 1 and $sym !~ tr/a-zA-Z//) {
28 $sym = "${callpack}::$sym" unless $sym =~ /::/;
29 *$sym =
30 ( $ch eq "\$" ? \$$sym
31 : $ch eq "\@" ? \@$sym
32 : $ch eq "\%" ? \%$sym
33 : $ch eq "\*" ? \*$sym
34 : $ch eq "\&" ? \&$sym