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