| Gestinanna::POF::MLDBM - MLDBM interface for persistant objects |
Gestinanna::POF::MLDBM - MLDBM interface for persistant objects
package My::DataObject::Base;
use base qw(Gestinanna::POF::MLDBM);
package My::DataObject;
@ISA = q(My::DataObject::Base);
# any column access method overrides here sub key { my $self = shift;
if( @_ ) { # setting
# do checks here, returning or throwing an exception if
# there is a problem
}
$self -> SUPER::key(@_);
}
This module supports MLDBM data stores through either the MLDBM or the MLDBM::Sync modules.
Actually, it can work with any data source that has a tied hash interface (implements the FETCH, STORE, EXISTS, DELETE, FIRSTKEY, NEXTKEY methods).
The data store object is mldbm and is a required parameter for
object creation. Usually, this is set in the factory object which
then passes it to this class when a new object is being created or
fetched from the data store.
James Smith, <jsmith@cpan.org>
Copyright (C) 2002-2003 Texas A&M University. All Rights Reserved.
This module is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
| Gestinanna::POF::MLDBM - MLDBM interface for persistant objects |