File Coverage

blib/lib/OBO/Util/RelationshipTypeSet.pm

Criterion	Covered	Total	%
statement	21	21	100.0
branch	5	6	83.3
condition			n/a
subroutine	5	5	100.0
pod	2	2	100.0
total	33	34	97.0

# $Id: RelationshipTypeSet.pm 2014-02-02 erick.antezana $
#
# Module  : RelationshipTypeSet.pm
# Purpose : RelationshipType set.
# License : Copyright (c) 2006-2014 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::RelationshipTypeSet;

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

use strict;
use warnings;

=head2 contains_id

  Usage    - $set->contains_id($element_id)
  Returns  - true if this set contains an element with the given ID
  Args     - the ID to be checked
  Function - checks if this set constains an element with the given ID

=cut

sub contains_id {
	my ($self, $id) = @_;
	return ($self->{MAP}->{$id})?1:0;
}

=head2 contains_name

  Usage    - $set->contains_name($element_name)
  Returns  - true if this set contains an element with the given name
  Args     - the name to be checked
  Function - checks if this set constains an element with the given name

=cut

sub contains_name {
	my $self = shift;
	my $result = 0;
	if (@_) {
		my $relationship_type_id = shift;

		foreach my $ele (sort values %{$self->{MAP}}){
			if ($ele->name() eq $relationship_type_id) {
				$result = 1;
				last;
			}
		}
	}
	return $result;
}

1;

__END__