| Search-InvertedIndex documentation | Contained in the Search-InvertedIndex distribution. |
Search::InvertedIndex::Update - A container for a mass data update for a -group/-index.
Provides a container for the information to perform an update for a -group/-index tuple.
1.01 2002.05.24 - Cleaned up 'new' method to improve performance.
Inherits 'get','set','clear' and 'exists' methods from Class::NamedParms
new({ -group => $group, -index => $index, -keys => { ... ) [ -data = > $data ] });>Returns and optionally initializes a new Search::InvertedIndex::Update object.
Examples:
my $update = Search::InvertedIndex::Update->new;
my $update = Search::InvertedIndex::Update->new({ -group => $group,
-index => $index,
-data => $index_data,
-keys => {
$key0 => 10,
$key1 => 20,
$key2 => 15,
},
});
Inherits 'get/set' methods from Class::NamedParms
The -keys parameter is a reference to a hash containing all the keys for this index and their assigned rankings. Rankings are allowed to be integer values between -32768 and +32767 inclusive.
The -group and -index are required, the -keys are optional. The Update object is used for update by replacement of all -keys for the specified -group and -index. All existing keys are deleted and the passed -keys is used to insert a completely new set of keys for the specified index/group.
The -data parameter is optional, but if passed will replace the existing -data record for the -index.
Copyright 1999, Benjamin Franz (<URL:http://www.nihongo.org/snowhare/>) and FreeRun Technologies, Inc. (<URL:http://www.freeruntech.com/>). All Rights Reserved. This software may be copied or redistributed under the same terms as Perl itelf.
Benjamin Franz
Everything.
1.01 2002.05.24 - Changed initialization to improve performance
| Search-InvertedIndex documentation | Contained in the Search-InvertedIndex distribution. |
package Search::InvertedIndex::Update; # $RCSfile: Update.pm,v $ $Revision: 1.5 $ $Date: 1999/06/15 22:31:07 $ $Author: snowhare $ use strict; use Class::NamedParms; use vars qw (@ISA $VERSION); @ISA = qw (Class::NamedParms); $VERSION = '1.01';
####################################################################
sub new { my $proto = shift; my $class = ref ($proto) || $proto; my $self = Class::NamedParms->new(qw(-group -index -keys -data)); bless $self,$class; # Read any passed parms my $parm_ref = {}; if ($#_ == 0) { $parm_ref = shift; } elsif ($#_ > 0) { %$parm_ref = @_; } if (not exists $parm_ref->{-data}) { $parm_ref->{-data} = undef; } if (not exists $parm_ref->{-keys}) { $parm_ref->{-keys} = undef; } $self->set($parm_ref); return $self; } ####################################################################
1;