package My::Class::Foo;
use base 'My::Class';

sub load {
  my ($self,$file) = @_;
  my $path = $self->canonpath( $file );
  # ... some special load 
}

1;

##</code><code>##

package My::Class;
use base 'More::Generic';

sub save {
  my ($self,$file) = @_;
  my $path = $self->canonpath( $file );
  # ... some special save
}

1;

##</code><code>##

package More::Generic;
use base qw( File::Spec );

sub twiddle_thumbs {
  # etc
  # 
} 

1;

##</code><code>##

=pod

=head INHERITS

=head2 L<My::Class>

=head3 L<More::Generic> L<File::Spec>


=cut


##</code><code>##

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>
|;

}