7 eval "use DBIx::Class::CDBICompat;";
8 plan $@ ? (skip_all => "Class::Trigger and DBIx::ContextualFetch required: $@")
19 Title => "Breaking the Waves",
20 Director => 'Lars von Trier',
24 my $film = Film->construct({
25 Title => "Breaking the Waves",
26 Director => 'Lars von Trier',
30 is $film->title, "Breaking the Waves";
31 is $film->director, "Lars von Trier";
32 is $film->rating, "R",
33 "constructed objects can get missing data from the db";
39 Foo->columns( TEMP => qw(temp_thing) );
40 my $film = Foo->construct({
44 ::is $film->temp_thing, 23, "construct sets temp columns";