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

Question

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

Answer 1

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

package Foo;

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

package main;

new Foo;