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   SequenceTest
  11   Employee
  12   CD
  13   FileColumn
  14   Link
  15   Bookmark
  16   #dummy
  17   Track
  18   Tag
  19   /,
  20   { 'DBICTest::Schema' => [qw/
  21     LinerNotes
  22     OneKey
  23     #dummy
  24     TwoKeys
  25     Serialized
  26   /]},
  27   (
  28     'FourKeys',
  29     'FourKeys_to_TwoKeys',
  30     '#dummy',
  31     'SelfRef',
  32     'ArtistUndirectedMap',
  33     'ArtistSourceName',
  34     'ArtistSubclass',
  35     'Producer',
  36     'CD_to_Producer',
  37   ),
  38   qw/SelfRefAlias TreeLike TwoKeyTreeLike Event EventTZ NoPrimaryKey/,
  39   qw/Collection CollectionObject TypedObject/,
  40   qw/Owners BooksInLibrary/,
  41   qw/ForceForeign/,
  42   qw/LongColumns/,
  43 );
  44
  45 sub sqlt_deploy_hook {
  46   my ($self, $sqlt_schema) = @_;
  47
  48   $sqlt_schema->drop_table('link');
  49 }
  50
  51 1;