Select Code to Download

#!/usr/bin/perl

...
MyDB::Users->might_have(
    CLIENT => 'MyDB::Clients' => qw/NAME MAXROLES MAXCOMPETENCIES/);
1;

#!/usr/bin/perl

...

MyDB::Candidates->is_a( USERNAME => 'MyDB::Users' );
1;

#!/usr/bin/perl

...
All => qw/USERNAME NAME MAXROLES MAXCOMPETENCIES/);
MyDB::Clients->is_a( USERNAME => 'MyDB::Users');
1;

my @objs = MyDB::Clients->retrieve_all();