7 eval "use DBIx::Class::CDBICompat;";
8 plan $@ ? (skip_all => "Class::Trigger and DBIx::ContextualFetch required: $@")
18 Title => "Breaking the Waves",
19 Director => 'Lars von Trier',
23 my $film = Film->construct({
24 Title => "Breaking the Waves",
25 Director => 'Lars von Trier',
29 is $film->title, "Breaking the Waves";
30 is $film->director, "Lars von Trier";
31 is $film->rating, "R", "constructed objects can get missing data from the db";