1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
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;
|
