Select Code to Download

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

Package My::Hosts;
use base qw(My::Class::DBI::Subclass);
...
__PACKAGE__->table('webservers');
__PACKAGE__->columns(Primary => qw(ID));
__PACKAGE__->columns(Essential => qw(httpd version CGI mod_perl port h
+ttps));

my $webserver = My::WebServers->retrieve($id);
my $version = $webserver->version;
...
my @hosts_with_webservers = map { $_->host } My::WebServer->retrieve_a
+ll;
my @same thing = grep { $_->webservers } My::Hosts->retrieve_all;
# ...

Package My::Hosts;
use base qw(My::Class::DBI::Subclass);
...
__PACKAGE__->columns(webserver => qw(httpd version CGI));
__PACKAGE__->make_filter(mailservers => 'not MTA is NULL');
__PACKAGE__->make_filter(webservers => 'not httpd is NULL');