package DerivePod::Includes::base; use base qw( DerivePod::Plugin ); sub process { my ($plugin,$statement,$ppi_doc) = @_; my $parent_class = $statement->find_first('PPI::Token::QuoteLike::Words'); $plugin->output( qq|=head INHERITS L<$parent_class> |; }