use strict;
use warnings;
-use base qw/DBIx::Class/;
-
sub _register_column_group {
my ($class, $group, @cols) = @_;
return $class->next::method($group => map lc, @cols);
sub has_a {
my($self, $col, @rest) = @_;
-
+
$self->_declare_has_a(lc $col, @rest);
$self->_mk_inflated_column_accessor($col);
-
+
return 1;
}