Lines Matching refs:code
50 $code=<<___;69 $code.=<<___;76 $code.=<<___ if ($flavour =~ /3[12]/);79 $code.=<<___;94 $code.=<<___;100 $code.=<<___ if ($i==1);103 $code.=<<___ if ($i>1);107 $code.=<<___;122 $code.=<<___;182 $code.=<<___;228 $code.=<<___;242 print $code;