編譯指示基礎 - 警告問題

Question

當我運行這個時，爲什麼我沒有得到Attempting to inherit from yourself generates a warning.（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

我懷疑這是一個文檔錯誤。

測試文件t/base.t顯示了這種類型的場景中得到警示：

use warnings; 
use diagnostics; 
use 5.012; 

package Foo; 
use base 'Foo'; 

__END__ 

Class 'Foo' tried to inherit from itself 

你可以修補POD和提交爲Bug Report。

由於base是一個核心編譯指示，您可以改爲提交perlbug（不確定哪一個是首選）。

Answer 2

錯誤，因爲你不是要試圖從自己繼承？

這將是這樣的：

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

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

基地應該在支持新的，少花哨parent的被淘汰。