Function: cperl-map-pods-heres

cperl-map-pods-heres is a byte-compiled function defined in cperl-mode.el.gz.

Signature

(cperl-map-pods-heres FUNC &optional PROP S END)

Documentation

Execute a function over regions of pods or here-documents.

PROP is the text-property to search for; default to in-pod. Stop when function returns nil.

Source Code

;; Defined in /usr/src/emacs/lisp/progmodes/cperl-mode.el.gz
(defun cperl-map-pods-heres (func &optional prop s end)
  "Execute a function over regions of pods or here-documents.
PROP is the text-property to search for; default to `in-pod'.  Stop when
function returns nil."
  (let (pos posend has-prop (cont t))
    (or prop (setq prop 'in-pod))
    (or s (setq s (point-min)))
    (or end (setq end (point-max)))
    (cperl-update-syntaxification end)
    (save-excursion
      (goto-char (setq pos s))
      (while (and cont (< pos end))
	(setq has-prop (get-text-property pos prop))
	(setq posend (next-single-property-change pos prop nil end))
	(and has-prop
	     (setq cont (funcall func pos posend prop)))
	(setq pos posend)))))