use strict;
use Test::More;
-BEGIN {
- eval "use DBIx::Class::CDBICompat;";
- if ($@) {
- plan (skip_all => 'Class::Trigger and DBIx::ContextualFetch required');
- next;
- }
- plan tests => 13;
-}
-
use lib 't/cdbi/testlib';
use Film;
ok $ver->delete, "Delete";
{
- Film->add_trigger(before_create => sub {
+ Film->add_trigger(before_create => sub {
my $self = shift;
ok !$self->_attribute_exists('title'), "PK doesn't auto-vivify";
});
Film->create({director => "Me"});
}
+
+done_testing;