1use strict; 2 3use Test::More; 4 5BEGIN { 6 eval "use DBIx::Class::CDBICompat;"; 7 plan $@ ? (skip_all => "Class::Trigger and DBIx::ContextualFetch required: $@") 8 : ('no_plan'); 9} 10 11 12{ 13 package Thing; 14 use base qw(DBIx::Class::CDBICompat); 15} 16 17{ 18 package Stuff; 19 use base qw(DBIx::Class::CDBICompat); 20} 21 22# There was a bug where looking at a column group before any were 23# set would cause them to be shared across classes. 24is_deeply [Stuff->columns("Essential")], []; 25Thing->columns(Essential => qw(foo bar baz)); 26is_deeply [Stuff->columns("Essential")], []; 27 281; 29