prole snippet

[gitmo/moose-dev-utils.git] / vim / moose_snippets.vim

diff --git a/vim/moose_snippets.vim b/vim/moose_snippets.vim
index d551e7c..d69c740 100644 (file)
--- a/vim/moose_snippets.vim
+++ b/vim/moose_snippets.vim
@@ -46,6 +46,15 @@ call Snippet('class', [
             \"no Moose;",
             \"",
             \"1;"])
+call Snippet('role', [
+            \"package <{RoleName}>;",
+            \"use Moose::Role;",
+            \"",
+            \"<{}>",
+            \"",
+            \"no Moose::Role;",
+            \"",
+            \"1;"])
 call Snippet('has', [
             \"has <{attr}> => (",
             \    "is  => '<{rw}>',",
@@ -71,7 +80,7 @@ call Snippet('sub', [
             \"}"])
 call Snippet('around', [
             \"around <{name}> => sub {",
-            \    "my $orig = shift;",
+            \    "my $<{next}> = shift;",
             \    "my $self = shift;",
             \    "<{}>",
             \"};"])
@@ -86,6 +95,23 @@ call Snippet('after', [
             \    "<{}>",
             \"};"])
 
+" MooseX support
+call Snippet('prole', [
+            \"package <{RoleName}>;",
+            \"use MooseX::Role::Parameterized;",
+            \"",
+            \"<{}>",
+            \"",
+            \"role {",
+            \"my $p = shift;",
+            \"",
+            \"<{}>",
+            \"};",
+            \"",
+            \"no MooseX::Role::Parameterized;",
+            \"",
+            \"1;"])
+
 "for file in globpath(&rtp, 'snippets/*')
     "call SnippetFile(file)
 "endfor