ENSCORESW-1193: added is_empty method to check if there is genome data available

modules/Bio/EnsEMBL/DBSQL/GenomeContainer.pm

@@ -632,6 +632,36 @@ sub _get_statistic {
   return \@results;
 }
 
+=head2 is_empty
+
+  Arg [1]    : none
+  Example    : $results = $genome->is_empty;
+  Description: Boolean to check if there is data in the genome container
+  Returntype : Boolean
+  Exceptions : none
+  Caller     : general
+  Status     : Stable
+
+=cut
+
+sub is_empty {
+  my $self = shift;
+  my $db = $self->db;
+  my $species_id = $self->db->species_id();
+  my $is_empty = 0;
+  my $count_sql = q{
+    SELECT count(*) FROM genome_statistics
+  };
+
+  my $sth = $self->prepare($count_sql);
+  $sth->execute();
+  if ($sth->fetchrow()) {
+    $is_empty = 1;
+  }
+  $sth->finish();
+  return $is_empty;
+}
+
 =head2 get_attrib
 
   Arg [1]    : statistic

modules/t/genomeContainer.t

@@ -173,6 +173,14 @@ is(0, $empty_genome->has_karyotype, "Empty db does not have chromosomes");
 is(1, $genome->is_high_coverage, "Human genebuild is high coverage");
 is(0, $empty_genome->is_high_coverage, "Empty db is not high coverage");
 
+
+#
+# Test if there is data
+#
+
+is(1, $genome->is_empty, "Human core database has genome data");
+is(0, $empty_genome->is_empty, "Empty database has no genome data");
+
 #
 # Test polyploid genome support
 #