ObjStore::AV::QSet - index-style interface with an array representation

ObjStore documentation Contained in the ObjStore distribution.

Index

Code Index:

NAME

Top

  ObjStore::AV::QSet - index-style interface with an array representation

SYNOPSIS

Top

  my $set = ObjStore::AV::QSet->new($near, $size);

  $set->add($myobject);

  $set->remove($myobject);

DESCRIPTION

Top

Implements an API very similar to ObjStore::Index, except with an array implementation. Elements are unsorted. Add is the same as push, but <remove> scans the entire set.

ObjStore documentation Contained in the ObjStore distribution. 
use strict;

package ObjStore::AV::QSet;
use base 'ObjStore::AV';
use vars qw($VERSION);
use Carp;
use ObjStore ':ADV';

$VERSION = '0.01';

*add = \&ObjStore::AV::PUSH;

sub exists {
    my ($o,$e) = @_;
    defined $o->where($e);
}

sub where {
    my ($o, $e) = @_;
    return if !blessed $e;
    my $x;
    for (my $z=0; $z < $o->FETCHSIZE(); $z++) {
	my $e2 = $o->[$z];
	do { $x = $z; last } if $e2 == $e;
    }
    $x;
}

sub remove {
    my ($o, $e) = @_;
    for (my $z=0; $z < $o->FETCHSIZE(); $z++) {
	while ($e == $o->[$z]) {
	    $o->SPLICE($z,1);
	}
    }
    $e;
}

1;
__END__;