Variable: cperl-font-lock-keywords-2

(("\\(?:[]%&*>@\\}]\\|\\$\\(?:\\(?:\\(?:[_[:alpha:]][_[:word:]]*\\)?::\\)+\\(?:[_[:alpha:]][_[:word:]]*\\)?\\|[_[:alpha:]][_[:word:]]*\\)\\)[[:blank:]]*{[[:blank:]]*\\(?1:-?\\(?:[_[:alpha:]][_[:word:]]*\\)\\)[[:blank:]]*}"
  (1 font-lock-string-face)
  ("\\=[[:blank:]]*{[[:blank:]]*\\(?1:-?\\(?:[_[:alpha:]][_[:word:]]*\\)\\)[[:blank:]]*}"
   nil nil (1 font-lock-string-face)))
 ("[	 (),[{]\\(?1:-?\\(?:[_[:alpha:]][_[:word:]]*\\)\\)[[:blank:]]*=>"
  1 font-lock-string-face)
 ("\\(?1:\\(?:\\$#\\|@\\)\\)\\(?2:\\$\\(?:\\(?:\\(?:[_[:alpha:]][_[:word:]]*\\)?::\\)+\\(?:[_[:alpha:]][_[:word:]]*\\)?\\|[_[:alpha:]][_[:word:]]*\\|[^	\n ]\\)\\)"
  (1 'cperl-array-face) (2 font-lock-variable-name-face))
 ("\\(?1:%\\)\\(?2:\\$\\(?:\\(?:\\(?:[_[:alpha:]][_[:word:]]*\\)?::\\)+\\(?:[_[:alpha:]][_[:word:]]*\\)?\\|[_[:alpha:]][_[:word:]]*\\|[^	\n ]\\)\\)"
  (1 'cperl-hash-face) (2 font-lock-variable-name-face))
 ("\\(?1:\\(?2:[$%@]\\)\\(?:\\(?:\\(?:[_[:alpha:]][_[:word:]]*\\)?::\\)+\\(?:[_[:alpha:]][_[:word:]]*\\)?\\|[_[:alpha:]][_[:word:]]*\\)\\)[[:blank:]]*\\(?3:[[{]\\)"
  1
  (if (= (- (match-end 2) (match-beginning 2)) 1)
      (if (eq (char-after (match-beginning 3)) 123) 'cperl-hash-face
	'cperl-array-face)
    font-lock-variable-name-face)
  nil)
 ("\\(?1:\\(?2:[%@]\\|\\$#\\)\\(?:\\(?:\\(?:[_[:alpha:]][_[:word:]]*\\)?::\\)+\\(?:[_[:alpha:]][_[:word:]]*\\)?\\|[_[:alpha:]][_[:word:]]*\\)\\)"
  1
  (if (eq (char-after (match-beginning 2)) 37) 'cperl-hash-face
    'cperl-array-face)
  nil)
 cperl-fontify-update
 ("\\<\\(?:method\\|sub\\)\\(?:[\n[:space:]]\\|#.*\n\\)+\\(\\(?:\\(?:\\(?:[_[:alpha:]][_[:word:]]*\\)?::\\)+\\(?:[_[:alpha:]][_[:word:]]*\\)?\\|[_[:alpha:]][_[:word:]]*\\)?\\)\\(?:\\(?:[\n[:space:]]\\|#.*\n\\)*([]$-&*;@[\\]*)\\)?\\(?:\\(?:[\n[:space:]]\\|#.*\n\\)*:\\(?:\\(?:[\n[:space:]]\\|#.*\n\\)*\\(?:[_[:alpha:]][_[:word:]]*\\)\\(?:(\\(?:\\\\.\\|[^()\\]\\|([^()\\]*)\\)*)\\)?\\(?:\\(?:\\(?:[\n[:space:]]\\|#.*\n\\)*:\\(?:[\n[:space:]]\\|#.*\n\\)*\\|\\(?:[\n[:space:]]\\|#.*\n\\)+\\)\\(?:[_[:alpha:]][_[:word:]]*\\)\\(?:(\\(?:\\\\.\\|[^()\\]\\|([^()\\]*)\\)*)\\)?\\)*:?\\)?\\)?\\(?:[\n[:space:]]\\|#.*\n\\)*\\(\\(?3:;\\)\\|{\\|(\\(?:\\(?:\\(?:[\n[:space:]]\\|#.*\n\\)*\\(?:\\$\\(?:[_[:alpha:]][_[:word:]]*\\)\\|\\$\\)\\(?:[\n[:space:]]\\|#.*\n\\)*,\\)*\\(?:[\n[:space:]]\\|#.*\n\\)*\\(?:\\$\\(?:[_[:alpha:]][_[:word:]]*\\)\\|@\\(?:[_[:alpha:]][_[:word:]]*\\)\\|%\\(?:[_[:alpha:]][_[:word:]]*\\)\\|[$%@]\\)\\)?\\(?:\\(?:[\n[:space:]]\\|#.*\n\\)*,\\)?\\(?:[\n[:space:]]\\|#.*\n\\)*)\\(?:[\n[:space:]]\\|#.*\n\\)*\\|(\\(?:[\n[:space:]]\\|#.*\n\\)*\\(?:\\$\\(?:[_[:alpha:]][_[:word:]]*\\)\\|@\\(?:[_[:alpha:]][_[:word:]]*\\)\\|%\\(?:[_[:alpha:]][_[:word:]]*\\)\\)\\(?:[\n[:space:]]\\|#.*\n\\)*\\(?:\\(?://\\|||\\)=\\|[),=]\\)\\|[^(;{]\\|\\'\\)"
  (1
   (if (match-beginning 3) 'font-lock-variable-name-face
     'font-lock-function-name-face)
   nil t)
  ("[(,]\\(?:[\n[:space:]]\\|#.*\n\\)*\\([$%@]\\(?:[_[:alpha:]][_[:word:]]*\\)\\)"
   (progn
     (goto-char (match-beginning 2))
     (condition-case nil (save-excursion (forward-sexp) (point))
       (error (match-end 2))))
   nil (1 font-lock-variable-name-face)))
 ("\\(^\\|[^$@%&\\]\\)\\<\\(\\(?:ADJUST\\|BEGIN\\|CHECK\\|END\\|INIT\\|UNITCHECK\\|a\\(?:sync\\|wait\\)\\|break\\|c\\(?:atch\\|lass\\|ontinue\\)\\|d\\(?:ef\\(?:ault\\|er\\)\\|ie\\|o\\|ump\\)\\|e\\(?:ls\\(?:e\\|if\\)\\|val\\(?:bytes\\)?\\|x\\(?:ec\\|it\\)\\)\\|f\\(?:i\\(?:eld\\|nally\\)\\|or\\(?:each\\)?\\)\\|g\\(?:iven\\|oto\\)\\|if\\|l\\(?:ast\\|ocal\\)\\|m\\(?:ethod\\|y\\)\\|next\\|our\\|package\\|re\\(?:do\\|quire\\|turn\\)\\|s\\(?:tate\\|ub\\)\\|try\\|u\\(?:n\\(?:less\\|til\\)\\|se\\)\\|wh\\(?:en\\|ile\\)\\)\\)\\>"
  . 2)
 ("->[[:space:]]*\\(?1:[_[:alpha:]][_[:word:]]*\\)" 1
  'cperl-method-call)
 ("\\(^\\|[^$@%&\\]\\)\\<\\(\\(?:CORE\\|__\\(?:\\(?:CLASS\\|FILE\\|LINE\\|PACKAGE\\|SUB\\)__\\)\\|a\\(?:bs\\|ccept\\|larm\\|nd\\|tan2\\)\\|b\\(?:in\\(?:d\\|mode\\)\\|less\\)\\|c\\(?:aller\\|h\\(?:dir\\|mod\\|own\\|r\\(?:oot\\)?\\)\\|lose\\(?:dir\\)?\\|mp\\|o\\(?:n\\(?:nect\\|tinue\\)\\|s\\)\\|rypt\\)\\|d\\(?:bm\\(?:close\\|open\\)\\|ie\\|ump\\)\\|e\\(?:nd\\(?:\\(?:gr\\|host\\|net\\|p\\(?:roto\\|w\\)\\|serv\\)ent\\)\\|of\\|q\\|x\\(?:ec\\|it\\|p\\)\\)\\|f\\(?:c\\(?:ntl\\)?\\|ileno\\|lock\\|or\\(?:k\\|mline\\)\\)\\|g\\(?:et\\(?:c\\|gr\\(?:ent\\|gid\\|nam\\)\\|host\\(?:by\\(?:addr\\|name\\)\\|ent\\)\\|login\\|net\\(?:by\\(?:addr\\|name\\)\\|ent\\)\\|p\\(?:eername\\|grp\\|pid\\|r\\(?:iority\\|oto\\(?:byn\\(?:ame\\|umber\\)\\|ent\\)\\)\\|w\\(?:ent\\|nam\\|uid\\)\\)\\|s\\(?:erv\\(?:by\\(?:name\\|port\\)\\|ent\\)\\|ock\\(?:name\\|opt\\)\\)\\)\\|lob\\|mtime\\|[et]\\)\\|hex\\|i\\(?:n\\(?:dex\\|t\\)\\|octl\\)\\|join\\|kill\\|l\\(?:cfirst\\|ength\\|i\\(?:nk\\|sten\\)\\|o\\(?:c\\(?:altime\\|k\\)\\|g\\)\\|stat\\|[cet]\\)\\|m\\(?:kdir\\|sg\\(?:ctl\\|get\\|rcv\\|snd\\)\\)\\|n\\(?:e\\|ot\\)\\|o\\(?:ct\\|pen\\(?:dir\\)?\\|rd?\\)\\|p\\(?:ack\\|ipe\\)\\|quotemeta\\|r\\(?:and\\|e\\(?:ad\\(?:dir\\|lin[ek]\\|pipe\\)?\\|cv\\|f\\|name\\|quire\\|set\\|verse\\|winddir\\)\\|index\\|mdir\\)\\|s\\(?:e\\(?:ek\\(?:dir\\)?\\|lect\\|m\\(?:ctl\\|get\\|op\\)\\|nd\\|t\\(?:grent\\|hostent\\|netent\\|p\\(?:grp\\|r\\(?:iority\\|otoent\\)\\|went\\)\\|s\\(?:\\(?:erven\\|ockop\\)t\\)\\)\\)\\|h\\(?:m\\(?:ctl\\|get\\|read\\|write\\)\\|utdown\\)\\|in\\|leep\\|ocket\\(?:pair\\)?\\|printf\\|qrt\\|rand\\|tat\\|ubstr\\|y\\(?:mlink\\|s\\(?:call\\|open\\|read\\|seek\\|tem\\|write\\)\\)\\)\\|t\\(?:ell\\(?:dir\\)?\\|imes?\\|runcate\\)\\|u\\(?:c\\(?:first\\)?\\|mask\\|n\\(?:\\(?:lin\\|pac\\)k\\)\\|time\\)\\|v\\(?:alues\\|ec\\)\\|w\\(?:a\\(?:it\\(?:pid\\)?\\|ntarray\\|rn\\)\\|rite\\)\\|x\\(?:or\\)?\\)\\)\\>"
  2 font-lock-type-face)
 ("\\(^\\|[^$@%&\\]\\)\\<\\(\\(?:AUTOLOAD\\|BEGIN\\|CHECK\\|DESTROY\\|END\\|INIT\\|UNITCHECK\\|__\\(?:\\(?:DATA\\|END\\)__\\)\\|a\\(?:ll\\|ny\\)\\|break\\|c\\(?:atch\\|ho\\(?:m?p\\)\\)\\|d\\(?:e\\(?:f\\(?:ault\\|ined\\)\\|lete\\)\\|o\\)\\|e\\(?:ach\\|ls\\(?:e\\|if\\)\\|val\\(?:bytes\\)?\\|xists\\)\\|f\\(?:inally\\|or\\(?:each\\|mat\\)?\\)\\|g\\(?:iven\\|oto\\|rep\\)\\|if\\|keys\\|l\\(?:ast\\|ocal\\)\\|m\\(?:ap\\|y\\)\\|n\\(?:ext\\|o\\)\\|our\\|p\\(?:ackage\\|o[ps]\\|r\\(?:intf?\\|ototype\\)\\|ush\\)\\|q[qrwx]\\|re\\(?:do\\|turn\\)\\|s\\(?:ay\\|calar\\|hift\\|ort\\|pli\\(?:ce\\|t\\)\\|t\\(?:ate\\|udy\\)\\|ub\\)\\|t\\(?:ied?\\|ry?\\)\\|u\\(?:n\\(?:def\\|less\\|shift\\|ti[el]\\)\\|se\\)\\|wh\\(?:en\\|ile\\)\\|[mqsy]\\)\\)\\>"
  2 'cperl-nonoverridable-face)
 ("-[rwxoRWXOezsfdlpSbctugkTBMAC]\\>\\([     ]+_\\>\\)?" 0
  font-lock-function-name-face keep)
 ("\\(?:\\(?:^\\|[{[:space:]]\\)\\(?:bootstrap\\|class\\|import\\|no\\|\\(?:packag\\|requir\\|us\\)e\\)\\(?:[\n[:space:]]\\|#.*\n\\)+\\|\\(?2::\\(?:[\n[:space:]]\\|#.*\n\\)*isa\\)(\\(?:[\n[:space:]]\\|#.*\n\\)*\\)\\(?1:\\(?:\\(?:[_[:alpha:]][_[:word:]]*\\)?::\\)+\\(?:[_[:alpha:]][_[:word:]]*\\)?\\|[_[:alpha:]][_[:word:]]*\\)[	\n );]"
  (1 font-lock-function-name-face) (2 font-lock-constant-face t t))
 ("^[   ]*format[       ]+\\([a-zA-Z_][a-zA-Z_0-9:]*\\)[        ]*=[    ]*$"
  1 font-lock-function-name-face)
 ("[[:space:]]*\\(\\_<\\(?:[_[:alpha:]][_[:word:]]*\\)[[:space:]]*:\\)[[:space:]]*\\(?:$\\|[#{]\\|\\<\\(?:do\\|for\\(?:each\\)?\\|until\\|while\\)\\>\\)"
  1 font-lock-constant-face)
 ("\\_<\\(?:break\\|continue\\|goto\\|last\\|next\\|redo\\)[[:space:]]+\\([_[:alpha:]][_[:word:]]*\\)"
  1 font-lock-constant-face)
 ("\\(?:local\\|my\\|our\\|state\\)\\(?:[\n[:space:]]\\|#.*\n\\)*\\((\\(?:[\n[:space:]]\\|#.*\n\\)*\\)?\\([$%*@]\\(?:\\(?:\\(?:[_[:alpha:]][_[:word:]]*\\)?::\\)+\\(?:[_[:alpha:]][_[:word:]]*\\)?\\|[_[:alpha:]][_[:word:]]*\\|[[:digit:]]+\\|\\^[?A-Z\\-_]\\|{[[:space:]]*\\^[?A-Z\\-_][A-Z_[:digit:]]*[[:space:]]*}\\|[!\"$-)+-/:-@\\-`|~]\\)\\)"
  (2 font-lock-variable-name-face)
  ("\\=\\(?:[\n[:space:]]\\|#.*\n\\)*,\\(?:[\n[:space:]]\\|#.*\n\\)*\\([$%*@]\\(?:\\(?:\\(?:[_[:alpha:]][_[:word:]]*\\)?::\\)+\\(?:[_[:alpha:]][_[:word:]]*\\)?\\|[_[:alpha:]][_[:word:]]*\\|[[:digit:]]+\\|\\^[?A-Z\\-_]\\|{[[:space:]]*\\^[?A-Z\\-_][A-Z_[:digit:]]*[[:space:]]*}\\|[!\"$-)+-/:-@\\-`|~]\\)\\)"
   (if (match-beginning 1)
       (save-excursion
	 (goto-char (match-beginning 1))
	 (condition-case nil (forward-sexp 1)
	   (error (condition-case nil (forward-char 200) (error nil))))
	 (1- (point)))
     (forward-char -2))
   nil (1 font-lock-variable-name-face)))
 ("[<->[:space:]-]\\(&?\\(?:builtin::\\)?\\(?:inf\\|nan\\)\\_>\\)" 1
  'font-lock-constant-face)
 ("field\\(?:[\n[:space:]]\\|#.*\n\\)+\\([$%@]\\(?:[_[:alpha:]][_[:word:]]*\\)\\)\\(?:\\(?:[\n[:space:]]\\|#.*\n\\)+\\(:\\(?:\\(?:[\n[:space:]]\\|#.*\n\\)*\\(?:[_[:alpha:]][_[:word:]]*\\)\\(?:(\\(?:\\\\.\\|[^()\\]\\|([^()\\]*)\\)*)\\)?\\(?:\\(?:\\(?:[\n[:space:]]\\|#.*\n\\)*:\\(?:[\n[:space:]]\\|#.*\n\\)*\\|\\(?:[\n[:space:]]\\|#.*\n\\)+\\)\\(?:[_[:alpha:]][_[:word:]]*\\)\\(?:(\\(?:\\\\.\\|[^()\\]\\|([^()\\]*)\\)*)\\)?\\)*:?\\)?\\)\\)?"
  (1 font-lock-variable-name-face)
  ("\\(\\(?::\\(?:[\n[:space:]]\\|#.*\n\\)*\\)?\\(?:[_[:alpha:]][_[:word:]]*\\)\\)\\(?:(\\([_[:alpha:]][_[:word:]]*\\))\\)?"
   (if (match-beginning 2)
       (progn (goto-char (match-beginning 2)) (match-end 2))
     (1+ (point)))
   nil (1 font-lock-constant-face) (2 font-lock-string-face nil t)))
 ("\\_<for\\(?:each\\)?\\(?:[[:blank:]]+\\(?:local\\|my\\|our\\|state\\)\\)?[[:blank:]]*\\(?1:\\$\\(?:[_[:alpha:]][_[:word:]]*\\)\\)[[:blank:]]*("
  1 font-lock-variable-name-face)
 ("\\(?:^\\|[^smywqrx$]\\)\\(!\\)" 1 font-lock-negation-char-face)
 ("\\[\\(\\^\\)" 1 font-lock-negation-char-face prepend))