2009-08-29 17:59:02 +00:00

18 lines
285 B
Plaintext

# -*- 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;