NAME

Gestinanna::POF::MLDBM - MLDBM interface for persistant objects

SYNOPSIS

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(@_);
}

DESCRIPTION

AUTHOR

James Smith, <jsmith@cpan.org>

COPYRIGHT

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.