inherit(<<'=cut');
=head2 INHERITANCE

=over 4

=item L<Class::DBI>

blah...

=item L<Other::Module>

=back

=cut

sub inherit {
  while($_[0] =~ m/=item L<([\w:]+)>/g) {
    eval "use base $1";
  }
}