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__->columns(mailserver => qw(MTA version)); __PACKAGE__->columns(webserver => qw(httpd version CGI)); __PACKAGE__->make_filter(mailservers => 'not MTA is NULL'); __PACKAGE__->make_filter(webservers => 'not httpd is NULL');