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