gtksourceview2 0.90.6-x86-mingw32

data/vendor/local/share/gtksourceview-2.0/language-specs/perl.lang

@@ -0,0 +1,1017 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!-- ex:set ts=2 et:
+
+ Copyright (C) 2006, 2007 Steve Frécinaux <code@istique.net>
+
+ This library is free software; you can redistribute it and/or
+ modify it under the terms of the GNU Library General Public
+ License as published by the Free Software Foundation; either
+ version 2 of the License, or (at your option) any later version.
+
+ This library is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+ Library General Public License for more details.
+
+ You should have received a copy of the GNU Library General Public
+ License along with this library; if not, write to the
+ Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+ Boston, MA 02111-1307, USA.
+
+TODO: extended regex support
+FIXME: =pod should require an empty line before/after, as written in perlpod
+
+-->
+<language id="perl" _name="Perl" version="2.0" _section="Scripts">
+  <metadata>
+    <property name="mimetypes">text/x-perl;application/x-perl</property>
+    <property name="globs">*.pl;*.pm;*.al;*.perl</property>
+    <property name="line-comment-start">#</property>
+  </metadata>
+
+  <styles>
+    <style id="comment"           _name="Comment"            map-to="def:comment"/>
+    <style id="line-directive"    _name="Line Directive"     map-to="def:preprocessor"/>
+    <style id="include-statement" _name="Include Statement"  map-to="def:preprocessor"/>
+    <style id="string"            _name="String"             map-to="def:string"/>
+    <style id="keyword"           _name="Keyword"            map-to="def:keyword"/>
+    <style id="builtin"           _name="Builtin Function"   map-to="def:builtin"/>
+    <style id="here-doc"          _name="Heredoc"            map-to="def:string" />
+    <style id="here-doc-bound"    _name="Heredoc Bound"      map-to="def:string"/>
+    <style id="system-command"    _name="System Command"     map-to="def:string"/>
+    <style id="operator"          _name="Operator"           map-to="def:keyword"/>
+    <style id="variable"          _name="Variable"           map-to="def:type"/>
+    <style id="file-descriptor"   _name="File Descriptor"    map-to="def:special-constant"/>
+    <style id="control"           _name="Control"            map-to="def:preprocessor"/>
+    <style id="regex"             _name="Regular Expression" map-to="def:string"/>
+    <style id="error"             _name="Error"              map-to="def:error"/>
+    <style id="pod"               _name="POD"                map-to="def:comment"/>
+    <style id="pod-escape"        _name="POD Escape"         map-to="def:special-char"/>
+    <style id="pod-keyword"       _name="POD keyword"        map-to="def:keyword"/>
+    <style id="pod-heading"       _name="POD heading"        map-to="def:doc-comment-element"/>
+  </styles>
+
+  <definitions>
+    <context id="perl" class="no-spell-check">
+      <include>
+        <context ref="def:shebang"/>
+        <context ref="line-directive"/>
+        <context ref="def:shell-like-comment"/>
+        <context ref="pod"/>
+        <context ref="data"/>
+
+        <context ref="double-quoted-string"/>
+        <context ref="single-quoted-string"/>
+        <context ref="system-command"/>
+        <context ref="word-list"/>
+        <context ref="regular-expression"/>
+        <context ref="match"/>
+        <context ref="substitution"/>
+        <context ref="transliteration"/>
+
+        <context ref="match-slashslash"/>
+
+        <context ref="here-doc-no-ve"/>
+        <context ref="here-doc"/>
+
+        <context ref="sub"/>
+        <context ref="variable"/>
+        <context ref="include-statement"/>
+        <context ref="operator"/>
+        <context ref="keyword"/>
+        <context ref="control"/>
+        <context ref="file-descriptor"/>
+        <context ref="builtin"/>
+      </include>
+    </context>
+
+    <!-- in case we have an obviously wrong piece of code to highlight.
+         We put it last so it can highlight everything not handled yet. -->
+    <context id="error" style-ref="error" extend-parent="false">
+      <match>\S</match>
+    </context>
+
+    <define-regex id="operator" extended="true">
+      \-&gt; |
+      \+\+ | \-\- |
+      \*\* |
+      \! | \~ | \\ | \+ | \- |
+      [!=]\~ |
+      \* | / | % |
+      &lt;&lt; | &gt;&gt; |
+      &lt; | &gt; | [&lt;&gt;=!]= | &lt;=&gt; |
+      &amp; | \| | \^ |
+      &amp;&amp; |
+      \.\. | \.\.\. |
+      \? | : |
+      = | \*\*= | \+= | \*= | &amp;= | &lt;&lt;= | &amp;&amp;= | \-= | /= |
+      \|= | &gt;&gt;= | \|\|= | \.= | %= | \^= | \bx= |
+      =&gt; |
+      \b(x|lt|gt|le|ge|eq|ne|cmp|not|and|or|xor)\b
+    </define-regex>
+
+    <context id="operator" style-ref="operator"><!-- see `man perlop` -->
+      <match>\%{operator}</match>
+    </context>
+
+    <!-- #### VARIABLES ################################################### -->
+
+    <!-- $ is not defined in this regexp because it would conflict with
+         \%{plain-variable}. $ is the current module. -->
+    <define-regex id="special-variable" extended="true">
+      \$^[ADEFHILMOPSTWX]? |                                  # ($^A, ...)
+      \$[\\\&quot;\[\]'&amp;`+*.,;=%~?@$&gt;&lt;\(|/!-] |     # ($|, $', ...)
+      \$:[^:] |            # avoid confusion with $::foo (equiv. to $main::foo)
+      \$(0|[1-9][0-9]*)    # numbered variables (regex matches)
+    </define-regex>
+
+    <define-regex id="plain-variable" extended="true">
+      ([$@%]|\$\#)\$*[a-zA-Z_][a-zA-Z0-9_]*
+    </define-regex>
+
+    <context id="plain-variable">
+      <include>
+        <context style-ref="variable">
+          <start>[$@%]{</start>
+          <end>}</end>
+        </context>
+        <context style-ref="variable">
+          <match>\%{plain-variable}</match>
+        </context>
+      </include>
+    </context>
+
+    <context id="special-variable" style-ref="variable">
+      <match>\%{special-variable}</match>
+    </context>
+
+    <context id="variable">
+      <include>
+        <context ref="plain-variable"/>
+        <context ref="special-variable"/>
+      </include>
+    </context>
+
+    <!-- #### PATTERNS / STRINGS / REGEX ################################## -->
+    <!-- see `man perlop` -->
+
+    <!-- available delimiters for m// or s///-style patterns (probably not
+         complete yet).                                                     -->
+    <define-regex id="pattern-delimiter" extended="true">
+      [&amp;+|!/@#\^\-=:;,.?*\\%`"']
+    </define-regex>
+
+    <!-- this assertion is shared by all the regex contexts to avoid wrong
+         highlighing of function calls, etc.
+         \b can't be used because of $var, @var, &func, %func.              -->
+    <!-- FIXME I added { and ( to the list to fix #507075 and #535703. Someone
+         please look at it, it seems wrong. It probably should be a positive
+         look-behind. -->
+    <define-regex id="pattern-before" extended="true">
+      (?&lt;![a-zA-Z0-9@%{(])
+    </define-regex>
+
+    <context id="in-pattern">
+      <include>
+        <context ref="def:escape"/>
+        <context ref="plain-variable"/>
+        <context extend-parent="false">
+          <start>(?=\$)</start>
+          <include>
+            <!-- some variables are not recognized in patterns -->
+            <context><match>\$(?=[|)])</match></context>
+            <context ref="special-variable"/>
+          </include>
+        </context>
+      </include>
+    </context>
+
+
+    <!-- The following context definitions are there to handle nesting of
+         brackets in bracket-delimited regexes.                             -->
+
+    <context id="in-pattern-curly-no-ve">
+      <include>
+        <context>
+          <start>{</start><end>}</end>
+          <include><context ref="in-pattern-curly-no-ve"/></include>
+        </context>
+      </include>
+    </context>
+
+    <context id="in-pattern-curly">
+      <include>
+        <context>
+          <start>{</start><end>}</end>
+          <include><context ref="in-pattern-curly"/></include>
+        </context>
+        <context ref="in-pattern"/>
+      </include>
+    </context>
+
+    <context id="in-pattern-square-no-ve">
+      <include>
+        <context>
+          <start>\[</start><end>\]</end>
+          <include><context ref="in-pattern-square-no-ve"/></include>
+        </context>
+      </include>
+    </context>
+
+    <context id="in-pattern-square">
+      <include>
+        <context>
+          <start>\[</start><end>\]</end>
+          <include><context ref="in-pattern-square"/></include>
+        </context>
+        <context ref="in-pattern"/>
+      </include>
+    </context>
+
+    <context id="in-pattern-round-no-ve">
+      <include>
+        <context>
+          <start>\(</start><end>}</end>
+          <include><context ref="in-pattern-round-no-ve"/></include>
+        </context>
+      </include>
+    </context>
+
+    <context id="in-pattern-round">
+      <include>
+        <context>
+          <start>\(</start><end>\)</end>
+          <include><context ref="in-pattern-round"/></include>
+        </context>
+        <context ref="in-pattern"/>
+      </include>
+    </context>
+
+    <context id="in-pattern-angle-no-ve">
+      <include>
+        <context>
+          <start>&lt;</start><end>&gt;</end>
+          <include><context ref="in-pattern-angle-no-ve"/></include>
+        </context>
+      </include>
+    </context>
+
+    <context id="in-pattern-angle">
+      <include>
+        <context>
+          <start>&lt;</start><end>&gt;</end>
+          <include><context ref="in-pattern-angle"/></include>
+        </context>
+        <context ref="in-pattern"/>
+      </include>
+    </context>
+
+    <!-- One level higher: the following contexts define single and double
+         patterns in general, in ve and no-ve version.                      -->
+
+    <define-regex id="end-of-pattern" extended="true">
+      (?&lt;=
+          [}\]\)&gt;]|
+          \%{pattern-delimiter}
+      )
+    </define-regex>
+
+    <context id="simple-pattern" once-only="true">
+      <start/>
+      <include>
+        <context ref="asserted-comment"/>
+        <context end-parent="true">
+          <start>{</start><end>}</end>
+          <include><context ref="in-pattern-curly"/></include>
+        </context>
+        <context end-parent="true">
+          <start>\[</start><end>\]</end>
+          <include><context ref="in-pattern-square"/></include>
+        </context>
+        <context end-parent="true">
+          <start>\(</start><end>\)</end>
+          <include><context ref="in-pattern-round"/></include>
+        </context>
+        <context end-parent="true">
+          <start>&lt;</start><end>&gt;</end>
+          <include><context ref="in-pattern-angle"/></include>
+        </context>
+        <context end-parent="true">
+          <!-- '' doesn't usually have var expansion. -->
+          <start>'</start><end>'</end>
+          <include>
+            <context style-ref="def:special-char">
+              <match>\\\\|\\'</match>
+            </context>
+          </include>
+        </context>
+        <context end-parent="true">
+          <start>(?P&lt;RD&gt;\%{pattern-delimiter})</start>
+          <end>\%{RD@start}</end>
+          <include><context ref="in-pattern"/></include>
+        </context>
+        <context ref="asserted-comment"/>
+        <context ref="error"/>
+      </include>
+    </context>
+
+    <context id="simple-pattern-no-ve" once-only="true">
+      <start/>
+      <include>
+        <context end-parent="true">
+          <start>{</start><end>}</end>
+          <include><context ref="in-pattern-curly-no-ve"/></include>
+        </context>
+        <context end-parent="true">
+          <start>\[</start><end>\]</end>
+          <include><context ref="in-pattern-square-no-ve"/></include>
+        </context>
+        <context end-parent="true">
+          <start>\(</start><end>\)</end>
+          <include><context ref="in-pattern-round-no-ve"/></include>
+        </context>
+        <context end-parent="true">
+          <start>&lt;</start><end>&gt;</end>
+          <include><context ref="in-pattern-angle-no-ve"/></include>
+        </context>
+        <context end-parent="true">
+          <start>(?P&lt;RD&gt;\%{pattern-delimiter})</start>
+          <end>\%{RD@start}</end>
+        </context>
+        <context ref="asserted-comment"/>
+        <context ref="error"/>
+      </include>
+    </context>
+
+    <context id="double-pattern" once-only="true">
+      <start/>
+      <include>
+        <context end-parent="true">
+          <start>'</start>
+          <end>'</end>
+          <include>
+            <context once-only="true">
+              <start>(?&lt;=(?P&lt;RD&gt;.))</start>
+              <end>\%{RD@start}</end>
+            </context>
+          </include>
+        </context>
+        <context end-parent="true">
+          <start>(?P&lt;RD&gt;\%{pattern-delimiter})</start>
+          <end>\%{RD@start}</end>
+          <include>
+            <context once-only="true">
+              <start>(?&lt;=(?P&lt;RD&gt;.))</start>
+              <end>\%{RD@start}</end>
+              <include><context ref="in-pattern"/></include>
+            </context>
+            <context ref="in-pattern"/>
+          </include>
+        </context>
+        <context end-parent="true">
+          <start/>
+          <include>
+            <context ref="simple-pattern"/>
+            <!-- quick hack to include the same pattern twice: we surround it
+                 with a house-keeping context -->
+            <context once-only="true" end-parent="true">
+              <start>\%{end-of-pattern}</start>
+              <end>\%{end-of-pattern}</end>
+              <include><context ref="simple-pattern"/></include>
+            </context>
+          </include>
+        </context>
+      </include>
+    </context>
+
+    <context id="double-pattern-no-ve" once-only="true">
+      <start/>
+      <include>
+        <context end-parent="true">
+          <start>(?P&lt;RD&gt;\%{pattern-delimiter})</start>
+          <end>\%{RD@start}</end>
+          <include>
+            <context once-only="true">
+              <start>(?&lt;=(?P&lt;RD&gt;.))</start>
+              <end>\%{RD@start}</end>
+            </context>
+          </include>
+        </context>
+        <context end-parent="true">
+          <start/>
+          <include>
+            <context ref="simple-pattern-no-ve"/>
+            <context once-only="true" end-parent="true">
+              <start>\%{end-of-pattern}</start>
+              <end>\%{end-of-pattern}</end>
+              <include><context ref="simple-pattern-no-ve"/></include>
+            </context>
+          </include>
+        </context>
+      </include>
+    </context>
+
+    <context id="single-quoted-string" class="string" class-disabled="no-spell-check">
+      <include>
+        <context style-ref="string">
+          <start>'</start><end>'</end>
+          <include>
+            <context style-ref="def:special-char">
+              <match>\\\\|\\'</match>
+            </context>
+          </include>
+        </context>
+        <context style-ref="string">
+          <start>\%{pattern-before}q\b</start>
+          <end>\%{end-of-pattern}</end>
+          <include><context ref="simple-pattern-no-ve"/></include>
+        </context>
+      </include>
+    </context>
+
+    <context id="double-quoted-string" class="string" class-disabled="no-spell-check">
+      <include>
+        <context style-ref="string">
+          <start>"</start><end>"</end>
+          <include><context ref="in-pattern"/></include>
+        </context>
+        <context style-ref="string">
+          <start>\%{pattern-before}qq\b</start>
+          <end>\%{end-of-pattern}</end>
+          <include>
+            <context ref="asserted-comment"/>
+            <!-- qq'' *has* var expansion, so we can't just use
+                 <context ref="single-pattern"/>.                           -->
+            <context end-parent="true">
+              <start>{</start><end>}</end>
+              <include><context ref="in-pattern-curly"/></include>
+            </context>
+            <context end-parent="true">
+              <start>\[</start><end>\]</end>
+              <include><context ref="in-pattern-square"/></include>
+            </context>
+            <context end-parent="true">
+              <start>\(</start><end>\)</end>
+              <include><context ref="in-pattern-round"/></include>
+            </context>
+            <context end-parent="true">
+              <start>&lt;</start><end>&gt;</end>
+              <include><context ref="in-pattern-angle"/></include>
+            </context>
+            <context end-parent="true">
+              <start>(?P&lt;RD&gt;\%{pattern-delimiter})</start>
+              <end>\%{RD@start}</end>
+              <include><context ref="in-pattern"/></include>
+            </context>
+            <context ref="error"/>
+          </include>
+        </context>
+      </include>
+    </context>
+
+    <context id="word-list" style-ref="string">
+      <start>\%{pattern-before}qw\b</start>
+      <end>\%{end-of-pattern}</end>
+      <include><context ref="simple-pattern-no-ve"/></include>
+    </context>
+
+    <context id="regular-expression" style-ref="regex">
+      <start>\%{pattern-before}qr\b</start>
+      <end>\%{end-of-pattern}[imosx]*</end>
+      <include><context ref="simple-pattern"/></include>
+    </context>
+
+    <context id="system-command">
+      <include>
+        <context style-ref="system-command">
+          <start>`</start><end>`</end>
+          <include><context ref="in-pattern"/></include>
+        </context>
+        <context style-ref="system-command">
+          <start>\%{pattern-before}qx\b</start>
+          <end>\%{end-of-pattern}</end>
+          <include><context ref="simple-pattern"/></include>
+        </context>
+      </include>
+    </context>
+
+    <context id="match" style-ref="regex">
+      <start>\%{pattern-before}m\b</start>
+      <end>\%{end-of-pattern}[cgimosx]*</end>
+      <include><context ref="simple-pattern"/></include>
+    </context>
+
+    <context id="substitution" style-ref="regex">
+      <start>\%{pattern-before}s\b</start>
+      <end>\%{end-of-pattern}[ecgimosx]*</end>
+      <include><context ref="double-pattern"/></include>
+    </context>
+
+    <context id="transliteration" style-ref="regex">
+      <start>\%{pattern-before}(tr|y)\b</start>
+      <end>\%{end-of-pattern}[cds]*</end>
+      <include><context ref="double-pattern-no-ve"/></include>
+    </context>
+
+    <!-- hacks, mostly taken from vim's perl.vim. As they say:
+         “Below some hacks to recognise the // variant. This is virtually
+          impossible to catch in all cases as the / is used in so many other
+          ways, but these should be the most obvious ones.” -->
+    <context id="match-slashslash">
+      <include>
+        <context style-inside="true" style-ref="regex">
+          <start>(^|[^$@%&amp;])(split|while|if)\s+(/)</start>
+          <end>/[cgimosx]*</end>
+          <include>
+            <context sub-pattern="2" where="start" style-ref="builtin"/>
+            <context sub-pattern="3" where="start" style-ref="regex"/>
+            <context sub-pattern="0" where="end" style-ref="regex"/>
+            <context ref="in-pattern"/>
+          </include>
+        </context>
+        <context style-inside="true" style-ref="regex">
+          <start>(^|(?&lt;=[\(\{]))\s*(/)</start>
+          <end>/[cgimosx]*</end>
+          <include>
+            <context sub-pattern="2" where="start" style-ref="regex"/>
+            <context sub-pattern="0" where="end" style-ref="regex"/>
+            <context ref="in-pattern"/>
+          </include>
+        </context>
+        <context style-inside="true" style-ref="regex">
+          <start>\%{operator}\s*(/)</start>
+          <end>/[cgimosx]*</end>
+          <include>
+            <context sub-pattern="1" where="start" style-ref="operator"/>
+            <context sub-pattern="2" where="start" style-ref="regex"/>
+            <context sub-pattern="0" where="end" style-ref="regex"/>
+            <context ref="in-pattern"/>
+          </include>
+        </context>
+      </include>
+    </context>
+
+    <!-- #### HEREDOC STRINGS ############################################# -->
+
+    <define-regex id="here-doc-bound-char">[^\s'"=;]</define-regex>
+
+    <context id="here-doc-no-ve">
+      <start>&lt;&lt;\'(?P&lt;HDB&gt;\%{here-doc-bound-char}*)\'</start>
+      <end>^\%{HDB@start}$</end>
+      <include>
+        <context sub-pattern="0" where="start" style-ref="here-doc-bound"/>
+        <context sub-pattern="0" where="end" style-ref="here-doc-bound"/>
+        <context once-only="true" end-at-line-end="true">
+          <start/><include><context ref="perl"/></include>
+        </context>
+        <context style-ref="here-doc" extend-parent="false"><start/></context>
+      </include>
+    </context>
+
+    <context id="here-doc">
+      <start extended="true" dupnames="true">
+        &lt;&lt;
+        (
+          \"(?P&lt;HDB&gt;\%{here-doc-bound-char}*)\"|   # "EOF"
+          (?P&lt;HDB&gt;\%{here-doc-bound-char}*)        # EOF
+        )
+      </start>
+      <end>^\%{HDB@start}$</end>
+      <include>
+        <context sub-pattern="0" where="start" style-ref="here-doc-bound"/>
+        <context sub-pattern="0" where="end" style-ref="here-doc-bound"/>
+        <context once-only="true" end-at-line-end="true">
+          <start/><include><context ref="perl"/></include>
+        </context>
+        <context style-ref="here-doc" extend-parent="false">
+          <start/>
+          <include>
+            <context ref="def:escape"/>
+            <context ref="variable"/>
+          </include>
+        </context>
+      </include>
+    </context>
+
+    <!-- #### KEYWORDS / BUILTINS / ETC ################################### -->
+
+    <define-regex id="function">[a-zA-Z_][a-zA-Z0-9_]*</define-regex>
+
+    <!-- in sub context, everything is a function -->
+    <context id="sub">
+      <match>(sub)\s+\%{function}\b</match>
+      <include><context sub-pattern="1" style-ref="keyword"/></include>
+    </context>
+
+    <context id="file-descriptor" style-ref="file-descriptor">
+      <keyword>STDIN</keyword>
+      <keyword>STDOUT</keyword>
+      <keyword>STDERR</keyword>
+    </context>
+
+    <context id="control" style-ref="control">
+      <keyword>BEGIN</keyword>
+      <keyword>END</keyword>
+      <keyword>CHECK</keyword>
+      <keyword>INIT</keyword>
+    </context>
+
+    <context id="include-statement">
+      <include>
+        <context style-ref="include-statement">
+          <keyword>require</keyword>
+        </context>
+        <context>
+          <!-- 'use' and 'no' can be used with special flags, so we try to
+               highlight them as well. -->
+          <start>(use|no)\s</start>
+          <end>;</end>
+          <include>
+            <context sub-pattern="0" where="start" style-ref="include-statement"/>
+            <context once-only="true" style-ref="include-statement">
+              <keyword>attributes</keyword>
+              <keyword>autouse</keyword>
+              <keyword>base</keyword>
+              <keyword>bigint</keyword>
+              <keyword>bignum</keyword>
+              <keyword>bigrat</keyword>
+              <keyword>blib</keyword>
+              <keyword>bytes</keyword>
+              <keyword>charnames</keyword>
+              <keyword>constant</keyword>
+              <keyword>diagnostics</keyword>
+              <keyword>encoding</keyword>
+              <keyword>fields</keyword>
+              <keyword>fileset</keyword>
+              <keyword>if</keyword>
+              <keyword>integer</keyword>
+              <keyword>less</keyword>
+              <keyword>lib</keyword>
+              <keyword>locale</keyword>
+              <keyword>open</keyword>
+              <keyword>ops</keyword>
+              <keyword>overload</keyword>
+              <keyword>re</keyword>
+              <keyword>sigtrap</keyword>
+              <keyword>sort</keyword>
+              <keyword>strict</keyword>
+              <keyword>subs</keyword>
+              <keyword>threads</keyword>
+              <keyword>threads::shared</keyword>
+              <keyword>utf8</keyword>
+              <keyword>vars</keyword>
+              <keyword>vmish</keyword>
+              <keyword>warnings</keyword>
+              <keyword>warnings::register</keyword>
+            </context>
+            <context ref="perl"/>
+          </include>
+        </context>
+      </include>
+    </context>
+
+    <context id="keyword" style-ref="keyword">
+      <keyword>break</keyword>
+      <keyword>continue</keyword>
+      <keyword>do</keyword>
+      <keyword>each</keyword>
+      <keyword>else</keyword>
+      <keyword>elsif</keyword>
+      <keyword>foreach</keyword>
+      <keyword>for</keyword>
+      <keyword>if</keyword>
+      <keyword>last</keyword>
+      <keyword>local</keyword>
+      <keyword>my</keyword>
+      <keyword>next</keyword>
+      <keyword>our</keyword>
+      <keyword>package</keyword>
+      <keyword>return</keyword>
+      <keyword>sub</keyword>
+      <keyword>unless</keyword>
+      <keyword>until</keyword>
+      <keyword>while</keyword>
+      <keyword>__FILE__</keyword>
+      <keyword>__LINE__</keyword>
+      <keyword>__PACKAGE__</keyword>
+    </context>
+
+    <context id="builtin" style-ref="builtin">
+      <!-- see `man perlfunc` -->
+      <keyword>abs</keyword>
+      <keyword>accept</keyword>
+      <keyword>alarm</keyword>
+      <keyword>atan2</keyword>
+      <keyword>bind</keyword>
+      <keyword>binmode</keyword>
+      <keyword>bless</keyword>
+      <keyword>caller</keyword>
+      <keyword>chdir</keyword>
+      <keyword>chmod</keyword>
+      <keyword>chomp</keyword>
+      <keyword>chop</keyword>
+      <keyword>chown</keyword>
+      <keyword>chr</keyword>
+      <keyword>chroot</keyword>
+      <keyword>closedir</keyword>
+      <keyword>close</keyword>
+      <keyword>connect</keyword>
+      <keyword>cos</keyword>
+      <keyword>crypt</keyword>
+      <keyword>dbmclose</keyword>
+      <keyword>dbmopen</keyword>
+      <keyword>defined</keyword>
+      <keyword>delete</keyword>
+      <keyword>die</keyword>
+      <keyword>dump</keyword>
+      <keyword>each</keyword>
+      <keyword>endgrent</keyword>
+      <keyword>endhostent</keyword>
+      <keyword>endnetent</keyword>
+      <keyword>endprotoent</keyword>
+      <keyword>endpwent</keyword>
+      <keyword>endservent</keyword>
+      <keyword>eof</keyword>
+      <keyword>eval</keyword>
+      <keyword>exec</keyword>
+      <keyword>exists</keyword>
+      <keyword>exit</keyword>
+      <keyword>exp</keyword>
+      <keyword>fcntl</keyword>
+      <keyword>fileno</keyword>
+      <keyword>flock</keyword>
+      <keyword>fork</keyword>
+      <keyword>format</keyword>
+      <keyword>formline</keyword>
+      <keyword>getc</keyword>
+      <keyword>getgrent</keyword>
+      <keyword>getgrgid</keyword>
+      <keyword>getgrnam</keyword>
+      <keyword>gethostbyaddr</keyword>
+      <keyword>gethostbyname</keyword>
+      <keyword>gethostent</keyword>
+      <keyword>getlogin</keyword>
+      <keyword>getnetbyaddr</keyword>
+      <keyword>getnetbyname</keyword>
+      <keyword>getnetent</keyword>
+      <keyword>getpeername</keyword>
+      <keyword>getpgrp</keyword>
+      <keyword>getppid</keyword>
+      <keyword>getpriority</keyword>
+      <keyword>getprotobyname</keyword>
+      <keyword>getprotobynumber</keyword>
+      <keyword>getprotoent</keyword>
+      <keyword>getpwent</keyword>
+      <keyword>getpwnam</keyword>
+      <keyword>getpwuid</keyword>
+      <keyword>getservbyname</keyword>
+      <keyword>getservbyport</keyword>
+      <keyword>getservent</keyword>
+      <keyword>getsockname</keyword>
+      <keyword>getsockopt</keyword>
+      <keyword>glob</keyword>
+      <keyword>gmtime</keyword>
+      <keyword>goto</keyword>
+      <keyword>grep</keyword>
+      <keyword>hex</keyword>
+      <keyword>import</keyword>
+      <keyword>index</keyword>
+      <keyword>int</keyword>
+      <keyword>ioctl</keyword>
+      <keyword>join</keyword>
+      <keyword>keys</keyword>
+      <keyword>kill</keyword>
+      <keyword>lcfirst</keyword>
+      <keyword>lc</keyword>
+      <keyword>length</keyword>
+      <keyword>link</keyword>
+      <keyword>listen</keyword>
+      <keyword>localtime</keyword>
+      <keyword>log</keyword>
+      <keyword>lstat</keyword>
+      <keyword>map</keyword>
+      <keyword>mkdir</keyword>
+      <keyword>msgctl</keyword>
+      <keyword>msgget</keyword>
+      <keyword>msgrcv</keyword>
+      <keyword>msgsnd</keyword>
+      <keyword>new</keyword>
+      <keyword>oct</keyword>
+      <keyword>opendir</keyword>
+      <keyword>open</keyword>
+      <keyword>ord</keyword>
+      <keyword>pack</keyword>
+      <keyword>pipe</keyword>
+      <keyword>pop</keyword>
+      <keyword>pos</keyword>
+      <keyword>printf</keyword>
+      <keyword>print</keyword>
+      <keyword>prototype</keyword>
+      <keyword>push</keyword>
+      <keyword>quotemeta</keyword>
+      <keyword>rand</keyword>
+      <keyword>readdir</keyword>
+      <keyword>read</keyword>
+      <keyword>readlink</keyword>
+      <keyword>recv</keyword>
+      <keyword>redo</keyword>
+      <keyword>ref</keyword>
+      <keyword>rename</keyword>
+      <keyword>reset</keyword>
+      <keyword>reverse</keyword>
+      <keyword>rewinddir</keyword>
+      <keyword>rindex</keyword>
+      <keyword>rmdir</keyword>
+      <keyword>scalar</keyword>
+      <keyword>seekdir</keyword>
+      <keyword>seek</keyword>
+      <keyword>select</keyword>
+      <keyword>semctl</keyword>
+      <keyword>semget</keyword>
+      <keyword>semop</keyword>
+      <keyword>send</keyword>
+      <keyword>setgrent</keyword>
+      <keyword>sethostent</keyword>
+      <keyword>setnetent</keyword>
+      <keyword>setpgrp</keyword>
+      <keyword>setpriority</keyword>
+      <keyword>setprotoent</keyword>
+      <keyword>setpwent</keyword>
+      <keyword>setservent</keyword>
+      <keyword>setsockopt</keyword>
+      <keyword>shift</keyword>
+      <keyword>shmctl</keyword>
+      <keyword>shmget</keyword>
+      <keyword>shmread</keyword>
+      <keyword>shmwrite</keyword>
+      <keyword>shutdown</keyword>
+      <keyword>sin</keyword>
+      <keyword>sleep</keyword>
+      <keyword>socket</keyword>
+      <keyword>socketpair</keyword>
+      <keyword>sort</keyword>
+      <keyword>splice</keyword>
+      <keyword>split</keyword>
+      <keyword>sprintf</keyword>
+      <keyword>sqrt</keyword>
+      <keyword>srand</keyword>
+      <keyword>stat</keyword>
+      <keyword>study</keyword>
+      <keyword>substr</keyword>
+      <keyword>symlink</keyword>
+      <keyword>syscall</keyword>
+      <keyword>sysread</keyword>
+      <keyword>sysseek</keyword>
+      <keyword>system</keyword>
+      <keyword>syswrite</keyword>
+      <keyword>telldir</keyword>
+      <keyword>tell</keyword>
+      <keyword>tied</keyword>
+      <keyword>tie</keyword>
+      <keyword>time</keyword>
+      <keyword>times</keyword>
+      <keyword>truncate</keyword>
+      <keyword>ucfirst</keyword>
+      <keyword>uc</keyword>
+      <keyword>umask</keyword>
+      <keyword>undef</keyword>
+      <keyword>unlink</keyword>
+      <keyword>unpack</keyword>
+      <keyword>unshift</keyword>
+      <keyword>untie</keyword>
+      <keyword>utime</keyword>
+      <keyword>values</keyword>
+      <keyword>vec</keyword>
+      <keyword>wait</keyword>
+      <keyword>waitpid</keyword>
+      <keyword>wantarray</keyword>
+      <keyword>warn</keyword>
+      <keyword>write</keyword>
+    </context>
+
+    <!-- #### COMMENTS / POD / DATA ####################################### -->
+
+    <!-- usual comments for perl are def:shell-style-comment -->
+    <!-- comment that must have a whitespace before (used in s{}{}, because
+         perl bugs if there is no space between '}' and '#') -->
+    <context id="asserted-comment" style-ref="comment" end-at-line-end="true" class="comment" class-disabled="no-spell-check">
+      <start>(?&lt;![^\s])#</start>
+      <include><context ref="def:in-comment"/></include>
+    </context>
+
+    <context id="line-directive" style-ref="line-directive">
+      <!-- see `man perlsyn` line 676 -->
+      <match extended="true">
+        ^\# \s*
+        (line \s+ (\d+)) \s*
+        (?:(\s"([^"]+)"|[^"]+))? \s*
+        $
+      </match>
+      <include>
+        <context sub-pattern="3" style-ref="string"/>
+      </include>
+    </context>
+
+    <context id="in-pod">
+      <include>
+        <context ref="def:in-comment"/>
+        <context ref="pod-escape"/>
+      </include>
+    </context>
+
+    <context id="pod-escape">
+      <include>
+        <context>
+          <start>[IBCLEFSXZ]&lt;(?!&lt;)</start><end>(?&lt;!&gt;)&gt;</end>
+          <include>
+            <context sub-pattern="0" where="start" style-ref="pod-escape"/>
+            <context sub-pattern="0" where="end" style-ref="pod-escape"/>
+            <context ref="in-pod"/>
+          </include>
+        </context>
+        <!-- doubled angle brackets ("<<" and ">>") may be used if and only if
+             there is whitespace right after the opening delimiter and
+             whitespace right before the closing delimiter! (`man perlpod`) -->
+        <context>
+          <start>[IBCLEFSXZ]&lt;{2}\s</start><end>\s&gt;{2}</end>
+          <include>
+            <context sub-pattern="0" where="start" style-ref="pod-escape"/>
+            <context sub-pattern="0" where="end" style-ref="pod-escape"/>
+            <context ref="in-pod"/>
+          </include>
+        </context>
+        <context>
+          <start>[IBCLEFSXZ]&lt;{3}\s</start><end>\s&gt;{3}</end>
+          <include>
+            <context sub-pattern="0" where="start" style-ref="pod-escape"/>
+            <context sub-pattern="0" where="end" style-ref="pod-escape"/>
+            <context ref="in-pod"/>
+          </include>
+        </context>
+        <context>
+          <start>[IBCLEFSXZ]&lt;{4}\s</start><end>\s&gt;{4}</end>
+          <include>
+            <context sub-pattern="0" where="start" style-ref="pod-escape"/>
+            <context sub-pattern="0" where="end" style-ref="pod-escape"/>
+            <context ref="in-pod"/>
+          </include>
+        </context>
+        <context>
+          <start>[IBCLEFSXZ]&lt;{5}\s</start><end>\s&gt;{5}</end>
+          <include>
+            <context sub-pattern="0" where="start" style-ref="pod-escape"/>
+            <context sub-pattern="0" where="end" style-ref="pod-escape"/>
+            <context ref="in-pod"/>
+          </include>
+        </context>
+        <context>
+          <start>[IBCLEFSXZ]&lt;{6}\s</start><end>\s&gt;{6}</end>
+          <include>
+            <context sub-pattern="0" where="start" style-ref="pod-escape"/>
+            <context sub-pattern="0" where="end" style-ref="pod-escape"/>
+            <context ref="in-pod"/>
+          </include>
+        </context>
+        <!-- one should be insane to put there more than 6 brackets -->
+      </include>
+    </context>
+
+    <context id="pod-heading" end-at-line-end="true" style-inside="true" style-ref="pod-heading">
+      <start>^=(head[1-4])</start>
+      <include>
+        <context sub-pattern="1" where="start" style-ref="pod-keyword"/>
+        <context ref="in-pod"/>
+      </include>
+    </context>
+
+    <context id="pod" style-ref="pod">
+      <start>^(?=(=[a-z]))</start>
+      <end>^=(cut)$</end>
+      <include>
+        <context sub-pattern="1" where="end" style-ref="pod-keyword"/>
+        <context ref="pod-heading"/>
+        <context>
+          <match>^=(pod|encoding|over|item|back)</match>
+          <include><context sub-pattern="1" style-ref="pod-keyword"/></include>
+        </context>
+        <context>
+          <start>^=(begin)\s+(.*)$</start>
+          <end>^=(end)\s+\%{1@start}$</end>
+          <include>
+            <context sub-pattern="1" where="start" style-ref="pod-keyword"/>
+            <context sub-pattern="1" where="end" style-ref="pod-keyword"/>
+            <context ref="pod"/>
+          </include>
+        </context>
+        <context ref="in-pod"/>
+      </include>
+    </context>
+
+    <context id="data" style-ref="comment">
+      <start>__(DATA|END)__</start>
+      <include>
+        <context sub-pattern="0" where="start" style-ref="keyword"/>
+      </include>
+    </context>
+  </definitions>
+</language>