view release on metacpan or  search on metacpan

public/javascripts/ace/snippets/perl.js  view on Meta::CPAN

	unless (${1}) {\n\
		${2:# body...}\n\
	}\n\
# Unless conditional One-line\n\
snippet xunless\n\
	${1:expression} unless ${2:condition};${3}\n\
# Try/Except\n\
snippet eval\n\
	local $@;\n\
	eval {\n\
		${1:# do something risky...}\n\
	};\n\
	if (my $e = $@) {\n\
		${2:# handle failure...}\n\
	}\n\
# While Loop\n\
snippet wh\n\
	while (${1}) {\n\
		${2:# body...}\n\
	}\n\
# While Loop One-line\n\
snippet xwh\n\
	${1:expression} while ${2:condition};${3}\n\
# C-style For Loop\n\
snippet cfor\n\
	for (my $${2:var} = 0; $$2 < ${1:count}; $$2${3:++}) {\n\
		${4:# body...}\n\
	}\n\
# For loop one-line\n\
snippet xfor\n\
	${1:expression} for @${2:array};${3}\n\
# Foreach Loop\n\
snippet for\n\
	foreach my $${1:x} (@${2:array}) {\n\
		${3:# body...}\n\
	}\n\
# Foreach Loop One-line\n\
snippet fore\n\
	${1:expression} foreach @${2:array};${3}\n\
# Package\n\
snippet package\n\
	package ${1:`substitute(Filename('', 'Page Title'), '^.', '\\u&', '')`};\n\
\n\
	${2}\n\
\n\
	1;\n\
\n\
	__END__\n\
# Package syntax perl >= 5.14\n\
snippet packagev514\n\
	package ${1:`substitute(Filename('', 'Page Title'), '^.', '\\u&', '')`} ${2:0.99};\n\
\n\
	${3}\n\
\n\
	1;\n\
\n\
	__END__\n\
#moose\n\
snippet moose\n\
	use Moose;\n\
	use namespace::autoclean;\n\
	${1:#}BEGIN {extends '${2:ParentClass}'};\n\
\n\
	${3}\n\
# parent\n\
snippet parent\n\
	use parent qw(${1:Parent Class});\n\
# Read File\n\
snippet slurp\n\
	my $${1:var} = do { local $/; open my $file, '<', \"${2:file}\"; <$file> };\n\
	${3}\n\
# strict warnings\n\
snippet strwar\n\
	use strict;\n\
	use warnings;\n\
# older versioning with perlcritic bypass\n\
snippet vers\n\
	## no critic\n\
	our $VERSION = '${1:version}';\n\
	eval $VERSION;\n\
	## use critic\n\
# new 'switch' like feature\n\
snippet switch\n\
	use feature 'switch';\n\
\n\
# Anonymous subroutine\n\
snippet asub\n\
	sub {\n\
	 	${1:# body }\n\
	}\n\
\n\
\n\
\n\
# Begin block\n\
snippet begin\n\
	BEGIN {\n\
		${1:# begin body}\n\
	}\n\
\n\
# call package function with some parameter\n\
snippet pkgmv\n\
	__PACKAGE__->${1:package_method}(${2:var})\n\
\n\
# call package function without a parameter\n\
snippet pkgm\n\
	__PACKAGE__->${1:package_method}()\n\
\n\
# call package \"get_\" function without a parameter\n\
snippet pkget\n\
	__PACKAGE__->get_${1:package_method}()\n\
\n\
# call package function with a parameter\n\
snippet pkgetv\n\
	__PACKAGE__->get_${1:package_method}(${2:var})\n\
\n\
# complex regex\n\
snippet qrx\n\
	qr/\n\
	     ${1:regex}\n\
	/xms\n\
\n\