view release on metacpan or  search on metacpan

lib/PPI/Singletons.pm  view on Meta::CPAN

	'qr' => 'QuoteLike::Regexp',
	'm'  => 'Regexp::Match',
	's'  => 'Regexp::Substitute',
	'tr' => 'Regexp::Transliterate',
	'y'  => 'Regexp::Transliterate',
);

# List of keywords is from regen/keywords.pl in the perl source.
our %KEYWORDS = map { $_ => 1 } qw{
	abs accept alarm and atan2 bind binmode bless break caller chdir chmod
	chomp chop chown chr chroot close closedir cmp connect continue cos
	crypt dbmclose dbmopen default defined delete die do dump each else
	elsif endgrent endhostent endnetent endprotoent endpwent endservent
	eof eq eval evalbytes exec exists exit exp fc fcntl fileno flock for
	foreach fork format formline ge 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 given glob gmtime goto grep gt hex if index int ioctl join
	keys kill last lc lcfirst le length link listen local localtime lock

t/ppi_token_word.t  view on Meta::CPAN

		[ q{atan2'5';},           'atan2' ],
		[ q{bind'5',"";},         'bind' ],
		[ q{binmode'5';},         'binmode' ],
		[ q{bless'foo', 'bar';},  'bless' ],
		[ q{break'foo' when 1;},  'break' ],
		[ q{caller'3';},          'caller' ],
		[ q{chdir'foo';},         'chdir' ],
		[ q{chmod'0777', 'foo';}, 'chmod' ],
		[ q{chomp'a';},           'chomp' ],
		[ q{chop'a';},            'chop' ],
		[ q{chown'a';},           'chown' ],
		[ q{chr'32';},            'chr' ],
		[ q{chroot'a';},          'chroot' ],
		[ q{close'1';},           'close' ],
		[ q{closedir'1';},        'closedir' ],
		[ q{connect'1234',$foo;}, 'connect' ],
		[ q{continue'a';},        'continue' ],
		[ q{cos'3';},             'cos' ],
		[ q{crypt'foo', 'bar';},  'crypt' ],
		[ q{dbmclose'foo';},      'dbmclose' ],
		[ q{dbmopen'foo','bar';}, 'dbmopen' ],