X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Flib%2FDBICTest%2FSchema.pm;h=1b436f6336d83a6f8cdad558a2628911f56bd2cd;hb=b83736a7d3235d2f50fe5695550eb3637432d960;hp=6f5169c524dfaa01ae58a76054bdbc3398f9ca8c;hpb=90489c23e598723752c9e0d4b4da214ad05e3feb;p=dbsrgits%2FDBIx-Class-Historic.git diff --git a/t/lib/DBICTest/Schema.pm b/t/lib/DBICTest/Schema.pm index 6f5169c..1b436f6 100644 --- a/t/lib/DBICTest/Schema.pm +++ b/t/lib/DBICTest/Schema.pm @@ -1,21 +1,26 @@ 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 SequenceTest BindType - BindType2 Employee CD - FileColumn Genre - Link Bookmark + Link #dummy Track Tag @@ -23,6 +28,7 @@ __PACKAGE__->load_classes(qw/ Year1999CDs CustomSql Money + TimestampPrimaryKey /, { 'DBICTest::Schema' => [qw/ LinerNotes @@ -48,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/, );