5 eval "use DBD::SQLite";
7 ? (skip_all => 'needs DBD::SQLite for testing')
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";