Select Code to Download

sub _put_list ($@) {
   my $target = shift;
...

eval "sub $_ { return _put_list($_ => \@_);}" for qw{column table};

sub column {
   return _put_list(column => @_);
}