1 use DBIx::Class::Optional::Dependencies -skip_all_without => 'cdbicompat';
8 use lib 't/cdbi/testlib';
11 sub Film::accessor_name_for {
12 my ($class, $col) = @_;
13 return "sheep" if lc $col eq "numexplodingsheep";
19 Director => 'Peter Jackson',
27 ok $bt = Film->insert($data), "Modified accessor - with
31 is $@, '', "No errors";
34 ok $bt->sheep(2), 'Modified accessor, set';
35 ok $bt->update, 'Update';
37 is $@, '', "No errors";