perl - pragma base - 警告问题

Question

当我运行它时，为什么我没有得到 Attempting to inherit from yourself 会产生警告。 (base#DIAGNOSTICS)？

#!/usr/bin/env perl
use warnings;
use diagnostics;
use 5.012;

{
    package MyWebServer;

    use HTTP::Server::Simple::CGI;
    use base qw(HTTP::Server::Simple::CGI);
    ...

Answer 1

呃，因为你不想从自己身上继承？

应该是这样的:

#!/usr/bin/env perl
use warnings;
use diagnostics;
use 5.012;

{
    package HTTP::Server::Simple::CGI;
    use base qw(HTTP::Server::Simple::CGI);
    ...

基础应该被淘汰，取而代之的是更新的、更少花哨的 parent .