The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
 / 
ONTO-PERL-1.45
River stage zero No dependents
++
/ OBO::APO::GoaAssociationSet

NAME

OBO::APO::GoaAssociationSet - A GoaAssociationSet implementation

SYNOPSIS

use OBO::APO::GoaAssociationSet; use OBO::APO::GoaAssociation; use strict;

my $my_set = OBO::APO::GoaAssociationSet->new();

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

$goa_association1->assc_id("APO:vm"); $goa_association2->assc_id("APO:ls"); $goa_association3->assc_id("APO: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 = OBO::APO::GoaAssociation->new(); my $goa_association5 = OBO::APO::GoaAssociation->new(); my $goa_association6 = OBO::APO::GoaAssociation->new();

$goa_association4->assc_id("APO:ef"); $goa_association5->assc_id("APO:sz"); $goa_association6->assc_id("APO: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 = OBO::APO::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 (OBO::Util::Set) of goa_association records.

COPYRIGHT AND LICENSE

Copyright (C) 2006 by ONTO-perl

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.

add

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

add_unique

 Usage    - $set->add_unique($goa_association)
 Returns  - 1 (the element is always added)
 Args     - the element (OBO::APO::GoaAssociation) to be added which is known to be unique!
 Function - adds an element to this set
 Remark   - this function should be used when the element to be added is known to be unique,
                        this function has a tremendous impact on the performance (compared to simply add())

remove

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

remove_duplicates

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

contains

 Usage    - $set->contains($goa_association)
 Returns  - either 1(true) or 0 (false)
 Args     - the element (OBO::APO::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 (OBO::APO::GoaAssociationSet) to compare with
 Function - tells whether this set is equal to the given one