X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Flib%2FDBICTest%2FSchema.pm;h=1b436f6336d83a6f8cdad558a2628911f56bd2cd;hb=7b87b77c04e07cfea1103dba8ecbd3f219e949d2;hp=a35d54e879380bbd25c56a8d776f849ad57b3488;hpb=0e80c4ca9995674bcc86bc59780b940ce20c48d2;p=dbsrgits%2FDBIx-Class.git diff --git a/t/lib/DBICTest/Schema.pm b/t/lib/DBICTest/Schema.pm index a35d54e..1b436f6 100644 --- a/t/lib/DBICTest/Schema.pm +++ b/t/lib/DBICTest/Schema.pm @@ -1,9 +1,16 @@ 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 @@ -11,17 +18,22 @@ __PACKAGE__->load_classes(qw/ BindType Employee CD - FileColumn Genre - Link Bookmark + Link #dummy Track Tag + Year2000CDs + Year1999CDs + CustomSql + Money + TimestampPrimaryKey /, { 'DBICTest::Schema' => [qw/ LinerNotes Artwork + Artwork_to_Artist Image Lyrics LyricVersion @@ -42,7 +54,7 @@ __PACKAGE__->load_classes(qw/ '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/, );