perl - 如何调用我在同一个文件中定义的 Perl 包？

Question

我需要在同一个文件中定义多个模块。我想做类似以下的事情:

package FooObj {
    sub new { ... }
    sub add_data { ... }
}

package BarObj {
    use FooObj;
    sub new { 
        ... 
        # BarObj "has a" FooObj
        my $self = ( myFoo => FooObj->new() );
        ...
    }
    sub some_method { ... }
}

my $bar = BarObj->new();

但是，这会导致以下消息:

Can't locate FooObj.pm in @INC ...
BEGIN failed...

我怎样才能让它工作？

Answer 1

放弃use .严重地。
use告诉 perl 从另一个文件中读取代码，您不需要这样做，因为代码在同一个文件中。