Lines Matching refs:code
36 my $code = "";
46 $code.=<<___;
58 $code.=<<___;
72 $code.=<<___;
79 $code.=<<___;
85 $code.=<<___;
94 $code.=<<___;
99 $code.=<<___;
104 $code.=<<___;
116 $code.=<<___;
121 $code.=<<___;
132 $code.=<<___;
137 $code.=<<___;
142 $code.=<<___;
167 $code.=<<___;
175 $code.=<<___;
244 $code.=<<___;
249 $code.=<<___;
324 $code.=<<___;
331 $code.=<<___;
338 $code.=<<___;
343 $code.=<<___;
392 $code.=<<___;
397 $code.=<<___;
434 $code =~ s/\`([^\`]*)\`/eval $1/gem;
435 print $code;
