sub new { my $class = shift; my $parm = shift; my $log = get_logger("MySqlTools::ForeignKey"); my $self = {}; $self->{DBH} = MySqlTools::Database->new(); $self->{NAME} = $parm->{NAME}; . . $log->info('New ForeignKey object initilized'); bless( $self, $class ); return $self; }