|
package
DBICTest::Schema;
no warnings 'qw' ;
__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' ,
),
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;
|