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