Erick Antezana > ONTO-PERL-1.44 > OBO::Util::DbxrefSet

Download:
ONTO-PERL/ONTO-PERL-1.44.tar.gz

Dependencies

Annotate this POD

CPAN RT

Open  0
View/Report Bugs
Source  

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.

syntax highlighting: