pragma base - warnings question

Question

When I run this, why do I not get the 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

I suspect it is a documentation bug.

The test file t/base.t shows this type of a scenario to get the warning:

use warnings;
use diagnostics;
use 5.012;

package Foo;
use base 'Foo';

__END__

Class 'Foo' tried to inherit from itself

You could patch the POD and submit it as a Bug Report.

Since base is a Core pragma, you could instead submit a perlbug (not sure which is preferred).