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