t/dbicadmin-test-include/lib/Foo.pm

   1 package Foo;
   2 use base 'DBIx::Class::Schema';
   3
   4 our $loaded = 1;
   5 our $deploy = 0;
   6 sub connect { bless {}, 'Foo' }
   7 sub deploy {$deploy = 1}
   8
   9 1;