Lines Matching defs:ret
34 @DB::ret = (); # return value of last sub executed in list context
35 $DB::ret = ''; # return value of last sub executed in scalar context
70 $DB::ret = undef;
73 @DB::ret = &$DB::sub;
75 @DB::ret;
78 $DB::ret = &$DB::sub;
80 $DB::ret;
233 sub ret {
250 my($p,$f,$l,$s,$h,$w,$e,$r,$a, @a, @ret,$i);
272 push @ret, "$w&$s$a from $f line $l";
275 return @ret;
298 my(@ret) = ();
301 push @ret, [$DB::sub{$name} =~ /^(.*)\:(\d+)-(\d+)$/]
304 return @ret;
368 my(%ret) = ();
373 $ret{$i} = [$DB::dbline[$i], split(/\0/, $DB::dbline{$i})]
376 return %ret;
576 CLIENT->ret() # return from current subroutine