From f46672c1cf2e71f570ee6fec770a211b8e451daa Mon Sep 17 00:00:00 2001
From: William Travis Holton <wtholton@googlemail.com>
Date: Wed, 25 Jul 2012 22:43:24 +1200
Subject: [PATCH] substitute regular package name

---
 snippets/perl.snippets | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/snippets/perl.snippets b/snippets/perl.snippets
index 9afdee6..79462fc 100644
--- a/snippets/perl.snippets
+++ b/snippets/perl.snippets
@@ -80,7 +80,7 @@ snippet fore
 	${1:expression} foreach @${2:array};${3}
 # Package
 snippet package
-	package ${1:ClassName};
+	package ${1:`substitute(Filename('', 'Page Title'), '^.', '\u&', '')`};
 
 	${2:#...}
 
@@ -104,7 +104,7 @@ snippet packagev512
 snippet moose
 	use Moose;
 	use namespace::autoclean;
-	${1:#}extends '${2:# ParentClass}';
+	${1:#}extends '${2:ParentClass}';
 
 # moose extends
 snippet extends