/ 
onto-perl-1.0
/ CCO::Util::GoaAssociationSet

add

Usage    - $set->add($goa_association)
Returns  - true if the element was successfully added
Args     - the element (CCO::Core::GoaAssociation) to be added
Function - adds an element to this set

remove

Usage    - $set->remove($element)
Returns  - the removed element (CCO::Core::GoaAssociation)
Args     - the element to be removed (CCO::Core::GoaAssociation)
Function - removes an element from this set

remove_duplicates

Usage    - $set->remove_duplicates()
Returns  - a set object (CCO::Util::GoaAssociationSet) 
Args     - none 
Function - eliminates redundency in a GOA association set object (CCO::Util::GoaAssociationSet)

contains

Usage    - $set->contains($goa_association)
Returns  - either 1(true) or 0 (false)
Args     - the element (CCO::Core::GoaAssociation) to be checked
Function - checks if this set constains the given element

equals

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

NAME

CCO::Util::GoaAssociationSet  - a GoaAssociationSet implementation

SYNOPSIS

use CCO::Util::GoaAssociationSet; use CCO::Core::GoaAssociation; use strict;

my $my_set = CCO::Util::GoaAssociationSet->new();

# three new goa_association's my $goa_association1 = CCO::Core::GoaAssociation->new(); my $goa_association2 = CCO::Core::GoaAssociation->new(); my $goa_association3 = CCO::Core::GoaAssociation->new();

$goa_association1->assc_id("CCO:vm"); $goa_association2->assc_id("CCO:ls"); $goa_association3->assc_id("CCO:ea");

# remove from my_set $my_set->remove($goa_association1); $my_set->add($goa_association1); $my_set->remove($goa_association1);

### set versions ### $my_set->add($goa_association1); $my_set->add($goa_association2); $my_set->add($goa_association3);

my $goa_association4 = CCO::Core::GoaAssociation->new(); my $goa_association5 = CCO::Core::GoaAssociation->new(); my $goa_association6 = CCO::Core::GoaAssociation->new();

$goa_association4->assc_id("CCO:ef"); $goa_association5->assc_id("CCO:sz"); $goa_association6->assc_id("CCO:qa");

$my_set->add_all($goa_association4, $goa_association5, $goa_association6);

$my_set->add_all($goa_association4, $goa_association5, $goa_association6);

# remove from my_set $my_set->remove($goa_association4);

my $goa_association7 = $goa_association4; my $goa_association8 = $goa_association5; my $goa_association9 = $goa_association6;

my $my_set2 = CCO::Util::GoaAssociationSet->new();

$my_set->add_all($goa_association4, $goa_association5, $goa_association6); $my_set2->add_all($goa_association7, $goa_association8, $goa_association9, $goa_association1, $goa_association2, $goa_association3);

$my_set2->clear();

DESCRIPTION

A set (CCO::Util::Set) of goa_association records.

AUTHOR

Vladimir Mironov, <vlmir@psb.ugent.be>

COPYRIGHT AND LICENSE

Copyright (C) 2006 by erant

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.