常量数组定义的问题.
coaa 2004-10-18 11:23:10 有一个A.pm包.
里面有如下定义:
package P::A;
use constant FILE1 => "file1";
use constant FILE2 => "file2";
在b.pl里面也有如下定义:
use P::A;
my $f= new P::A;
use constant FILES => ($f->FILE1,$f->FILE2);
perl -c b.pl的时候,有如下错误:
Can't call method "FILE1" on an undefined value at A.pm line 29.
为什么呢?如何解决?