USTBHacker的专栏

原创 Perl 闭包实现简单OO

闭包是个神奇的东西，有很多奇妙地用法，用它可以来模拟实现OO 的一些功能。以下代码用闭包和消息传递的方法实现了OO 继承，重写。有兴趣可以看看Lisp CLOS 的实现方法，参考用来模拟实现另外一种Perl OO。可以看看Meta programming，Mouse 的OO 实现部分，相信会对你有很大的帮助。sub shape { (my $newx, $newy) = @_; ret