#!/usr/bin/perl

package MyDB::Clients;
use base 'MyDB::DBI';
use MyDB::Users;
MyDB::Clients->table('CLIENTS');
MyDB::Clients->columns(
All => qw/USERNAME NAME MAXROLES MAXCOMPETENCIES/);
MyDB::Clients->is_a( USERNAME => 'MyDB::Users');
1;