Skip to content
Browse files

Add 'feature' "keywords"

brings brush up to date with pull req on SyntaxHighlighter
  • Loading branch information...
1 parent f0977c3 commit a3817afa054d0b8ffbcdea5d167f6cc20bbc2bc3 @rwstauner rwstauner committed Oct 27, 2011
Showing with 6 additions and 2 deletions.
  1. +6 −2 root/static/js/shBrushPerl.js
View
8 root/static/js/shBrushPerl.js
@@ -42,12 +42,16 @@
'shmwrite shutdown sin sleep socket socketpair sort splice split sprintf ' +
'sqrt srand stat study substr symlink syscall sysopen sysread sysseek ' +
'system syswrite tell telldir time times tr truncate uc ucfirst umask ' +
- 'undef unlink unpack unshift utime values vec wait waitpid warn write';
+ 'undef unlink unpack unshift utime values vec wait waitpid warn write ' +
+ // feature
+ 'say';
var keywords =
'bless caller continue dbmclose dbmopen die do dump else elsif eval exit ' +
'for foreach goto if import last local my next no our package redo ref ' +
'require return sub tie tied unless untie until use wantarray while ' +
+ // feature
+ 'given when default ' +
// Try::Tiny
'try catch finally ' +
// Moose
@@ -62,7 +66,7 @@
// currently ignoring single quote package separator and utf8 names
{ regex: /(?:[$@%*]|\$#)[a-zA-Z_](\w+|::)*/g, css: 'variable' },
{ regex: /\b__(?:END|DATA)__\b[\s\S]*$/g, css: 'comments' },
- { regex: /^=\w[\s\S]*?\n=cut\s*$/gm, css: 'comments' },
+ { regex: /^=\w[\s\S]*?\n=cut\s*$/gm, css: 'comments' }, // pod
{ regex: new RegExp(this.getKeywords(funcs), 'gm'), css: 'functions' },
{ regex: new RegExp(this.getKeywords(keywords), 'gm'), css: 'keyword' }
];

0 comments on commit a3817af

Please sign in to comment.
Something went wrong with that request. Please try again.