package # hide from PAUSE
DBICTest::Schema;
-use base qw/DBIx::Class::Schema/;
+# load early so that `perl -It/lib -MDBICTest::Schema` keeps working
+use ANFANG;
-no warnings qw/qw/;
+use strict;
+use warnings;
+no warnings 'qw';
+
+use base 'DBICTest::BaseSchema';
+
+__PACKAGE__->mk_group_accessors(simple => 'custom_attr');
__PACKAGE__->load_classes(qw/
Artist
BindType
Employee
CD
- FileColumn
Genre
- Link
Bookmark
+ Link
#dummy
Track
Tag
Year2000CDs
Year1999CDs
CustomSql
+ Money
+ TimestampPrimaryKey
/,
{ 'DBICTest::Schema' => [qw/
LinerNotes
'CD_to_Producer',
'Dummy', # this is a real result class we remove in the hook below
),
- qw/SelfRefAlias TreeLike TwoKeyTreeLike Event EventTZ NoPrimaryKey/,
+ qw/SelfRefAlias TreeLike TwoKeyTreeLike Event NoPrimaryKey/,
qw/Collection CollectionObject TypedObject Owners BooksInLibrary/,
qw/ForceForeign Encoded/,
);