5 use lib 't/cdbi/testlib';
11 Title => "Breaking the Waves",
12 Director => 'Lars von Trier',
16 my $film = Film->construct({
17 Title => "Breaking the Waves",
18 Director => 'Lars von Trier',
22 is $film->title, "Breaking the Waves";
23 is $film->director, "Lars von Trier";
24 is $film->rating, "R",
25 "constructed objects can get missing data from the db";
31 Foo->columns( TEMP => qw(temp_thing) );
32 my $film = Foo->construct({
36 ::is $film->temp_thing, 23, "construct sets temp columns";