4 use lib 't/cdbi/testlib';
7 sub Film::accessor_name_for {
8 my ($class, $col) = @_;
9 return "sheep" if lc $col eq "numexplodingsheep";
15 Director => 'Peter Jackson',
23 ok $bt = Film->insert($data), "Modified accessor - with
27 is $@, '', "No errors";
30 ok $bt->sheep(2), 'Modified accessor, set';
31 ok $bt->update, 'Update';
33 is $@, '', "No errors";