- my $arg = '';
- print "<$tag$arg class=\"sy-\l$type\">" if $tag;
- if (!$type || $type eq 'Constant'
- and $contents =~ s{^(['"]?)($incname)(?=\1$)}{}) {
- # link other page sources, stylesheets, and javascript
- print $1 . showlink($2, "/source/$2");
- }
- if (!$type and $contents =~ s/^(\s*)([A-Z]\w+(?:::\w+)+)(?![^;\s])//) {
- # link perl module names (Xx::Xx...)
- print $1 . showlink($2, "/source/$2");
- }
- if ($type && $type eq 'Comment'
- and $contents =~ s{^(.*? by )(tools/\S+)}{}) {
- # link generator scripts (by tools/...)
- print $1 . showlink($2, "/source/$2");
- }
- print Text::VimColor::_xml_escape($contents);
- print "</$tag>" if $tag;
+ my $line = Text::VimColor::_xml_escape($contents);
+
+ # link other page sources, stylesheets, and javascript
+ $line =~ s{ ^(['"]?) \K ($incname) (?=\1$) }{ showlink($2, "/source/$2") }xe
+ if !$type || $type eq 'Constant';
+ # link perl module names (Xx::Xx...)
+ $line =~ s{ ^\s* \K ([A-Z]\w+(?:::\w+)+) (?![^;\s]) }{ showlink($1, "/source/$1") }xe
+ if !$type;
+ # link generator scripts (by tools/...)
+ $line =~ s{ ^.*? by\ \K (tools/\S+) }{ showlink($1, "/source/$1") }xe
+ if $type && $type eq 'Comment';
+
+ $line = qq(<$tag class="sy-\l$type">$line</$tag>) if $tag;
+ print $line;
+ print {$cache} $line if $cache;