So I had a glimpse into it.

Unfortunately the regex is not best quality, it allows preceding white-space to the POD commands.

Please note that cperl-mode already supports outline-mode, I didn't install outshine yet, but as a first step you should try to see if works out of the box without your modifications.

This should be your first step!

If outshine works and you don't like the levels:

see (defvar cperl-imenu--function-name-regexp-perl ... for the regex

and

(defun cperl-outline-level () for the prioritization of levels.

and adjust them to your needs (they already match everything you wanted except =item).

outline-level is just a function which maps any regex-group (number) to a level and the regex group numbers are very well documented in cperl.el

HTH!

Excerpt from cperl.el

;;; Details of groups in this are used in `cperl-imenu--create-perl-in
+dex'
;;;  and `cperl-outline-level'.
;;;; Was: 2=sub|package; now 2=package-group, 5=package-name 8=sub-nam
+e (+3)
(defvar cperl-imenu--function-name-regexp-perl
  (concat
   "^\\("                ; 1 = all
       "\\([ \t]*package"        ; 2 = package-group
          "\\("                ; 3 = package-name-group
        cperl-white-and-comment-rex ; 4 = pre-package-name
           "\\([a-zA-Z_0-9:']+\\)\\)?\\)" ; 5 = package-name
       "\\|"
          "[ \t]*sub"
      (cperl-after-sub-regexp 'named nil) ; 8=name 11=proto 14=attr-st
+art
      cperl-maybe-white-and-comment-rex    ; 15=pre-block
   "\\|"
     "=head\\([1-4]\\)[ \t]+"        ; 16=level
     "\\([^\n]+\\)$"            ; 17=text
   "\\)"))

(defvar cperl-outline-regexp
  (concat cperl-imenu--function-name-regexp-perl "\\|" "\\`"))

;; ...

;; Suggested by Mark A. Hershberger
(defun cperl-outline-level ()
  (looking-at outline-regexp)
  (cond ((not (match-beginning 1)) 0)    ; beginning-of-file
;;;; 2=package-group, 5=package-name 8=sub-name 16=head-level
    ((match-beginning 2) 0)        ; package
    ((match-beginning 8) 1)        ; sub
    ((match-beginning 16)
     (- (char-after (match-beginning 16)) ?0)) ; headN ==> N
    (t 5)))                ; should not happen
[download]

---

---

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		&
	<		&lt;
	>		&gt;
	[		&#91;
	]		&#93;

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.