% ^^A ============================================================ % ^^A This documented LaTeX code was generated mechanically from a % ^^A source Perl script. Please edit the original Perl script % ^^A instead of this file. % ^^A ============================================================ % % \begingroup % % ^^A Define a perlsub environment for typesetting and indexing % ^^A Perl subroutines. % \catcode`\^^B=\active % \makeatletter % \def\SpecialMainPerlIndex#1{\@bsphack\special@index{% % #1\actualchar % {\string\ttfamily\space#1} % (Perl)% % \encapchar main}% % \special@index{Perl subroutines:\levelchar#1\actualchar{% % \string\ttfamily\space#1}\encapchar % main}\@esphack} % \newenvironment{perlsub}{^^A % \def\bslash{}^^A % \catcode`_=12^^A % \SpecialEscapechar{\^^B}^^A % \let\SpecialMainIndex=\SpecialMainPerlIndex % \begin{macro} % }{^^A % \end{macro} % } % \makeatother % % ^^A Here's a hack to prevent code lines beginning with "%" from % ^^A being discarded by docstrip yet still have doc typeset them normally. % ^^A We prefix each such line with "%