1 BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
2 use DBIx::Class::Optional::Dependencies -skip_all_without => 'cdbicompat';
9 use lib 't/cdbi/testlib';
14 Title => "Breaking the Waves",
15 Director => 'Lars von Trier',
19 my $film = Film->construct({
20 Title => "Breaking the Waves",
21 Director => 'Lars von Trier',
25 is $film->title, "Breaking the Waves";
26 is $film->director, "Lars von Trier";
27 is $film->rating, "R",
28 "constructed objects can get missing data from the db";
34 Foo->columns( TEMP => qw(temp_thing) );
35 my $film = Foo->construct({
39 ::is $film->temp_thing, 23, "construct sets temp columns";