use strict;
use warnings;
-use base qw/DBIx::Class/;
+use base 'DBIx::Class';
sub _register_column_group {
my ($class, $group, @cols) = @_;
sub add_columns {
my ($class, @cols) = @_;
- return $class->result_source_instance->add_columns(map lc, @cols);
+ return $class->result_source->add_columns(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;
}
sub has_many {
my ($class, $rel, $f_class, $f_key, @rest) = @_;
- return $class->next::method($rel, $f_class, ( ref($f_key) ?
- $f_key :
- lc($f_key) ), @rest);
+ return $class->next::method(
+ $rel,
+ $f_class,
+ (ref($f_key) ?
+ $f_key :
+ lc($f_key||'')
+ ),
+ @rest
+ );
}
sub get_inflated_column {