/ 
ONTO-PERL-1.43
River stage zero No dependents
/ OBO::Util::DbxrefSet

equals

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

NAME

OBO::Util::DbxrefSet - A Dbxref set implementation.

SYNOPSIS

use OBO::Util::DbxrefSet; use OBO::Core::Dbxref; use strict;

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

# three new dbxref's my $ref1 = OBO::Core::Dbxref->new; my $ref2 = OBO::Core::Dbxref->new; my $ref3 = OBO::Core::Dbxref->new;

$ref1->name("APO:vm"); $ref2->name("APO:ls"); $ref3->name("APO:ea");

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

### set versions ### $my_set->add($ref1); $my_set->add($ref2); $my_set->add($ref3);

my $ref4 = OBO::Core::Dbxref->new; my $ref5 = OBO::Core::Dbxref->new; my $ref6 = OBO::Core::Dbxref->new;

$ref4->name("APO:ef"); $ref5->name("APO:sz"); $ref6->name("APO:qa");

$my_set->add_all($ref4, $ref5, $ref6);

$my_set->add_all($ref4, $ref5, $ref6);

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

my $ref7 = $ref4; my $ref8 = $ref5; my $ref9 = $ref6;

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

$my_set->add_all($ref4, $ref5, $ref6); $my_set2->add_all($ref7, $ref8, $ref9, $ref1, $ref2, $ref3);

$my_set2->clear();

DESCRIPTION

A set (OBO::Util::ObjectSet) of dbxref (OBO::Core::Dbxref) elements.

AUTHOR

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

COPYRIGHT AND LICENSE

Copyright (c) 2006-2014 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.