请教高手解答一个perl问题

三个模块以及文件如下


/lib/API.pm
===============================
package Bastille::API;
use Exporter;
@ISA = qw(Exporter);
@EXPORT = qw /getGlobal/;
Sub getGlobal{
         return “test”;
}

1;



/lib/TestAPI.pm
===============================
package Bastille::TestAPI;
use Exporter;
@ISA = qw(Exporter);
@EXPORT = qw / B_TODOFlags /;
use Bastille::API;                                

Sub B_TODOFlags {
         my $var = &getGlobal();
}

1;



/tmp/main.pl
===============================
#!/usr/bin/perl
use lib ‘/lib’;

use  Bastille::TestAPI;
my $var = &B_TODOFlags;
print $var, "\n";


# ./main.pl
Can't locate Bastille/TestAPI.pm in @INC (@INC contains: /tmp /opt/perl_32/lib/5.8.3/IA64.ARCHREV_0-thread-multi /opt/perl_32/lib/5.8.3 /opt/perl_32/lib/site_perl/5.8.3/IA64.ARCHREV_0-thread-multi /opt/perl_32/lib/site_perl/5.8.3 /opt/perl_32/lib/site_perl /opt/perl_32/lib/vendor_perl/5.8.3/IA64.ARCHREV_0-thread-multi /opt/perl_32/lib/vendor_perl/5.8.3 /opt/perl_32/lib/vendor_perl .) at ./main.pl line 4.
BEGIN failed--compilation aborted at ./main.pl line 4.


按照programming perl上说， 我应该把API.pm 和TestAPI.pm放到/lib/Bastille目录下才行， 因为perl会将::解释为/,  从而会去/lib/Bastille/下寻找模块。
但是我看到我们项目里的没有根本没有Bastille这个目录程序也能运行。  不知道有没有高人知道， 如何可以达到这样的效果。

没有运行楼主的代码.但是你的错误提示证明,你这样做确实是不可行的.

楼主按照书上的介绍,在lib下建立一个Bastille目录试一下看看.
如果程序运行成功了,你的目的就达到了.
这个内容还是应该以书为准.

做项目为了全盘考虑可能会有其他的设置.
所以没有找到并不代表项目本身没有其他设置.

你可以试试这个小程序先：

perl -e 'print $_ . "\n" for @INC;'

它将输出 @INC 数组的所有内容。@INC数组就是你在use lib时，perl寻找的路径。
只要其中的某个目录中包含了 Bastille 目录，use 就不会出错。

所以你的项目的 Bastille 目录不一定在/lib 下，有可能在其他的 @INC下。

Got.  Use lib..