Lines Matching refs:code
55 $code.=<<___;94 $code.=<<___;115 $code.=<<___;478 $code.=<<___;496 $code.=<<___;512 $code.=<<___;559 $code.=<<___;590 $code.=<<___;682 $code.=<<___;722 $code.=<<___;749 $code.=<<___;780 $code.=<<___;825 $code =~ s/\`([^\`]*)\`/eval $1/gem;826 print $code;