sub initialize2 {
my ($self) = @_;
my $st = $self->{'db'}->prepare(qq{
show index from $self->{'table'}
});
$st->execute();
my @keyfields = ();
my $record;
while (defined($record = $st->fetchrow_hashref())) {
next unless $record->{'Key_name'} eq "PRIMARY";
$keyfields[$record->{'Seq_in_index'}] =
$record->{'Column_name'};
}
$st->finish();
shift @keyfields; # Seq_in_index is running from 1
croak "no primary key defined" unless @keyfields > 0;
$self->{'keyfields'} = \@keyfields;
$self->SUPER::initialize2();
}
|