Lines Matching refs:top
74 The C<t> option prints the object on the top of the stack as it's
104 my $top = UNKNOWN; # shadows top element of stack as
172 warn sprintf("top = [%s, %s, %s]\n", @$top) if $debug_top;
224 $top = UNKNOWN;
229 $top = $pad[$op->targ];
230 process($top, $op->private & OPpLVAL_INTRO ? "intro" : "used");
242 sub pp_rv2cv { deref(shift, $top, "&"); }
243 sub pp_rv2hv { deref(shift, $top, "%"); }
244 sub pp_rv2sv { deref(shift, $top, "\$"); }
245 sub pp_rv2av { deref(shift, $top, "\@"); }
246 sub pp_rv2gv { deref(shift, $top, "*"); }
252 $top = $pad[$op->padix];
253 $top = UNKNOWN unless $top;
254 $top->[1] = '$';
258 $top = [$gv->STASH->NAME, '$', $gv->SAFENAME];
260 process($top, $op->private & OPpLVAL_INTRO ||
268 $top = $pad[$op->padix];
269 $top = UNKNOWN unless $top;
270 $top->[1] = '*';
274 $top = [$gv->STASH->NAME, "*", $gv->SAFENAME];
276 process($top, $op->private & OPpLVAL_INTRO ? "intro" : "used");
284 $top = ["?", "",
289 $top = $pad[$op->targ];
290 $top = UNKNOWN unless $top;
296 $top = ["(method)", "->".$top->[1], $top->[2]];
301 if ($top->[1] eq "m") {
302 process($top, "meth");
304 process($top, "subused");
306 $top = UNKNOWN;