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.=<<___;
166 $code.=<<___;
174 $code.=<<___;
243 $code.=<<___;
248 $code.=<<___;
323 $code.=<<___;
330 $code.=<<___;
337 $code.=<<___;
342 $code.=<<___;
391 $code.=<<___;
396 $code.=<<___;
433 $code =~ s/\`([^\`]*)\`/eval $1/gem;
434 print $code;