package lib::sql::Record;
use strict;
use vars qw /$AUTOLOAD/;

# generic (and dangerous) attribute accessor.
sub AUTOLOAD
{
    my $self = shift;
    my $AUTOLOAD;
    
    if (@_) { $self->{$AUTOLOAD} = shift }
    else { return $self->{$AUTOLOAD} }
}


1;
