Lines Matching refs:code
28 $code=<<___;303 $code.=<<___;324 $code.=<<___;345 $code.=<<___;366 $code.=<<___;387 $code.=<<___;408 $code.=<<___;430 $code.=<<___;451 $code.=<<___;477 $code.=<<___;502 $code.=<<___;524 $code.=<<___;554 $code.=<<___;559 $code =~ s/\`([^\`]*)\`/eval $1/gem;560 print $code;