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
56
57
58
59
60
61
62
63
64
65
|
package # hide from PAUSE
DBICTest::Schema;
use strict;
use warnings;
no warnings 'qw';
use base 'DBICTest::BaseSchema';
__PACKAGE__->mk_group_accessors(simple => 'custom_attr');
__PACKAGE__->load_classes(qw/
Artist
SequenceTest
BindType
Employee
CD
Genre
Bookmark
Link
#dummy
Track
Tag
Year2000CDs
Year1999CDs
CustomSql
Money
TimestampPrimaryKey
/,
{ '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',
'Dummy', # this is a real result class we remove in the hook below
),
qw/SelfRefAlias TreeLike TwoKeyTreeLike Event EventTZ NoPrimaryKey/,
qw/Collection CollectionObject TypedObject Owners BooksInLibrary/,
qw/ForceForeign Encoded/,
);
sub sqlt_deploy_hook {
my ($self, $sqlt_schema) = @_;
$sqlt_schema->drop_table('dummy');
}
1;
|
