Select Code to Download

;;; Details of groups in this are used in `cperl-imenu--create-perl-in
+dex'
;;;  and `cperl-outline-level'.
...
     (- (char-after (match-beginning 16)) ?0)) ; headN ==> N
    (t 5)))                ; should not happen