Question

我遵循了Rose：：DB:：Object教程关于CPAN并设置三个包。

package My::DB::Object;
use My::DB;
use base qw(Rose::DB::Object);
sub init_db { My::DB->new }

package My::DB;
use base qw(Rose::DB);
...

package Motorcycle;
use base  My::DB::Object ;

__PACKAGE__->meta->setup
(
  ...
);

__PACKAGE__->meta->make_manager_class( motorcycles );

在应用程序中：

package main;

use Motorcycle;
use Mojolicious::Lite;

编译失败，出现以下错误：

My/DB/Object did not return a true value <eval 2> line 2…

致以问候和感谢。

Answer 1

虽然我不能说我完全理解你试图实现的目标，但你看到的错误是相当常见的。use或require包含的任何文件/模块都必须返回“true”值。这通常是通过以下行结束该文件来完成的：＜code＞1，也就是说只是一个为true的命令（而不是0为false）。查看系统中以.pm结尾的任何其他文件，它很可能以这种方式结束。

您也可以在perldoc-perlmod，或者perldoc-f需要：

The file must return true as the last statement to indicate successful execution of any initialization code, so it s customary to end such a file with "1;" unless you re sure it ll return true otherwise. But it s better just to put the "1;", in case you add more statements.

Answer 2

任何模块中的最后一行应为

1;

友情链接