sub get_columns {
my $self = shift;
- return return %{$self->{_column_data}};
+ return %{$self->{_column_data}};
}
=head2 get_dirty_columns
Accessor to the ResultSource this object was created from
+=head2 register_column($column, $column_info)
+
+ Registers a column on the class and creates an accessor for it
+
=cut
+sub register_column {
+ my ($class, $col, $info) = @_;
+ $class->mk_group_accessors('column' => $col);
+}
+
1;
=head1 AUTHORS