Lines Matching refs:args
86 my ($t, $tab, %curargs, $new, $eval_index, $dir, $name, $args, $outfile);
135 $args = $1;
137 if ($args ne '') {
139 foreach my $arg (split(/,\s*/,$args)) {
143 $args =~ s/\b(\w)/\$$1/g;
144 $args = "local($args) = \@_;\n$t ";
150 $args = reindent($args);
155 "eval \"\\n#line $eval_index $outfile\\n\" . 'sub $name $proto\{\n$t ${args}eval q($new);\n$t}' unless defined(\&$name);\n";
159 "eval 'sub $name $proto\{\n$t ${args}eval q($new);\n$t}' unless defined(\&$name);\n";
162 print OUT "unless(defined(\&$name)) {\n sub $name $proto\{\n\t${args}eval q($new);\n }\n}\n";
170 $args = reindent($args);