Lines Matching refs:eval_code
390 my @eval_code = (
408 foreach my $eval_code (@eval_code) {
410 my $eval_code_munged= $eval_code=~s/PACK/$pack_name/r;
449 my ($pack_name, $param_str, $this_code, $mod_code, $eval_code)= @$tuple;
453 # these might be assigned to in the $eval_code
460 $descr .= " via `$eval_code`";
462 my $not = eval "$eval_code 1" ? "" : "not ";
474 if ($eval_code=~/\$return_val/) {
480 elsif ($eval_code=~/\@return_val/) {
502 if ($eval_code=~/return_val/) {