Added identical_matches and positive_matches methods mainly for use in...

Added identical_matches and positive_matches methods mainly for use in homologous gene pairing pipeline, but may be useful for others

modules/Bio/EnsEMBL/FeaturePair.pm

@@ -538,4 +538,44 @@ sub hspecies{
     return $self->{'_hspecies'};
 }
 
+=head2 identical_matches
+
+ Arg [1]    : int $identical_matches (optional)
+ Example    : 
+ Description: get/set on the number of identical matches
+ Returntype : int
+ Execeptions: none
+ Caller     : general
+
+=cut
+
+sub identical_matches{
+    my ($self,$arg) = @_;
+
+    if (defined($arg)) {
+        return $self->{'_identical_matches'} = $arg;
+    } 
+    return $self->{'_identical_matches'};
+}
+
+=head2 positive_matches
+
+ Arg [1]    : int $positive_matches (optional)
+ Example    : 
+ Description: get/set on the number of positive matches
+ Returntype : int
+ Execeptions: none
+ Caller     : general
+
+=cut
+
+sub positive_matches{
+    my ($self,$arg) = @_;
+
+    if (defined($arg)) {
+        return $self->{'_positive_matches'} = $arg;
+    } 
+    return $self->{'_positive_matches'};
+}
+
 1;