t/lib/DBICTest/Schema.pm

   1 package # hide from PAUSE
   2     DBICTest::Schema;
   3
   4 use base qw/DBIx::Class::Schema/;
   5
   6 no warnings qw/qw/;
   7
   8 __PACKAGE__->load_classes(qw/
   9   Artist
  10   Employee
  11   CD
  12   FileColumn
  13   Link
  14   Bookmark
  15   #dummy
  16   Track
  17   Tag
  18   /,
  19   { 'DBICTest::Schema' => [qw/
  20     LinerNotes
  21     OneKey
  22     #dummy
  23     TwoKeys
  24     Serialized
  25   /]},
  26   (
  27     'FourKeys',
  28     'FourKeys_to_TwoKeys',
  29     '#dummy',
  30     'SelfRef',
  31     'ArtistUndirectedMap',
  32     'ArtistSourceName',
  33     'ArtistSubclass',
  34     'Producer',
  35     'CD_to_Producer',
  36     'Dummy',
  37   ),
  38   qw/SelfRefAlias TreeLike TwoKeyTreeLike Event EventTZ NoPrimaryKey/,
  39   qw/Collection CollectionObject TypedObject/,
  40   qw/Owners BooksInLibrary/,
  41   qw/ForceForeign/
  42 );
  43
  44 sub sqlt_deploy_hook {
  45   my ($self, $sqlt_schema) = @_;
  46
  47   $sqlt_schema->drop_table('dummy');
  48 }
  49
  50 1;