my $dba = shift;
my $sql_command = "SELECT COUNT(*) FROM dna";
my $sth = $dba->dbc->prepare($sql_command);
$sth->execute();
my @dna_array = $sth->fetchrow_array;
if ( $dna_array[0] > 0 ) {
print
"Your DB ". $dba->dbc->dbname. " contains DNA sequences. ".
"No need to attach a DNA_DB to it.\n"
if $verbose;
return 1;
}
else {
print
"Your DB " . $dba->dbc->dbname . " does not contain DNA sequences.\n"
if $verbose;
return 0;
}
}