From dc04a64c96c8d40acaba0d0739c8ee801eb9bbf6 Mon Sep 17 00:00:00 2001
From: mattn <mattn.jp@gmail.com>
Date: Tue, 29 May 2012 09:01:27 +0900
Subject: use :r modifier.

---
 template/perl/base-package.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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;
-- 
cgit v1.2.3-54-g00ecf