/ 
ONTO-PERL-1.38
River stage zero No dependents
/ OBO::Util::InstanceSet

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

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

NAME

OBO::Util::InstanceSet - A Set implementation.

SYNOPSIS

use OBO::Util::InstanceSet;

use OBO::Core::Instance;

use strict;

my $my_set = OBO::Util::InstanceSet->new;

my @arr = $my_set->get_set();

# three new terms

my $n1 = OBO::Core::Instance->new;

my $n2 = OBO::Core::Instance->new;

my $n3 = OBO::Core::Instance->new;

$n1->id("APO:K0000001");

$n2->id("APO:K0000002");

$n3->id("APO:K0000003");

$n1->name("instance of One");

$n2->name("instance of Two");

$n3->name("instance of Three");

# remove from my_set

$my_set->remove($n1);

$my_set->add($n1);

$my_set->remove($n1);

### set versions ###

$my_set->add($n1);

$my_set->add($n2);

$my_set->add($n3);

my $n4 = OBO::Core::Instance->new;

my $n5 = OBO::Core::Instance->new;

my $n6 = OBO::Core::Instance->new;

$n4->id("APO:K0000004");

$n5->id("APO:K0000005");

$n6->id("APO:K0000006");

$n4->name("instance of Four");

$n5->name("instance of Five");

$n6->name("instance of Six");

$my_set->add_all($n4, $n5, $n6);

$my_set->add_all($n4, $n5, $n6);

# remove from my_set

$my_set->remove($n4);

my $n7 = $n4;

my $n8 = $n5;

my $n9 = $n6;

my $my_set2 = OBO::Util::InstanceSet->new;

$my_set->add_all($n4, $n5, $n6);

$my_set2->add_all($n7, $n8, $n9, $n1, $n2, $n3);

$my_set2->clear();

DESCRIPTION

A set (OBO::Util::ObjectSet) of instances (OBO::Core::Instance).

AUTHOR

Erick Antezana, <erick.antezana -@- gmail.com>

COPYRIGHT AND LICENSE

Copyright (c) 2006-2012 by Erick Antezana

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.8.7 or, at your option, any later version of Perl 5 you may have available.