From 7265bcb5c136d7d45f974154102c8482eb7dd04b Mon Sep 17 00:00:00 2001
From: Travis Holton <travis@catalyst.net.nz>
Date: Mon, 2 Dec 2013 20:26:55 +1300
Subject: [PATCH] use parent in place of "base"

---
 UltiSnips/perl.snippets | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/UltiSnips/perl.snippets b/UltiSnips/perl.snippets
index e4f4ba8..9202915 100644
--- a/UltiSnips/perl.snippets
+++ b/UltiSnips/perl.snippets
@@ -65,7 +65,7 @@ endsnippet
 snippet class "class"
 package ${1:ClassName};
 
-${2:use base qw(${3:ParentClass});}${2/.+/\n\n/}sub new {
+${2:use parent qw(${3:ParentClass});}${2/.+/\n\n/}sub new {
 	my $class = shift;
 	$class = ref $class if ref $class;
 	my $self = bless {}, $class;