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   Demographic
  15   FileColumn
  16   Genre
  17   Link
  18   Bookmark
  19   #dummy
  20   Track
  21   Tag
  22   Year2000CDs
  23   Year1999CDs
  24   /,
  25   { 'DBICTest::Schema' => [qw/
  26     LinerNotes
  27     Artwork
  28     Artwork_to_Artist
  29     Image
  30     Lyrics
  31     LyricVersion
  32     OneKey
  33     #dummy
  34     TwoKeys
  35     Serialized
  36   /]},
  37   (
  38     'FourKeys',
  39     'FourKeys_to_TwoKeys',
  40     '#dummy',
  41     'SelfRef',
  42     'ArtistUndirectedMap',
  43     'ArtistSourceName',
  44     'ArtistSubclass',
  45     'Producer',
  46     'CD_to_Producer',
  47     'Dummy',    # this is a real result class we remove in the hook below
  48   ),
  49   qw/SelfRefAlias TreeLike TwoKeyTreeLike Event EventTZ NoPrimaryKey/,
  50   qw/Collection CollectionObject TypedObject Owners BooksInLibrary/,
  51   qw/ForceForeign Encoded/,
  52 );
  53
  54 sub sqlt_deploy_hook {
  55   my ($self, $sqlt_schema) = @_;
  56
  57   $sqlt_schema->drop_table('dummy');
  58 }
  59
  60 1;