File Coverage

blib/lib/Syntax/Highlight/Engine/Simple/Perl.pm

Criterion	Covered	Total	%
statement	9	12	75.0
branch			n/a
condition			n/a
subroutine	3	6	50.0
pod	3	3	100.0
total	15	21	71.4

package Syntax::Highlight::Engine::Simple::Perl;
use strict;
use warnings;
use base qw(Syntax::Highlight::Engine::Simple);
our $VERSION = '0.04';

### ----------------------------------------------------------------------------
### set syntax
### ----------------------------------------------------------------------------
sub setSyntax {

	shift->{syntax} =
		[
			{
				class => 'quote',
				regexp => '(?
			},
			{
				class => 'quote',
				regexp => '(?
			},
			{
				class => 'quote',
				regexp => q@'.*?(?
			},
			{
				class => 'wquote',
				regexp => '(?
			},
			{
				class => 'wquote',
				regexp => q@".*?(?
			},
			{
				class => 'comment',
				regexp => '(?m)#+.*?$',
			},
			{
				class => 'variable',
				regexp => '[\$\@\%][\w\d:]+',
			},
			{
				class => 'function',
				regexp => '\&[\w\d:]+',
			},
			{
				class => 'method',
				regexp => '(?<=->)[\w\d:]+',
			},
			{
				class => 'number',
				regexp => '\b\d+\b',
			},
			{
				class => 'keyword',
				regexp => __PACKAGE__->array2regexp(&getStatementKeywords()),
			},
			{
				class => 'keyword',
				regexp => __PACKAGE__->array2regexp(&getKeywords()),
			},
			{
				class => 'regexp_statement',
				regexp => '(?<=(?
			},
			{
				class => 'regexp_statement',
				regexp => '(?<=(?
			},
			{
				class => 'regexp_statement',
				regexp => '/.+?/',
			},
			{
				class => 'perlpod',
				regexp => '(?sm)^=.+?(^=cut$)',
			},
			{
				class => 'keyword2',
				regexp => '(?m)^=.+$',
				container => 'perlpod',
			},
			{
				class => 'statement',
				regexp => '(?m)^=\w+',
				container => 'keyword2',
			},
		];
}

sub getStatementKeywords {

	return (
		'continue',
		'foreach',
		'require',
		'package',
		'scalar',
		'format',
		'unless',
		'local',
		'until',
		'while',
		'elsif',
		'next',
		'last',
		'goto',
		'else',
		'redo',
		'sub',
		'for',
		'use',
		'our',
		'no',
		'if',
		'my',
		'qr',
		'qx',
#		'qq',
#		'qw',
#		'tr',
#		'm',
#		'q',
#		's',
#		'y'
	);
}

sub getKeywords {

	return (
		'getprotobynumber',
		'getprotobyname',
		'gethostbyaddr',
		'gethostbyname',
		'getservbyname',
		'getservbyport',
		'getnetbyaddr',
		'getnetbyname',
		'endprotoent',
		'getpeername',
		'getpriority',
		'getprotoent',
		'getsockname',
		'setpriority',
		'setprotoent',
		'endhostent',
		'endservent',
		'gethostent',
		'getservent',
		'getsockopt',
		'sethostent',
		'setservent',
		'setsockopt',
		'socketpair',
		'endnetent',
		'getnetent',
		'localtime',
		'prototype',
		'quotemeta',
		'rewinddir',
		'setnetent',
		'wantarray',
		'closedir',
		'dbmclose',
		'endgrent',
		'endpwent',
		'formline',
		'getgrent',
		'getgrgid',
		'getgrnam',
		'getlogin',
		'getpwent',
		'getpwnam',
		'getpwuid',
		'readline',
		'readlink',
		'readpipe',
		'setgrent',
		'setpwent',
		'shmwrite',
		'shutdown',
		'syswrite',
		'truncate',
		'binmode',
		'connect',
		'dbmopen',
		'defined',
		'getpgrp',
		'getppid',
		'lcfirst',
		'opendir',
		'readdir',
		'reverse',
		'seekdir',
		'setpgrp',
		'shmread',
		'sprintf',
		'symlink',
		'syscall',
		'sysopen',
		'sysread',
		'sysseek',
		'telldir',
		'ucfirst',
		'unshift',
		'waitpid',
		'accept',
		'caller',
		'chroot',
		'delete',
		'exists',
		'fileno',
		'gmtime',
		'import',
		'length',
		'listen',
		'msgctl',
		'msgget',
		'msgrcv',
		'msgsnd',
		'printf',
		'rename',
		'return',
		'rindex',
		'select',
		'semctl',
		'semget',
		'shmctl',
		'shmget',
		'socket',
		'splice',
		'substr',
		'system',
		'unlink',
		'unpack',
		'values',
		'alarm',
		'atan2',
		'bless',
		'break',
		'chdir',
		'chmod',
		'chomp',
		'chown',
		'close',
		'crypt',
		'fcntl',
		'flock',
		'index',
		'ioctl',
		'lstat',
		'mkdir',
		'print',
		'reset',
		'rmdir',
		'semop',
		'shift',
		'sleep',
		'split',
		'srand',
		'study',
		'times',
		'umask',
		'undef',
		'untie',
		'utime',
		'write',
		'bind',
		'chop',
		'dump',
		'each',
		'eval',
		'exec',
		'exit',
		'fork',
		'getc',
		'glob',
		'grep',
		'join',
		'keys',
		'kill',
		'link',
		'open',
		'pack',
		'pipe',
		'push',
		'rand',
		'read',
		'recv',
		'seek',
		'send',
		'sort',
		'sqrt',
		'stat',
		'tell',
		'tied',
		'time',
		'wait',
		'warn',
		'abs',
		'chr',
		'cos',
		'die',
		'eof',
		'exp',
		'hex',
		'int',
		'log',
		'map',
		'oct',
		'ord',
		'pop',
		'pos',
		'ref',
		'sin',
		'tie',
		'do',
		'vec',
		'lc',
		'uc',
	);
}

return 1;

__END__