pragma base - 警告问题

Question

当我运行它时,为什么我没有得到Attempting to inherit from yourself generates a warning.(基础#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);
    ...

基数应该逐步取消,以支持更新,更少花哨的父母.