CCO::Util::GoaAssociationSet - A GoaAssociationSet implementation
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);
# 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();
A set (CCO::Util::Set) of goa_association records.
Vladimir Mironov, <vlmir@psb.ugent.be>
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.
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
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
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)
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
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
To install CCO::Util::Set, copy and paste the appropriate command in to your terminal.
cpanm
cpanm CCO::Util::Set
CPAN shell
perl -MCPAN -e shell install CCO::Util::Set
For more information on module installation, please visit the detailed CPAN module installation guide.