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

我需要定义一些模块，并在同一文件中全部使用它们。不，我不能更改要求。

我想做以下事情:

{
    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();

但是，这导致消息:



我该如何工作？

最佳答案

删除use。说真的
use告诉perl从另一个文件中读取代码，您不需要这样做，因为代码位于同一文件中。