1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
|
package # hide from PAUSE
DBICTest::Schema;
use base qw/DBIx::Class::Schema/;
no warnings qw/qw/;
__PACKAGE__->load_classes(qw/
Artist
SequenceTest
Employee
CD
FileColumn
Genre
Link
Bookmark
#dummy
Track
Tag
/,
{ 'DBICTest::Schema' => [qw/
LinerNotes
Artwork
Artwork_to_Artist
Image
Lyrics
LyricVersion
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 Owners BooksInLibrary/,
qw/ForceForeign/,
);
sub sqlt_deploy_hook {
my ($self, $sqlt_schema) = @_;
$sqlt_schema->drop_table('dummy');
}
1;
|
