Variable: perl--format-regexp

perl--format-regexp is a variable defined in perl-mode.el.gz.

Value

"^[     ]*format.*=[    ]*\\(\n\\)"

Documentation

Regexp to match the start of a format declaration.

Source Code

;; Defined in /usr/src/emacs/lisp/progmodes/perl-mode.el.gz
(eval-and-compile
  (defconst perl--syntax-exp-intro-keywords
    '("split" "if" "unless" "until" "while" "print" "printf"
      "grep" "map" "not" "or" "and" "for" "foreach" "return" "die"
      "warn" "eval"))

  (defconst perl--syntax-exp-intro-regexp
    (concat "\\(?:\\(?:^\\|[^$@&%[:word:]]\\)"
            (regexp-opt perl--syntax-exp-intro-keywords)
            ;; A HERE document as an argument to printf?
            ;; when printing to a filehandle.
            "\\|printf?[ \t]*\\$?[_[:alpha:]][_[:alnum:]]*"
            "\\|=>"
            "\\|[?:.,;|&*=!~({[]"
            "\\|[^-+][-+]"    ;Bug#42168: `+' is intro but `++' isn't!
            "\\|\\(^\\)\\)[ \t\n]*"))

  (defconst perl--format-regexp "^[ \t]*format.*=[ \t]*\\(\n\\)"
  "Regexp to match the start of a format declaration."))