/usr/local/CPAN/text-highlight/Text/Highlight/Perl.pm
package Text::Highlight::Perl;
use strict;
sub syntax
{
return {
'name' => 'Perl',
'blockCommentOn' => [],
'case' => 1,
'key3' => {
'ne' => 1,
'tr' => 1,
'le' => 1,
'not' => 1,
'x' => 1,
'y' => 1,
'or' => 1,
'eq' => 1,
'qw' => 1,
'qq' => 1,
'm' => 1,
's' => 1,
'cmp' => 1,
'lt' => 1,
'xor' => 1,
'gt' => 1,
'q' => 1,
'qx' => 1,
'and' => 1,
'ge' => 1
},
'key2' => {
'scalar' => 1,
'sqrt' => 1,
'print' => 1,
'getppid' => 1,
'vec' => 1,
'rename' => 1,
'chop' => 1,
'caller' => 1,
'wantarray' => 1,
'each' => 1,
'undef' => 1,
'stat' => 1,
'open' => 1,
'getpwuid' => 1,
'setpriority' => 1,
'flock' => 1,
'eof' => 1,
'delete' => 1,
'rindex' => 1,
'getpwent' => 1,
'getpeername' => 1,
'quotemeta' => 1,
'tied' => 1,
'setnetent' => 1,
'system' => 1,
'time' => 1,
'shmget' => 1,
'die' => 1,
'getprotobyname' => 1,
'unshift' => 1,
'warn' => 1,
'uc' => 1,
'getprotobynumber' => 1,
'getpriority' => 1,
'ord' => 1,
'truncate' => 1,
'getlogin' => 1,
'sort' => 1,
'length' => 1,
'index' => 1,
'bless' => 1,
'wait' => 1,
'chdir' => 1,
'shmwrite' => 1,
'seekdir' => 1,
'exists' => 1,
'opendir' => 1,
'shmread' => 1,
'exit' => 1,
'substr' => 1,
'no' => 1,
'kill' => 1,
'unlink' => 1,
'readdir' => 1,
'grep' => 1,
'getservent' => 1,
'write' => 1,
'split' => 1,
'exp' => 1,
'ioctl' => 1,
'values' => 1,
'getservbyname' => 1,
'setsockopt' => 1,
'setprotoent' => 1,
'sin' => 1,
'push' => 1,
'shift' => 1,
'pack' => 1,
'hex' => 1,
'endprotoent' => 1,
'setgrent' => 1,
'getpgrp' => 1,
'msgctl' => 1,
'msgrcv' => 1,
'keys' => 1,
'close' => 1,
'gethostbyname' => 1,
'printf' => 1,
'select' => 1,
'formline' => 1,
'accept' => 1,
'gmtime' => 1,
'chmod' => 1,
'import' => 1,
'fork' => 1,
'splice' => 1,
'endpwent' => 1,
'lc' => 1,
'rewinddir' => 1,
'getgrent' => 1,
'atan2' => 1,
'fcntl' => 1,
'sysread' => 1,
'getsockname' => 1,
'closedir' => 1,
'listen' => 1,
'getservbyport' => 1,
'sethostent' => 1,
'study' => 1,
'semctl' => 1,
'lcfirst' => 1,
'localtime' => 1,
'ref' => 1,
'chown' => 1,
'abs' => 1,
'join' => 1,
'tell' => 1,
'sysopen' => 1,
'int' => 1,
'endgrent' => 1,
'untie' => 1,
'unpack' => 1,
'gethostent' => 1,
'setservent' => 1,
'syswrite' => 1,
'getnetent' => 1,
'setpwent' => 1,
'alarm' => 1,
'glob' => 1,
'pos' => 1,
'oct' => 1,
'getnetbyaddr' => 1,
'getsockopt' => 1,
'syscall' => 1,
'chr' => 1,
'tie' => 1,
'shmctl' => 1,
'getnetbyname' => 1,
'semop' => 1,
'binmode' => 1,
'waitpid' => 1,
'gethostbyaddr' => 1,
'mkdir' => 1,
'ucfirst' => 1,
'times' => 1,
'semget' => 1,
'pop' => 1,
'lstat' => 1,
'pipe' => 1,
'getc' => 1,
'sysseek' => 1,
'rmdir' => 1,
'shutdown' => 1,
'read' => 1,
'fileno' => 1,
'new' => 1,
'msgget' => 1,
'prototype' => 1,
'exec' => 1,
'srand' => 1,
'chroot' => 1,
'defined' => 1,
'telldir' => 1,
'bind' => 1,
'readlink' => 1,
'socket' => 1,
'reverse' => 1,
'utime' => 1,
'recv' => 1,
'endhostent' => 1,
'setpgrp' => 1,
'send' => 1,
'dump' => 1,
'socketpair' => 1,
'getpwnam' => 1,
'endnetent' => 1,
'crypt' => 1,
'cos' => 1,
'endservent' => 1,
'symlink' => 1,
'reset' => 1,
'getgrnam' => 1,
'log' => 1,
'sprintf' => 1,
'getgrgid' => 1,
'connect' => 1,
'dbmopen' => 1,
'eval' => 1,
'link' => 1,
'rand' => 1,
'getprotoent' => 1,
'format' => 1,
'chomp' => 1,
'dbmclose' => 1,
'msgsnd' => 1,
'umask' => 1,
'sleep' => 1,
'seek' => 1
},
'lineComment' => [
'#'
],
'delimiters' => ',(){}[]-+*/=~!&|<>?:;.$@%',
'key1' => {
'require' => 1,
'next' => 1,
'lock' => 1,
'SIG' => 1,
'my' => 1,
'if' => 1,
'redo' => 1,
'map' => 1,
'__END__' => 1,
'our' => 1,
'FALSE' => 1,
'ARGV' => 1,
'INC' => 1,
'for' => 1,
'else' => 1,
'ENV' => 1,
'continue' => 1,
'TRUE' => 1,
'__LINE__' => 1,
'do' => 1,
'local' => 1,
'foreach' => 1,
'use' => 1,
'ARGVOUT' => 1,
'goto' => 1,
'STDOUT' => 1,
'last' => 1,
'unless' => 1,
'package' => 1,
'elsif' => 1,
'return' => 1,
'until' => 1,
'while' => 1,
'STDERR' => 1,
'sub' => 1,
'STDIN' => 1,
'__DATA__' => 1,
'__PACKAGE__' => 1,
'__FILE__' => 1
},
'quot' => [
'\'',
'"'
],
'escape' => '\\',
'continueQuote' => 1
};
}
1;
__END__