package Siteminer::DBI; use base 'Class::DBI'; # Setup connection to database Siteminer::DBI->connection('dbi:mysql:database', 'username', 'password'); package Siteminer::Hosts; use base 'Siteminer::DBI'; __PACKAGE__->table('hosts'); __PACKAGE__->columns( All => ( "id", "hostname", "ipaddress", "webcode", "webbanner", "webtitle", "sslcode", "sslbanner", "ssltitle", "done", "redirect", "origin", "yweblinks", "alexarank", "pr", "login", "loginuserid", ) ); package Siteminer::Domains; use base 'Siteminer::DBI'; __PACKAGE__->table('domains'); __PACKAGE__->columns( All => ( "id", "domain", "email", "whois", "server", "origin", "owner", "done", "loginuserid", ) );