X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FCore.pm;h=99e1624f39d0a933858a2b665cd1cc64e584ab8c;hb=416e0bc0624a788f9e6389790b5beb20ced77a43;hp=a3fb44e45c7a93094668b4aac7df4a0320c10350;hpb=b28cc0ba2d1d443728c9cb48d97e5a2cdccf8cb4;p=dbsrgits%2FDBIx-Class.git

diff --git a/lib/DBIx/Class/Core.pm b/lib/DBIx/Class/Core.pm
index a3fb44e..99e1624 100644
--- a/lib/DBIx/Class/Core.pm
+++ b/lib/DBIx/Class/Core.pm
@@ -2,40 +2,58 @@ package DBIx::Class::Core;
 
 use strict;
 use warnings;
+no warnings 'qw';
 
-use base qw/DBIx::Class::Relationship::Accessor
-            DBIx::Class::Relationship::CascadeActions
-            DBIx::Class::Relationship::ProxyMethods
-            DBIx::Class::Relationship
-            DBIx::Class::InflateColumn
-            DBIx::Class::SQL::OrderBy
-            DBIx::Class::SQL::Abstract
-            DBIx::Class::PK
-            DBIx::Class::Table
-            DBIx::Class::SQL
-            DBIx::Class::DB
-            DBIx::Class::Exception
-            DBIx::Class::AccessorGroup/;
+use base qw/DBIx::Class/;
+
+__PACKAGE__->load_components(qw/
+  Relationship
+  InflateColumn
+  PK::Auto
+  PK
+  Row
+  ResultSourceProxy::Table/);
 
 1;
 
-=head1 NAME 
+=head1 NAME
+
+DBIx::Class::Core - Core set of DBIx::Class modules
+
+=head1 SYNOPSIS
 
-DBIx::Class::Core - Core set of DBIx::Class modules.
+  # In your result (table) classes
+  use base 'DBIx::Class::Core';
 
 =head1 DESCRIPTION
 
-This class just inherits from the various modules that makes 
-up the Class::DBI  core features.
+This class just inherits from the various modules that make up the
+L<DBIx::Class> core features.  You almost certainly want these.
+
+The core modules currently are:
+
+=over 4
+
+=item L<DBIx::Class::InflateColumn>
 
+=item L<DBIx::Class::Relationship>
+
+=item L<DBIx::Class::PK::Auto>
+
+=item L<DBIx::Class::PK>
+
+=item L<DBIx::Class::Row>
+
+=item L<DBIx::Class::ResultSourceProxy::Table>
+
+=back
 
 =head1 AUTHORS
 
-Matt S. Trout <perl-stuff@trout.me.uk>
+Matt S. Trout <mst@shadowcatsystems.co.uk>
 
 =head1 LICENSE
 
 You may distribute this code under the same terms as Perl itself.
 
 =cut
-