sub _mk_column_accessors {
    my $class = shift;
    eval "sub  ${class}::$_ { \$_[0]->{'$_'} }"
     foreach grep {!exists &{$class."::$_"}} @_;
    $class->SUPER::_mk_column_accessors( @_ );
} #_mk_column_accessors