use parent in place of "base"

This commit is contained in:
Travis Holton 2013-12-02 20:26:55 +13:00
parent af9f42c539
commit 7265bcb5c1

View File

@ -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;