added sub dbID

modules/Bio/EnsEMBL/Map/Ditag.pm

@@ -93,7 +93,6 @@ sub new {
   return $self;
 }
 
-
 =head2 name
 
   Arg [1]    : (optional) string $type
@@ -114,6 +113,27 @@ sub name {
   return $self->{'name'};
 }
 
+=head2 dbID
+
+  Arg [1]    : (optional) int id
+  Example    : $ditag_id = $ditag->dbID;
+  Description: Getter/Setter for the dbID of a ditag
+  Returntype : int
+  Caller     : general
+
+=cut
+
+sub dbID {
+  my $self = shift;
+
+  if(@_) {
+    $self->{'dbID'} = shift;
+  }
+
+  return $self->{'dbID'};
+}
+
+
 =head2 type
 
   Arg [1]    : (optional) string $type