59 lines
683 B
Plaintext
59 lines
683 B
Plaintext
|
# #!/usr/bin/perl
|
||
|
|
|
||
|
|
# strict warnings
|
||
|
|
snippet strwar
|
||
|
|
use strict;
|
||
|
|
use warnings;
|
||
|
|
|
||
|
|
|
||
|
|
# standard versioning with perlcritic bypass
|
||
|
|
snippet vers
|
||
|
|
## no critic
|
||
|
|
our $VERSION = '${1:version}';
|
||
|
|
eval $VERSION;
|
||
|
|
## use critic
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
# Anonymous subroutine
|
||
|
|
snippet asub
|
||
|
|
sub {
|
||
|
|
${1:# body }
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
# Begin block
|
||
|
|
snippet begin
|
||
|
|
BEGIN { #{{{
|
||
|
|
${1:# begin body}
|
||
|
|
} #}}}
|
||
|
|
|
||
|
|
# call package function
|
||
|
|
snippet pkgm
|
||
|
|
__PACKAGE__->${1:package_method}(${2:var});
|
||
|
|
|
||
|
|
# complex regex
|
||
|
|
snippet qrx
|
||
|
|
qr/
|
||
|
|
${1:regex}
|
||
|
|
/xms
|
||
|
|
|
||
|
|
#simpler regex
|
||
|
|
snippet qr/
|
||
|
|
qr/${1:regex}/x
|
||
|
|
|
||
|
|
#switch
|
||
|
|
snippet switch
|
||
|
|
switch ($${1:var}) { #{{{
|
||
|
|
${2:# cases}
|
||
|
|
} #}}}
|
||
|
|
|
||
|
|
# switch case
|
||
|
|
snippet case
|
||
|
|
case ${1:case} {
|
||
|
|
${2:# body}
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
|