The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.
 / 
DiaColloDB-0.12.013
River stage one • 1 direct dependent • 1 total dependent
/ DiaColloDB::EnumFile::Tied

NAME

DiaColloDB::EnumFile::Tied - diachronic collocation db: symbol<->integer enum: tied interface

PACKAGES

DiaColloDB::EnumFile::Tied

Top-level dummy package.

DiaColloDB::EnumFile::TiedArray

Low-level Tie::Array subclass for representing a integer->symbol mapping as a tied array.

DiaColloDB::EnumFile::TiedHash

Low-level Tie::Hash subclass for representing symbol->integer mapping as a tied hash.

SYNOPSIS

##========================================================================
## PRELIMINARIES

use DiaColloDB::EnumFile::Tied;

##========================================================================
## Tied interface

$enum = $CLASS->tienew(%opts,class=>$enumFileClass);  ##-- utility wrapper

(\@id2sym,\%sym2id) = $CLASS->tiepair(%opts);
(\@id2sym,\%sym2id) = $CLASS->tiepair($enum);
(\@id2sym,\%sym2id) = $enum->tiepair();

 $class = $CLASS_OR_OBJECT->tieArrayClass();
 $class = $CLASS_OR_OBJECT->tieHashClass();

##========================================================================
## API: DiaColloDB::EnumFile::TiedArray

##-- mandatory methods
$tied  = TIEARRAY($class, $tieClass, %opts, class=>$enumFileClass);
$val   = $tied->FETCH($index);
$count = $tied->FETCHSIZE();
$val   = $tied->STORE($index,$val);
$count = $tied->STORESIZE($count);
$bool  = $tied->EXISTS($index);
undef  = $tied->DELETE($index);

##-- optional methods
undef = $tied->CLEAR();

##========================================================================
## API: DiaColloDB::EnumFile::TiedHash

$val    = $tied->STORE($key, $value);
$val    = $tied->FETCH($key);
$key    = $tied->FIRSTKEY();
$key    = $tied->NEXTKEY($lastkey);
$bool   = $tied->EXISTS($key);
undef   = $tied->DELETE($key);
undef   = $tied->CLEAR();
$scalar = $tied->SCALAR();

DESCRIPTION

DiaColloDB::EnumFile::Tied provides a tie() interface for treating DiaColloDB::EnumFile objects (and subclasses thereof) as a pair (\@id2sym,\%sym2id), where \@id2sym is a tied ARRAY-ref mapping IDs to symbols via DiaColloDB::EnumFile::i2s() and \%sym2id is a tied HASH-ref mapping symbols to IDs via DiaColloDB::EnumFile::s2i(). The tied references are suitable for use by other code expecting enums as in-memory perl datastructures, e.g. MUDL::Enum as used by the DocClassify module.

Tied Interface

tienew
$enum = $CLASS->tienew(%opts,class=>$enumFileClass);
$enum = $CLASS->tienew($enum);

returns $enum if specified, otherwise a new DiaColloDB::EnumFile object for %opts.

tiepair
(\@id2sym,\%sym2id) = $CLASS->tiepair(%opts);
(\@id2sym,\%sym2id) = $CLASS->tiepair($enum);
(\@id2sym,\%sym2id) = $enum->tiepair();

Returns pair of tied objects suitable for simulating e.g. MUDL::Enum. %opts: passed to $CLASS->tienew(). Ties objects using $enum->tieArrayClass() rsp. $enum->tieHashClass().

tieArrayClass
$class = $CLASS_OR_OBJECT->tieArrayClass()

Returns class for tied arrays to be returned by tiepair() method; default just returns "DiaColloDB::EnumFile::TiedArray".

tieHashClass
$class = $CLASS_OR_OBJECT->tieHashClass()

Returns class for tied arrays to be returned by tiepair() method; default just returns "DiaColloDB::EnumFile::TiedHash".

DiaColloDB::EnumFile::TiedArray

TIEARRAY
$tied = tie(@array, $tieClass, $enum);
$tied = tie(@array, $tieClass, %opts);
$tied = DiaColloDB::EnumFile::TiedArray->TIEARRAY($tieClass, %opts, class=>$enumFileClass);
$tied = DiaColloDB::EnumFile::TiedArray->TIEARRAY($tieClass, $enum);

%opts as for DiaColloDB::EnumFile::tienew(); returns $tied = \$enum.

FETCH
$val = $tied->FETCH($index);

wraps i2s().

FETCHSIZE
$count = $tied->FETCHSIZE();

like scalar(@array)

STORE
$val = $tied->STORE($index,$val);

store a value.

STORESIZE
$count = $tied->STORESIZE($count);

not quite safe

EXISTS
$bool = $tied->EXISTS($index);

check for existence.

DELETE
undef = $tied->DELETE($index);

not properly supported; just deletes from in-memory cache

CLEAR
undef = $tied->CLEAR();

clears the enum.

DiaColloDB::EnumFile::TiedHash

TIEHASH
$tied = tie(%hash, $tieClass, $enum)
$tied = tie(%hash, $tieClass, %opts)
$tied = DiaColloDB::EnumFile::TiedHash->TIEHASH($tieClass, %opts, class=>$enumFileClass)
$tied = DiaColloDB::EnumFile::TiedHash->TIEHASH($tieClass, $enum)

%opts as for DiaColloDB::EnumFile::tienew(). Returns $tied = \$enum.

STORE
$val = $tied->STORE($key, $value);

Stores value.

FETCH
$val = $tied->FETCH($key);

Fetches ID for symbol $key.

FIRSTKEY
$key = $tied->FIRSTKEY();

get first key (for iteration).

NEXTKEY
$key = $tied->NEXTKEY($lastkey);

get next key (for iteration); only works for enums without index-gaps.

EXISTS
$bool = $tied->EXISTS($key);

check for symbol existence.

DELETE
undef = $tied->DELETE($key);

delete a symbol. not properly supported; just deletes from in-memory cache

CLEAR
undef = $tied->CLEAR();

clears the enum.

SCALAR
$scalar = $tied->SCALAR();

returns key count.

AUTHOR

Bryan Jurish <moocow@cpan.org>

COPYRIGHT AND LICENSE

Copyright (C) 2015-2016 by Bryan Jurish

This package is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.14.2 or, at your option, any later version of Perl 5 you may have available.

SEE ALSO

DiaColloDB::EnumFile(3pm), DiaColloDB(3pm), perl(1), ...