gistfile1.txt

sub _autofield_processor {
  my $self = shift;
  my $cnf = shift || {};
  return sub {
      my $name = shift;
      my $display = shift;
      $display = $name unless ($display);
      my $Column = $self->AppDV->get_column($name) or return '';
# no strict 'refs';
# use Data::Dumper; warn 'ISA: ' . join ', ', @{ ref($self->AppDV) . '::ISA' }; # ->_virtual_columns();
use Data::Dumper; warn Dumper $self->AppDV->column_name_list;


$VAR1 = 'show_product_id';
$VAR2 = 'user_id';
$VAR3 = 'show_id';
$VAR4 = 'product_id';
$VAR5 = 'qnty';
$VAR6 = 'show';
$VAR7 = 'user';
$VAR8 = 'show_product';
$VAR9 = 'show__show_name';
$VAR10 = 'show__show_id';
$VAR11 = 'user__username';
$VAR12 = 'user__id';
$VAR13 = 'show_product__show_product_id';
$VAR14 = '___record_pk';