用于perl的另一个小elisp方程

写perl的oo程序的时候，每次都要写一个构建器，而其内容有很多的重复。
于是写了这个小程序，可以少打几个字。
(defun perl-contructor ()
  (interactive)
  (insert "
sub new {
  my $proto = shift;
  my $class = ref($proto) || $proto;
  my $self = {};
  bless($self, $class);
  return $self;
}"))
(define-key cperl-mode-map (kbd "C-c p c") 'perl-contructor)
这样，每次在cperl的模式下键入c-c p c就会把构建器自动加上去了。