sub _register_column_group {
my ($class, $group, @cols) = @_;
+
+ my $groups = { %{$class->_column_groups} };
+
if ($group eq 'Primary') {
$class->set_primary_key(@cols);
+ $groups->{'Essential'}{$_} ||= {} for @cols;
}
- my $groups = { %{$class->_column_groups} };
-
if ($group eq 'All') {
unless (exists $class->_column_groups->{'Primary'}) {
$groups->{'Primary'}{$cols[0]} = {};
$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 || {} };
- }
+ #if ($group eq 'Essential') {
+ # $groups->{$group}{$_} ||= {} for keys %{ $class->_primaries || {} };
+ #}
+
$class->_column_groups($groups);
}
sub primary_column {
my ($class) = @_;
- my @pri = keys %{$class->_primaries};
+ my @pri = $class->primary_columns;
return wantarray ? @pri : $pri[0];
}
sub find_column {
my ($class, $col) = @_;
- return $col if $class->_columns->{$col};
+ return $col if $class->has_column($col);
}
sub __grouper {