Perl：在脚本中包含/嵌入模块

Question

我有一个脚本，它使用我从CPAN编写模块的子类进行演示。理想情况下，我希望将两者放在同一个文件中，因为子类模块中的代码不多。扩展子类模块以包含脚本代码或将脚本转换为模块没有意义。我该如何在脚本中包含模块代码？

Answer 1

在一个文件中包含多个包没有问题。

package Foo;

sub new {
    print "Foo::new\n";
}

package main;

new Foo;

Answer 2

您可以执行以下操作，将要包含的“模块”命名为core.pm或类似的内容。然后将它放在与其他脚本相同的目录中，并在脚本放置require core;，这应该工作。通常会查看use和require，它们可以帮助您以某种方式实现您想要的目标。