From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

package # hide from PAUSE
DBICTest::Schema;
no warnings qw/qw/;
__PACKAGE__->load_classes(qw/
Artist
SequenceTest
Employee
CD
FileColumn
Link
Bookmark
#dummy
Track
Tag
/,
{ 'DBICTest::Schema' => [qw/
LinerNotes
OneKey
#dummy
TwoKeys
Serialized
/]},
(
'FourKeys',
'FourKeys_to_TwoKeys',
'#dummy',
'SelfRef',
'ArtistUndirectedMap',
'ArtistSourceName',
'ArtistSubclass',
'Producer',
'CD_to_Producer',
),
qw/SelfRefAlias TreeLike TwoKeyTreeLike Event EventTZ NoPrimaryKey/,
qw/Collection CollectionObject TypedObject/,
qw/Owners BooksInLibrary/,
qw/ForceForeign/,
qw/LongColumns/,
);
sub sqlt_deploy_hook {
my ($self, $sqlt_schema) = @_;
$sqlt_schema->drop_table('dummy');
}
1;