5 eval "use DBIx::Class::CDBICompat;";
6 plan skip_all => "Class::Trigger and DBIx::ContextualFetch required: $@"
11 eval "use DBD::SQLite";
13 ? (skip_all => 'needs DBD::SQLite for testing')
20 sub Film::accessor_name_for {
21 my ($class, $col) = @_;
22 return "sheep" if lc $col eq "numexplodingsheep";
28 Director => 'Peter Jackson',
36 ok $bt = Film->insert($data), "Modified accessor - with
40 is $@, '', "No errors";
43 ok $bt->sheep(2), 'Modified accessor, set';
44 ok $bt->update, 'Update';
46 is $@, '', "No errors";