-package DBIx::Class::CDBICompat::ColumnGroups;
+package # hide from PAUSE
+ DBIx::Class::CDBICompat::ColumnGroups;
use strict;
use warnings;
$class->set_primary_key($cols[0]);
}
unless (exists $class->_column_groups->{'Essential'}) {
- #$class->_register_column_group('Essential' => $cols[0]);
$groups->{'Essential'}{$cols[0]} = {};
- #$groups->{'Essential'}{$_} ||= {} for keys %{ $class->_primaries || {} };
}
}
$groups->{$group}{$_} ||= {} for @cols;
- #if ($group eq 'Essential') {
- # $groups->{$group}{$_} ||= {} for keys %{ $class->_primaries || {} };
- #}
$class->_column_groups($groups);
}
-sub all_columns { return keys %{$_[0]->_columns}; }
+sub all_columns { return shift->result_source_instance->columns; }
sub primary_column {
my ($class) = @_;
sub __grouper {
my ($class) = @_;
- return bless({ class => $class}, 'DBIx::Class::CDBICompat::ColumnGroups::GrouperShim');
+ my $grouper = { class => $class };
+ return bless($grouper, 'DBIx::Class::CDBICompat::ColumnGroups::GrouperShim');
}
sub _find_columns {