Function: perl-current-defun-name

perl-current-defun-name is a byte-compiled function defined in perl-mode.el.gz.

Signature

(perl-current-defun-name)

Documentation

The add-log-current-defun function in Perl mode.

Source Code

;; Defined in /usr/src/emacs/lisp/progmodes/perl-mode.el.gz
(defun perl-current-defun-name ()
  "The `add-log-current-defun' function in Perl mode."
  (save-excursion
    (if (re-search-backward "^sub[ \t]+\\([^({ \t\n]+\\)" nil t)
	(match-string-no-properties 1))))