File Coverage

blib/lib/OBO/Util/SubsetDefMap.pm

Criterion	Covered	Total	%
statement	30	32	93.7
branch	7	12	58.3
condition	1	3	33.3
subroutine	5	5	100.0
pod	1	1	100.0
total	44	53	83.0

# $Id: SubsetDefMap.pm 2014-10-29 erick.antezana $
#
# Module  : SubsetDefMap.pm
# Purpose : Subset Definition Map.
# 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::SubsetDefMap;

#
# key   = subset name
# value = subset def
#

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

use Carp;
use strict;
use warnings;

=head2 equals

  Usage    - $map->equals($another_subset_def_map)
  Returns  - true or false
  Args     - the set (OBO::Util::SubsetDefMap) to compare with
  Function - tells whether this set is equal to the given one

=cut
sub equals {
	my $self = shift;
	my $result = 0; # I initially guess they're NOT identical
	if (@_) {
		my $other_map = shift;
		if ($other_map && eval { $other_map->isa('OBO::Util::SubsetDefMap') }) {
			if ($self->size() == $other_map->size()) {
				my %cmp = map { $_ => 1 } sort keys %{$self->{MAP}};
				for my $key ($other_map->key_set()->get_set()) {
					last unless exists $cmp{$key};
					last unless $self->{MAP}->{$key}->equals($other_map->get($key)); # 'equals'
					delete $cmp{$key};
				}
				if (%cmp) {
					#warn "they don't have the same keys or values\n";
					$result = 0;
				} else {
					#warn "they have the same keys or values\n";
					$result = 1;
				}
			} else {
				$result = 0;
			}
		} else {
			croak "An unrecognized object type (not a OBO::Util::SubsetDefMap) was found: '", $other_map, "'";
		}
	}
	return $result;
}

1;

__END__