File Coverage

blib/lib/OBO/Util/DbxrefSet.pm

Criterion	Covered	Total	%
statement	26	28	92.8
branch	6	8	75.0
condition			n/a
subroutine	4	4	100.0
pod	1	1	100.0
total	37	41	90.2

# $Id: DbxrefSet.pm 2014-06-06 erick.antezana $
#
# Module  : DbxrefSet.pm
# Purpose : Reference structure set.
# License : Copyright (c) 2006-2015 by Erick Antezana. All rights reserved.
#           This program is free software; you can redistribute it and/or
#           modify it under the same terms as Perl itself.
# Contact : Erick Antezana
#
package OBO::Util::DbxrefSet;

our @ISA = qw(OBO::Util::ObjectSet);
use OBO::Util::ObjectSet;

use strict;
use warnings;

# TODO Values in dbxref lists should be ordered alphabetically on the dbxref name.

=head2 equals

  Usage    - $set->equals($another_dbxref_set)
  Returns  - either 1 (true) or 0 (false)
  Args     - the set (OBO::Util::DbxrefSet) to compare with
  Function - tells whether this set is equal to the given one

=cut
sub equals {
	my $self = shift;
	my $result = 0; # I guess they'are NOT identical

	if (@_) {
		my $other_set = shift;
		my %count = ();

		my @this = sort values %{$self->{MAP}};
		my @that = $other_set->get_set();

		if ($#this == $#that) {
			if ($#this != -1) {
				foreach (@this, @that) {
					$count{$_->name().$_->description().$_->modifier()}++;
				}
				foreach my $count (sort values %count) {
					if ($count != 2) {
						$result = 0;
						last;
					} else {
						$result = 1;
					}
				}
			} else {
				$result = 1; # they are equal: empty arrays
			}
		}
	}
	return $result;
}

1;

__END__