diff --git a/modules/Bio/EnsEMBL/FeaturePair.pm b/modules/Bio/EnsEMBL/FeaturePair.pm index 71eda020aa4f496791f02282167fa7bfcaadbbc3..0cad54569ec90c5d2869d61112b6a4e164184168 100755 --- a/modules/Bio/EnsEMBL/FeaturePair.pm +++ b/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;