1 package # hide from PAUSE
8 use base 'DBIx::Class::Schema';
10 use DBICTest::Util qw/populate_weakregistry assert_empty_weakregistry/;
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 EventTZ 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');
68 my $weak_registry = {};
71 my $self = shift->next::method(@_);
72 populate_weakregistry ( $weak_registry, $self )
73 if $INC{'Test/Builder.pm'};
78 my $self = shift->next::method(@_);
79 populate_weakregistry ( $weak_registry, $self->storage )
80 if $INC{'Test/Builder.pm'};
85 assert_empty_weakregistry($weak_registry, 'quiet');