my $source = $class->result_source_instance;
$source->add_columns(@cols);
foreach my $c (grep { !ref } @cols) {
+ # If this is an augment definition get the real colname.
+ $c =~ s/^\+//;
+
$class->register_column($c => $source->column_info($c));
}
}
-*add_column = \&add_columns;
+sub add_column {
+ shift->add_columns(@_);
+}
sub has_column {
shift->result_source_instance->has_column(@_);
shift->result_source_instance->primary_columns(@_);
}
+sub _pri_cols {
+ shift->result_source_instance->_pri_cols(@_);
+}
+
sub add_unique_constraint {
shift->result_source_instance->add_unique_constraint(@_);
}
shift->result_source_instance->relationship_info(@_);
}
-sub add_index {
- shift->result_source_instance->add_index(@_);
+sub has_relationship {
+ shift->result_source_instance->has_relationship(@_);
}
-
-sub indices {
- shift->result_source_instance->indices(@_);
-}
-
1;