关于自己创建module的问题

joseyu

我写一测试module代码如下
test.pm

1. 
   
2. package test;
   
3. 
   
4. use 5.005;
   
5. 
   
6. require Exporter;
   
7. our @ISA = qw(Exporter);
   
8. our %EXPORT_TAGS = ( 'all' =>; [ qw() ] );
   
9. our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );
   
10. our @EXPORT = qw( );
    
11. 
    
12. our $VERSION = '0.01';
    
13. 
    
14. sub TestPrint {
    
15.     print "test module";
    
16. }
    

复制代码

1. 
   
2. mtest.pl
   
3. use test;
   
4. 
   
5. test::TestPrint;
   

复制代码

在另一文件中调用该module时出现下面的
错误提示，请问是怎么回事，

Array found where operator expected at test.pm line 6, at end of line
        (Do you need to predeclare our?)
Operator or semicolon missing before %EXPORT_TAGS at test.pm line 7.
Ambiguous use of % resolved as operator % at test.pm line 7.
Array found where operator expected at test.pm line 8, at end of line
        (Do you need to predeclare our?)
syntax error at test.pm line 6, near "our @ISA "
syntax error at testl.pm line 8, near "our @EXPORT_OK "
BEGIN failed--compilation aborted at ./m_test.pl line 8.

谢谢帮忙!

apile

不要用our..全部去掉

deathcult

1. 
   
2. package test;
   
3. 
   
4. use 5.005;
   
5. 
   
6. require Exporter;
   
7. @ISA = qw(Exporter);
   
8. %EXPORT_TAGS = ( 'all' =>; [ qw() ] );
   
9. @EXPORT_OK = qw( @{ $EXPORT_TAGS{'all'} } );
   
10. @EXPORT = qw( TestPrint);
    
11. 
    
12. $VERSION = '0.01';
    
13. 
    
14. sub TestPrint {
    
15.     print "test module\n";
    
16. }
    
17. 
    
18. 1;
    

复制代码