5 eval "use DBIx::Class::CDBICompat;";
6 plan skip_all => "Class::Trigger and DBIx::ContextualFetch required: $@"
11 use lib 't/cdbi/testlib';
14 sub Film::accessor_name_for {
15 my ($class, $col) = @_;
16 return "sheep" if lc $col eq "numexplodingsheep";
22 Director => 'Peter Jackson',
30 ok $bt = Film->insert($data), "Modified accessor - with
34 is $@, '', "No errors";
37 ok $bt->sheep(2), 'Modified accessor, set';
38 ok $bt->update, 'Update';
40 is $@, '', "No errors";