Lines Matching refs:SCALAR
17 sub SCALAR () { 0 }
106 for my $context (qw(SCALAR LIST)) {
138 $caches{SCALAR} = $caches{LIST};
140 $caches{LIST} = $caches{SCALAR};
146 foreach $context (qw(SCALAR LIST)) {
163 S => $caches{SCALAR},
225 my $context = (wantarray() ? LIST : SCALAR);
229 if ($context == SCALAR) {
234 croak "Internal error \#41; context was neither LIST nor SCALAR\n";
241 if ($context == SCALAR) {
273 croak "Internal error \#42; context was neither LIST nor SCALAR\n";