Lines Matching refs:cols
2390 # Set up metadata (cols, pks, etc)
2402 my $cols = $self->_table_columns($table);
2447 my ($name, $cols) = @$uniq;
2448 next if $uniq_tag{ join("\0", @$cols) }++; # skip duplicates
2449 push @uniqs, [$name, $cols];
2479 map { $_, ($col_info->{$_}||{}) } @$cols
2490 my ($name, $cols) = @$uniq;
2491 $self->_dbic_stmt($table_class,'add_unique_constraint', $name, $cols);
2750 my @cols = @_;
2751 while( my ($name,$attrs) = splice @cols,0,2 ) {
2792 my ($name, $cols) = @_;
2797 foreach my $col (@$cols) {