my %accessors = map { $_ => 1 } qw( table column );

sub AUTOLOAD
{
    our $AUTOLOAD;
    $AUTOLOAD =~ s/::([^:]+)$//;
    return if $AUTOLOAD eq 'DESTROY';

    if (exists $accessors{ $AUTOLOAD })
    {
        no strict 'refs';
        *{ $AUTOLOAD } = sub {
            my $self = shift;
            push @{ $self->{ $AUTOLOAD } }, @_;
        };
    }
}