package Display::Base;

sub new
sub foo
sub bar

----
package Display::LDAP;

@ISA = qw(Display::Base);

sub new
sub foo
sub bar
----
package Display::DBI;

@ISA = qw(Display::DBI);

sub new
sub foo
sub bar
----
etc...