#==============================================================
#  FILE:        Affiliation.pm
#
#  DESCRIPTION: Class that represents the affiliation 
#               a player with a club
#
#=============================================================
package DataObjects::Affiliation;
require MySqlTools::Table;
our @ISA = qw(MySqlTools::Table);
require DataObjects::Club;
require DataObjects::Player;
require DataObjects::ClubDGAW;  
use Log::Log4perl qw(get_logger :levels);
use strict;
use warnings;

my $affObject;

#============================================================
#
#  METHOD:      new
#		
#===========================================================
sub new {
	my $class = shift;
	if ($affObject) {return affObject;}
        #-- Singleton
	.
	.
	$self->addColumn({name=>'playerID',.....
	.
	.
#----------------------------------------------------
#  Define foreign keys and indexes 
#----------------------------------------------------
	$self->{FKPLAY} = $self->addFks({
		NAME		=>'Aff_Player_FK', 
		OWNCOLS		=>['playerID'], 
		REFTABLE	=>'player', 
		REFCOLS		=>['playerID'], 
		ONDELETE	=>'CASCADE',
	});
===>

####################################################
###### - HERE $self->{FKPLAY} contains a valid FK 
######      reference, $self->{FKS}[0] contains a 
######      funky reference, the debugger shows it 
######      to be a FK object, but the hash is 
######      empty!
###################################################