请教大家一个高级的面向对象问题

fengpxu

我想实现一个功能，即。在一个程序中，每次new一个新的对象之前，都先启动一个方法。并将数据传入。就是这样的一个钩子。请教大家了！我要如何才能实现这个功能。即类似AUTOLOAD这样的方法！AUTOLOAD是在找不到sub 的时候调用，我希望能找到一个可以在调用子程序时找到子程序就调用的方法。就是AUTOLOAD的相反的方法。

[ 本帖最后由 fengpxu 于 2007-6-14 19:52 编辑 ]

fengpxu

大家阿！帮帮忙拉！

xiaoquqi

不是很懂你的描述
可不可以在new函数中调用别的package的方法来满足你的需求呢？

flw

if ( can(method) ){
    # call method....
}

http://bbs.chinaunix.net/viewthread.php?tid=770196&extra=page%3D1

1.     can(METHOD)
   
2.         "can" 检查一个对象是不是拥有一个叫做 "METHOD" 的方法。如果有，那么
   
3.         将返回那个方法（实际上就是子程序）的引用。如果没有，那么返回 *undef*
   
4. 
   
5.         也可以用两个参数来直接调用 "UNIVERSAL::can"。当第一个参数不是一个对
   
6.         象或者是类名的时候，它返回 *undef*，所以我们也可以用这个办法知道一个
   
7.         引用是不是一个对象。
   
8. 
   
9.             print "It's still an object\n" if UNIVERSAL::can($val, 'can');
   
10. 
    
11.         你也可以用 Scalar::Util 模块的 "blessed" 函数来达到同样的目的：
    
12. 
    
13.             use Scalar::Util 'blessed';
    
14. 
    
15.             my $blessing = blessed $suspected_object;
    
16. 
    
17.         如果 $suspected_object 是一个对象，那么 "blessed" 返回对象所属的类名
    
18.         称，不然返回 "undef"。
    

复制代码

多看看文档，总是好的。

xiaoquqi

原帖由 flw 于 2007-6-20 08:13 发表
if ( can(method) ){
    # call method....
}

http://bbs.chinaunix.net/viewthr ... &extra=page%3D1
[code]    can(METHOD)
        "can" 检查一个对象是不是拥有一个叫做 ...

又学了一招 哈哈