/**

 * SyntaxHighlighter

 * http://alexgorbatchev.com/

 *

 * SyntaxHighlighter is donationware. If you are using it, please donate.

 * http://alexgorbatchev.com/wiki/SyntaxHighlighter:Donate

 *

 * @version

 * 2.1.364 (October 15 2009)

 * 

 * @copyright

 * Copyright (C) 2004-2009 Alex Gorbatchev.

 *

 * @license

 * This file is part of SyntaxHighlighter.

 * 

 * SyntaxHighlighter is free software: you can redistribute it and/or modify

 * it under the terms of the GNU Lesser General Public License as published by

 * the Free Software Foundation, either version 3 of the License, or

 * (at your option) any later version.

 * 

 * SyntaxHighlighter 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 General Public License for more details.

 * 

 * You should have received a copy of the GNU General Public License

 * along with SyntaxHighlighter.  If not, see <http://www.gnu.org/copyleft/lesser.html>.

 */

SyntaxHighlighter.brushes.Perl = function()

{

	// Contributed by David Simmons-Duffin and Marty Kube

	

	var funcs = 

		'abs accept alarm atan2 bind binmode chdir chmod chomp chop chown chr ' + 

		'chroot close closedir connect cos crypt defined delete each endgrent ' + 

		'endhostent endnetent endprotoent endpwent endservent eof exec exists ' + 

		'exp fcntl fileno flock fork format formline getc getgrent getgrgid ' + 

		'getgrnam gethostbyaddr gethostbyname gethostent getlogin getnetbyaddr ' + 

		'getnetbyname getnetent getpeername getpgrp getppid getpriority ' + 

		'getprotobyname getprotobynumber getprotoent getpwent getpwnam getpwuid ' + 

		'getservbyname getservbyport getservent getsockname getsockopt glob ' + 

		'gmtime grep hex index int ioctl join keys kill lc lcfirst length link ' + 

		'listen localtime lock log lstat map mkdir msgctl msgget msgrcv msgsnd ' + 

		'oct open opendir ord pack pipe pop pos print printf prototype push ' + 

		'quotemeta rand read readdir readline readlink readpipe recv rename ' + 

		'reset reverse rewinddir rindex rmdir scalar seek seekdir select semctl ' + 

		'semget semop send setgrent sethostent setnetent setpgrp setpriority ' + 

		'setprotoent setpwent setservent setsockopt shift shmctl shmget shmread ' + 

		'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';

    

	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';

    

	this.regexList = [

		{ regex: new RegExp('#[^!].*$', 'gm'),					css: 'comments' },

		{ regex: new RegExp('^\\s*#!.*$', 'gm'),				css: 'preprocessor' }, // shebang

		{ regex: SyntaxHighlighter.regexLib.doubleQuotedString,	css: 'string' },

		{ regex: SyntaxHighlighter.regexLib.singleQuotedString,	css: 'string' },

		{ regex: new RegExp('(\\$|@|%)\\w+', 'g'),				css: 'variable' },

		{ regex: new RegExp(this.getKeywords(funcs), 'gmi'),	css: 'functions' },

		{ regex: new RegExp(this.getKeywords(keywords), 'gm'),	css: 'keyword' }

	    ];



	this.forHtmlScript(SyntaxHighlighter.regexLib.phpScriptTags);

}



SyntaxHighlighter.brushes.Perl.prototype	= new SyntaxHighlighter.Highlighter();

SyntaxHighlighter.brushes.Perl.aliases		= ['perl', 'Perl', 'pl'];