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