1 package # hide from PAUSE
4 # load early so that `perl -It/lib -MDBICTest::Schema` keeps working
11 use base 'DBICTest::BaseSchema';
13 __PACKAGE__->mk_group_accessors(simple => 'custom_attr');
15 __PACKAGE__->load_classes(qw/
33 { 'DBICTest::Schema' => [qw/
47 'FourKeys_to_TwoKeys',
50 'ArtistUndirectedMap',
55 'Dummy', # this is a real result class we remove in the hook below
57 qw/SelfRefAlias TreeLike TwoKeyTreeLike Event NoPrimaryKey/,
58 qw/Collection CollectionObject TypedObject Owners BooksInLibrary/,
59 qw/ForceForeign Encoded/,
62 sub sqlt_deploy_hook {
63 my ($self, $sqlt_schema) = @_;
65 $sqlt_schema->drop_table('dummy');