Package My::Hosts;
use base qw(My::Class::DBI::Subclass);
__PACKAGE__->table('hosts');
__PACKAGE__->columns(Primary => qw(ID));
__PACKAGE__->columns(Essential => qw(name IPAddress location OS));

Package My::MailServers;
use base qw(My::Hosts);
__PACKAGE__->columns(mailserver => qw(MTA version));

Package My::WebServers;
use base qw(My::Hosts);
__PACKAGE__->columns(webserver => qw(httpd version CGI));