When writing Perl's OO program, you have to write a builder every time, and there are many repetitions.
.
So I wrote this applet, you can play less words.
(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
This way, each time you type C-C P c in CPERL, you will automatically add the builder.
