Suggest a better default for Perl package names

The previous snippet for Perl 'package' was apparently copy-pasted from
html.snippets (see 'head' and 'title' snippets). It didn't really make
sense, and for me it actually always returned an empty string.

This one looks for the path name of the file and removes everything up
to the lib/ folder. It then replaces '/' with '::'. I think it's a
pretty sensible default.

Finally, I also added "use strict" and "use warnings" to the package
definition.
This commit is contained in:
Andre Walker 2016-09-13 15:30:13 +02:00
parent 1d86e2e1c6
commit 2eeff06b3e

View File

@ -84,7 +84,9 @@ snippet fore
${1:expression} foreach @${2:array}; ${1:expression} foreach @${2:array};
# Package # Package
snippet package snippet package
package ${1:`substitute(vim_snippets#Filename('', 'Page Title'), '^.', '\u&', '')`}; package ${1:`vim_snippets#Filename(expand('%:p:s?.*lib/??:r:gs?/?::?'))`};
use strict;
use warnings;
${0} ${0}
@ -93,7 +95,9 @@ snippet package
__END__ __END__
# Package syntax perl >= 5.14 # Package syntax perl >= 5.14
snippet packagev514 snippet packagev514
package ${1:`substitute(vim_snippets#Filename('', 'Page Title'), '^.', '\u&', '')`} ${2:0.99}; package ${1:`vim_snippets#Filename(expand('%:p:s?.*lib/??:r:gs?/?::?'))`} ${2:0.99};
use v5.14;
use warnings;
${0} ${0}