.\" Automatically generated by Pod::Man v1.34, Pod::Parser v1.13
.\" ========================================================================
.de Sh \" Subsection heading
.de Sp \" Vertical space (when we can't use .PP)
.de Vb \" Begin verbatim text
.de Ve \" End verbatim text
.\" Set up some character translations and predefined strings. \*(-- will
.\" give an unbreakable dash, \*(PI will give pi, \*(L" will give a left
.\" double quote, and \*(R" will give a right double quote. | will give a
.\" real vertical bar. \*(C+ will give a nicer C++. Capital omega is used to
.\" do unbreakable dashes and therefore won't be available. \*(C` and \*(C'
.\" expand to `' in nroff, nothing in troff, for use with C<>.
.ds C+ C\v'-.1v'\h'-1p'\s-2+\h'-1p'+\s0\v'.1v'\h'-1p'
. if (\n(.H=4u)&(1m=24u) .ds -- \(*W\h'-12u'\(*W\h'-12u'-\" diablo 10 pitch
. if (\n(.H=4u)&(1m=20u) .ds -- \(*W\h'-12u'\(*W\h'-8u'-\" diablo 12 pitch
.\" If the F register is turned on, we'll generate index entries on stderr for
.\" titles (.TH), headers (.SH), subsections (.Sh), items (.Ip), and index
.\" entries marked with X<> in POD. Of course, you'll have to process the
.\" output yourself in some meaningful fashion.
. tm Index:\\$1\t\\n%\t"\\$2"
.\" For nroff, turn off justification. Always turn off hyphenation; it makes
.\" way too many mistakes in technical documents.
.\" Accent mark definitions (@(#)ms.acc 1.5 88/02/08 SMI; from UCB 4.2).
.\" Fear. Run. Save yourself. No user-serviceable parts.
. \" fudge factors for nroff and troff
. ds #H ((1u-(\\\\n(.fu%2u))*.13m)
. \" simple accents for nroff and troff
. ds ' \\k:\h'-(\\n(.wu*8/10-\*(#H)'\'\h"|\\n:u"
. ds ` \\k:\h'-(\\n(.wu*8/10-\*(#H)'\`\h'|\\n:u'
. ds ^ \\k:\h'-(\\n(.wu*10/11-\*(#H)'^\h'|\\n:u'
. ds , \\k:\h'-(\\n(.wu*8/10)',\h'|\\n:u'
. ds ~ \\k:\h'-(\\n(.wu-\*(#H-.1m)'~\h'|\\n:u'
. ds / \\k:\h'-(\\n(.wu*8/10-\*(#H)'\z\(sl\h'|\\n:u'
. \" troff and (daisy-wheel) nroff accents
.ds : \\k:\h'-(\\n(.wu*8/10-\*(#H+.1m+\*(#F)'\v'-\*(#V'\z.\h'.2m+\*(#F'.\h'|\\n:u'\v'\*(#V'
.ds 8 \h'\*(#H'\(*b\h'-\*(#H'
.ds o \\k:\h'-(\\n(.wu+\w'\(de'u-\*(#H)/2u'\v'-.3n'\*(#[\z\(de\v'.3n'\h'|\\n:u'\*(#]
.ds d- \h'\*(#H'\(pd\h'-\w'~'u'\v'-.25m'\f2\(hy\fP\v'.25m'\h'-\*(#H'
.ds D- D\\k:\h'-\w'D'u'\v'-.11m'\z\(hy\v'.11m'\h'|\\n:u'
.ds th \*(#[\v'.3m'\s+1I\s-1\v'-.3m'\h'-(\w'I'u*2/3)'\s-1o\s+1\*(#]
.ds Th \*(#[\s+2I\s-2\h'-\w'I'u*3/5'\v'-.3m'o\v'.3m'\*(#]
.ds ae a\h'-(\w'a'u*4/10)'e
.ds Ae A\h'-(\w'A'u*4/10)'E
. \" corrections for vroff
.if v .ds ~ \\k:\h'-(\\n(.wu*9/10-\*(#H)'\s-2\u~\d\s+2\h'|\\n:u'
.if v .ds ^ \\k:\h'-(\\n(.wu*10/11-\*(#H)'\v'-.4m'^\v'.4m'\h'|\\n:u'
. \" for low resolution devices (crt and lpr)
.if \n(.H>23 .if \n(.V>19 \
.\" ========================================================================
.TH Object 3 "2003-09-02" "perl v5.8.0" "User Contributed Perl Documentation"
Set::Object \- set of objects
\& $set = Set::Object->new();
This modules implements a set of objects, that is, an unordered
collection of objects without duplication.
.IX Header "CLASS METHODS"
.Sh "new( [\fIlist\fP] )"
.IX Subsection "new( [list] )"
Return a new \f(CW\*(C`Set::Object\*(C'\fR containing the elements passed in \fIlist\fR.
The elements must be objects.
.IX Header "INSTANCE METHODS"
.Sh "insert( [\fIlist\fP] )"
.IX Subsection "insert( [list] )"
Add objects to the \f(CW\*(C`Set::Object\*(C'\fR.
Adding the same object several times is not an error,
but any \f(CW\*(C`Set::Object\*(C'\fR will contain at most one occurence of the
Returns the number of elements that were actually added.
.Sh "includes( [\fIlist\fP] )"
.IX Subsection "includes( [list] )"
Return \f(CW\*(C`true\*(C'\fR if all the objects in \fIlist\fR are members of the \f(CW\*(C`Set::Object\*(C'\fR.
\&\fIlist\fR may be empty, in which case \f(CW\*(C`true\*(C'\fR is returned.
Return the objects contained in the \f(CW\*(C`Set::Object\*(C'\fR.
Return the number of elements in the \f(CW\*(C`Set::Object\*(C'\fR.
.Sh "remove( [\fIlist\fP] )"
.IX Subsection "remove( [list] )"
Remove objects from a \f(CW\*(C`Set::Object\*(C'\fR.
Removing the same object more than once, or removing an object
absent from the \f(CW\*(C`Set::Object\*(C'\fR is not an error.
Returns the number of elements that were actually removed.
Empty this \f(CW\*(C`Set::Object\*(C'\fR.
.IX Subsection "as_string"
Return a textual Smalltalk-ish representation of the \f(CW\*(C`Set::Object\*(C'\fR.
Also available as overloaded operator "".
.Sh "intersection( [\fIlist\fP] )"
.IX Subsection "intersection( [list] )"
Return a new \f(CW\*(C`Set::Object\*(C'\fR containing the intersection of the
\&\f(CW\*(C`Set::Object\*(C'\fRs passed as arguments.
Also available as overloaded operator *.
.Sh "union( [\fIlist\fP] )"
.IX Subsection "union( [list] )"
Return a new \f(CW\*(C`Set::Object\*(C'\fR containing the union of the
\&\f(CW\*(C`Set::Object\*(C'\fRs passed as arguments.
Also available as overloaded operator +.
.Sh "subset( \fIset\fP )"
.IX Subsection "subset( set )"
Return \f(CW\*(C`true\*(C'\fR if this \f(CW\*(C`Set::Object\*(C'\fR is a subset of \fIset\fR.
Also available as operator <=.
.Sh "proper_subset( \fIset\fP )"
.IX Subsection "proper_subset( set )"
Return \f(CW\*(C`true\*(C'\fR if this \f(CW\*(C`Set::Object\*(C'\fR is a proper subset of \fIset\fR
Also available as operator <.
.Sh "superset( \fIset\fP )"
.IX Subsection "superset( set )"
Return \f(CW\*(C`true\*(C'\fR if this \f(CW\*(C`Set::Object\*(C'\fR is a superset of \fIset\fR.
Also available as operator >=.
.Sh "proper_superset( \fIset\fP )"
.IX Subsection "proper_superset( set )"
Return \f(CW\*(C`true\*(C'\fR if this \f(CW\*(C`Set::Object\*(C'\fR is a proper superset of \fIset\fR
Also available as operator >.
The following functions are defined by the Set::Object \s-1XS\s0 code for
convenience; they are largely identical to the versions in the
Scalar::Util module, but there are a couple that provide functions not
catered to by that module.
Returns a true value if the passed reference (\s-1RV\s0) is blessed. See
A bit like the perl built-in \f(CW\*(C`ref\*(C'\fR function, but returns the \fItype\fR
of reference; ie, if the reference is blessed then it returns what
\&\f(CW\*(C`ref\*(C'\fR would have if it were not blessed. Useful for \*(L"seeing through\*(R"
Returns the memory address of a scalar. \fBWarning\fR: this is \fInot\fR
guaranteed to be unique for scalars created in a program; memory might
.IP "\fBis_int\fR, \fBis_string\fR, \fBis_double\fR" 4
.IX Item "is_int, is_string, is_double"
A quick way of checking the three bits on scalars \- \s-1IOK\s0 (is_int), \s-1NOK\s0
(is_double) and \s-1POK\s0 (is_string). Note that the exact behaviour of
when these bits get set is not defined by the perl \s-1API\s0.
This function returns the \*(L"p\*(R" versions of the macro (SvIOKp, etc); use
.IP "\fBis_overloaded\fR" 4
A quick way to check if an object has overload magic on it.
This function returns true, if the value it is passed looks like it
\&\fIalready is\fR a representation of an \fIinteger\fR. This is so that you
can decide whether the value passed is a hash key or an array
This function returns true, if the value it is passed looks more like
an \fIindex\fR to a collection than a \fIvalue\fR of a collection.
But wait, you say \- Set::Object has no indices, one of the fundamental
properties of a Set is that it is an \fIunordered collection\fR. Which
means \fIno indices\fR. Stay tuned for the answer.
.IX Header "INSTALLATION"
This module is partly written in C, so you'll need a C compiler to
install it. Use the familiar sequence:
This module was developed on Windows \s-1NT\s0 4.0, using the Visual \*(C+
compiler with Service Pack 2. It was also tested on \s-1AIX\s0 using \s-1IBM\s0's
The following benchmark compares \f(CW\*(C`Set::Object\*(C'\fR with using a hash to
emulate a set-like collection:
\& @els = map { Obj->new() } 1..1000;
\& Benchmark::timethese(100, {
\& 'H insert' => sub { my %h = (); @h{@els} = @els; },
\& 'S insert' => sub { my $s = Set::Object->new(); $s->insert(@els) },
\& $gs = Set::Object->new(@els);
\& Benchmark::timethese(100_000, {
\& 'H lookup' => sub { exists $gh{33} },
\& 'S lookup' => sub { $gs->includes($el) }
On my computer the results are:
\& Benchmark: timing 100 iterations of Control, H insert, S insert...
\& Control: 0 secs ( 0.01 usr 0.00 sys = 0.01 cpu)
\& (warning: too few iterations for a reliable count)
\& H insert: 68 secs (67.81 usr 0.00 sys = 67.81 cpu)
\& S insert: 9 secs ( 8.81 usr 0.00 sys = 8.81 cpu)
\& Benchmark: timing 100000 iterations of H lookup, S lookup...
\& H lookup: 7 secs ( 7.14 usr 0.00 sys = 7.14 cpu)
\& S lookup: 6 secs ( 5.94 usr 0.00 sys = 5.94 cpu)
Original Set::Object module by Jean-Louis Leroy, <jll@skynet.be>
Copyright (c) 1998\-1999, Jean-Louis Leroy. All Rights Reserved.
This module is free software. It may be used, redistributed
and/or modified under the terms of the Perl Artistic License
Portions Copyright (c) 2003, Sam Vilain. All Rights Reserved.
This module is free software. It may be used, redistributed
and/or modified under the terms of the Perl Artistic License
\&\fIperl\fR\|(1), \fIperltie\fR\|(1), overload.pm
projects / OpenSPARC-T2-DV / blob