对象增加方法？

sunrie

能不能给对象增加方法而不是给类增加方法？

1. package Test;
   
2. sub new {
   
3.     my $this = shift;
   
4.     my $class = ref($this) || $this;
   
5.     my $self = {};
   
6.     bless $self, $class;
   
7.     return $self;
   
8. }
   
9. sub method1 {
   
10.     my $self = shift;
    
11.     return "method1";
    
12. }
    
13. 
    
14. package main;
    
15. $test = new Test;
    
16. print $test->method1, "\n";
    

复制代码

我想给$test增加一个方法method2,但是不影响Test,可以吗？

xiaoshengcaicai

啊？。。应应....该不可以吧？

perl在调用某个object的方法时，应该是要去这个object bless的那个Package去寻找方法的，如果这个Package没有该方法，那么Perl会到这个Package的父类去找找看，以此类推。

我能想出的方法就是给Test添加一个子类，然后让$test = new Test::Child。
把test2方法定义在Test::Child里面...

flw

楼上说的对，定义一个子类，继承一下就好了。