use strict;
use warnings;
-
+use Sub::Name ();
use Storable 'dclone';
use base qw/DBIx::Class::Row/;
sub _add_column_group {
my ($class, $group, @cols) = @_;
+ $class->mk_group_accessors(column => @cols);
$class->add_columns(@cols);
$class->_register_column_group($group => @cols);
}
+sub add_columns {
+ my ($class, @cols) = @_;
+ $class->result_source_instance->add_columns(@cols);
+}
+
sub _register_column_group {
my ($class, $group, @cols) = @_;
{
no strict 'refs';
no warnings 'redefine';
- *{$class .'::'. $name} = $accessor;
+ my $fullname = join '::', $class, $name;
+ *$fullname = Sub::Name::subname $fullname, $accessor;
}
$our_accessors{$accessor}++;
return map { $class->find_column($_) } @col;
}
-package DBIx::Class::CDBICompat::ColumnGroups::GrouperShim;
+package # hide from PAUSE (should be harmless, no POD no Version)
+ DBIx::Class::CDBICompat::ColumnGroups::GrouperShim;
sub groups_for {
my ($self, @cols) = @_;
}
return keys %groups;
}
-
1;