view release on metacpan or  search on metacpan

sepia.el  view on Meta::CPAN

            (and target (goto-char target)))
        (sepia-view-pod)
        (w3m-search-name-anchor (match-string 1 str)))))

   ;; name
   ((string-match "^[^/\"]+$" str)
    ;; view the pod
    ;; -- `M-. d' or `M-. m'
    (if src
        (sepia-module-find str)
      (sepia-perldoc-this str)))
   (t (error "Can't understand POD link %s." str))))

(defun sepia-pod-link-at-point (p)
  "Extract POD link at point, or nil."
  (let* ((bol (save-excursion (forward-line 0) (point)))
         (eol (save-excursion (forward-line 1) (backward-char 1) (point)))
         (beg (or (save-excursion
                    (forward-char 1)    ;in case we're on < of L<
                    (search-backward "L<" bol t)) p))
         (end (save-excursion (search-forward ">" eol t))))
    (if (and beg end) (buffer-substring-no-properties (+ beg 2) (1- end))
      nil)))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; Fight CPerl a bit -- it can be opinionated

(defadvice cperl-imenu--create-perl-index (after simplify compile activate)
  "Make cperl's imenu index simpler."
  (flet ((annoying (x)
                   (dolist (y '("Rescan" "^\\+Unsorted" "^\\+Packages"))
                     (when (string-match y (car x))
                       (return-from annoying t)))
                   nil))
    (setq ad-return-value (remove-if #'annoying ad-return-value))))

;; (defun sepia-view-mode-hook ()
;;   "Let backspace scroll again.

;; XXX Unused, yet."
;;   (local-unset-key (kbd "<backspace>")))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; __DATA__

(defun sepia-init-perl-builtins ()
  (setq sepia-perl-builtins (make-hash-table :test #'equal))
  (dolist (s '(
"abs"
"accept"
"alarm"
"atan2"
"bind"
"binmode"
"bless"
"caller"
"chdir"
"chmod"
"chomp"
"chop"
"chown"
"chr"
"chroot"
"close"
"closedir"
"connect"
"continue"
"cos"
"crypt"
"dbmclose"
"dbmopen"
"defined"
"delete"
"die"
"dump"
"each"
"endgrent"
"endhostent"
"endnetent"
"endprotoent"
"endpwent"
"endservent"
"eof"
"eval"
"exec"
"exists"
"exit"
"exp"
"fcntl"
"fileno"
"flock"
"fork"
"format"
"formline"
"getc"
"getgrent"
"getgrgid"
"getgrnam"
"gethostbyaddr"
"gethostbyname"
"gethostent"
"getlogin"
"getnetbyaddr"
"getnetbyname"
"getnetent"
"getpeername"
"getpgrp"
"getppid"
"getpriority"
"getprotobyname"
"getprotobynumber"
"getprotoent"
"getpwent"
"getpwnam"
"getpwuid"
"getservbyname"
"getservbyport"
"getservent"
"getsockname"
"getsockopt"
"glob"