7 eval "use DBIx::Class::CDBICompat;";
8 plan $@ ? (skip_all => "Class::Trigger and DBIx::ContextualFetch required: $@")
19 local $SIG{__WARN__} = sub { push @warnings, @_; };
21 # Test that this doesn't cause infinite recursion.
23 local *Film::DESTROY = sub { $_[0]->discard_changes };
25 my $film = Film->insert({ Title => "Eegah!" });
26 $film->director("Arch Hall Sr.");
28 is_deeply \@warnings, [];