写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就会把构建器自动加上去了。
于是写了这个小程序,可以少打几个字。
(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就会把构建器自动加上去了。