Lines Matching refs:code
80 $code.=<<___ if ($i==15);
85 $code.=<<___ if ($i<16);
89 $code.=<<___ if ($i>=16);
100 $code.=<<___ if ($i<=70);
111 $code.=<<___;
130 $code.=<<___;
148 $code.=<<___;
164 $code.=<<___;
177 $code.=<<___ if ($kimdfunc);
192 $code.=<<___;
214 $code.=<<___;
218 $code.=<<___; $K=$K_40_79;
222 $code.=<<___;
226 $code.=<<___;
248 $code =~ s/\`([^\`]*)\`/eval $1/gem;
250 print $code;
