diff options
| author | mattn <mattn.jp@gmail.com> | 2012-05-29 09:01:27 +0900 |
|---|---|---|
| committer | mattn <mattn.jp@gmail.com> | 2012-05-29 09:01:27 +0900 |
| commit | dc04a64c96c8d40acaba0d0739c8ee801eb9bbf6 (patch) | |
| tree | 7daa7fafe8b40c247f4a4b595c2ecb003610fea1 /template/perl/base-package.pl | |
| parent | a6237c1215689ed91c3b483c87d3aab710b2c3c6 (diff) | |
| download | vim-sonictemplate-dc04a64c96c8d40acaba0d0739c8ee801eb9bbf6.tar.gz vim-sonictemplate-dc04a64c96c8d40acaba0d0739c8ee801eb9bbf6.tar.bz2 vim-sonictemplate-dc04a64c96c8d40acaba0d0739c8ee801eb9bbf6.zip | |
use :r modifier.
Diffstat (limited to 'template/perl/base-package.pl')
| -rw-r--r-- | template/perl/base-package.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/template/perl/base-package.pl b/template/perl/base-package.pl index b4fa22c..4cb83fb 100644 --- a/template/perl/base-package.pl +++ b/template/perl/base-package.pl @@ -1,4 +1,4 @@ -package {{_expr_:substitute(substitute(substitute(expand('%'), '.*lib[\\/]', '', 'g'), '[\\/]', '::', 'g'), '\.pm$', '', 'g')}}; +package {{_expr_:substitute(substitute(expand('%:r'), '.*lib[\\/]', '', 'g'), '[\\/]', '::', 'g')}}; use strict; use warnings; |