# -*- mode: snippet -*- # key: class # contributor: Translated from TextMate Snippet # name: Package # -- package ${1:ClassName}; ${2:use base qw(${3:ParentClass}); }sub new { my \$class = shift; \$class = ref \$class if ref \$class; my \$self = bless {}, \$class; \$self; } 1;