NAME

FlatFile::DataStore::Toc - Perl module that implements a flat file data store TOC (table of contents) class.

SYNOPSYS

use FlatFile::DataStore::Toc;
my $toc;

$toc = FlatFile::DataStore::Toc->new( { int => 10,
    datastore => $datastore_obj } );

# or

$toc = FlatFile::DataStore::Toc->new( { num => "A",
    datastore => $datastore_obj } );

DESCRIPTION

FlatFile::DataStore::Toc is a Perl module that implements a flat file data store TOC (table of contents) class.

This module is used by FlatFile::DataStore. You will likely never call any of it's methods yourself.

VERSION

FlatFile::DataStore::Toc version 0.04

CLASS METHODS

FlatFile::DataStore::Toc->new( $parms )

Constructs a new FlatFile::DataStore::Toc object.

The parm $parms is a hash reference containing key/value pairs to populate the record string. Three keys are recognized:

- datastore, data store object (required) and one of:
- int, data file number as integer, will load object from tocfile
  or
- num, data file number as number in number base, will load from tocfile

An int or num of 0 will load the first (totals) line from tocfile

OBJECT METHODS

OBJECT METHODS: Accessors

The following read/write methods set and return their respective attribute values if $value is given. Otherwise, they just return the value.

$record->datastore( [$value] )
$record->string(    [$value] )

The following methods expect an integer parm and return an integer value (even though these are stored in the tocfile as numbers in their respective bases).

$record->datafnum( [$value] )
$record->keyfnum(  [$value] )
$record->tocfnum(  [$value] )
$record->keynum(   [$value] )
$record->transnum( [$value] )
$record->create(   [$value] )
$record->oldupd(   [$value] )
$record->update(   [$value] )
$record->olddel(   [$value] )
$record->delete(   [$value] )

AUTHOR

Brad Baxter, <bbaxter@cpan.org>

COPYRIGHT AND LICENSE

Copyright (C) 2009 by Brad Baxter

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.8 or, at your option, any later version of Perl 5 you may have available.