Searched refs:eval_code (Results 1 - 1 of 1) sorted by relevance

/openbsd-current/gnu/usr.bin/perl/t/comp/
H A Drequire.t390 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
[all...]

Completed in 239 milliseconds