package BEAMS::Admin::ClientLink; use strict; use base 'BEAMS::Admin::DB'; BEAMS::Admin::ClientLink->table('client_links'); BEAMS::Admin::ClientLink->columns(All => qw/client_link_id client_id link_id sort_order/); BEAMS::Admin::ClientLink->has_a(client_id => 'BEAMS::Admin::Client'); BEAMS::Admin::ClientLink->has_a(link_id => 'BEAMS::Admin::Link');