奇怪的引用和继承[已解决]

lewphee

我有一模块AXS::Modules，内容如下：

1. 
   
2. package AXS::Modules;
   
3. use strict;
   
4. use base qw( AXS::Object );
   
5. 
   
6. our $VERSION        = '0.1.1';
   
7. 
   
8. sub new{
   
9.         my $class;
   
10.         $class = 'Modules::'.ucfirst($QSV{'s'});
    
11. 
    
12.         return bless {},$class;
    
13. }
    
14. 
    
15. 1;
    
16. __END__
    

复制代码

另一模块Modules::Flags，内容如下，

1. 
   
2. package Modules::Flags;
   
3. use strict;
   
4. use XML::Simple;
   
5. use base qw( AXS::Object );
   
6. 
   
7. our $VERSION        = '0.0.1.1';
   
8. our @EXPORT        = qw( module_in get_list);
   
9. 
   
10. sub module_in{
    
11. 
    
12. }
    
13. 
    
14. sub get_list{
    
15.         return 1;
    
16. }
    
17. 
    
18. 1;
    
19. __END__
    

复制代码

我的另外的调用如下：

1. 
   
2. use AXS::Modules;
   
3. 
   
4. .....
   
5. ...
   
6. 
   
7. $m = new Modules;
   
8. $m->get_list();
   

复制代码

Can't locate object method "module_in" via package "Modules::Flags"？？？
$m返回的引用不就是包Module::Flags了吗，包Module::Flags不是有module_in了吗？怎么还找不着呢？？奇怪了

[ 本帖最后由 lewphee 于 2008-7-12 14:49 编辑 ]

lewphee

没人解答一下么？~？

lewphee

解决了，晕倒，不是这里的问题，是一个foreach没用my，我晕倒。这样也提示undefined routine……
唉