1 BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
2 use DBIx::Class::Optional::Dependencies -skip_all_without => 'cdbicompat';
9 use lib 't/cdbi/testlib';
12 sub Film::accessor_name_for {
13 my ($class, $col) = @_;
14 return "sheep" if lc $col eq "numexplodingsheep";
20 Director => 'Peter Jackson',
28 ok $bt = Film->insert($data), "Modified accessor - with
32 is $@, '', "No errors";
35 ok $bt->sheep(2), 'Modified accessor, set';
36 ok $bt->update, 'Update';
38 is $@, '', "No errors";