The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
package TestSchema::Result::Bar;

use DBIx::Class::Candy
   -base => 'ParentSchema::Result::Bar',
   -components => [qw(
      Helper::Row::ToJSON
      Helper::Row::SubClass
      Helper::Row::OnColumnChange
      Helper::Row::SelfResultSet
      Helper::Row::CleanResultSet
    )];

__PACKAGE__->mk_group_accessors(inherited => 'on_column_change_allow_override_args');
our @events;

subclass;

before_column_change(foo_id => {
   method => 'before_foo_id',
});


sub before_foo_id { push @events, [before_foo_id => $_[1], $_[2]] }

1;