X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FCDBICompat.pm;h=874c4c772576b66750599d489c224f9530a7841c;hb=75d079145a507a0e5ff89b2676d383f4fd1a5511;hp=08bc7c96087d844f519fc1f7aa725416ceb6ebab;hpb=15fe6346d3458b5127c743409c5407e0dbc3931b;p=dbsrgits%2FDBIx-Class.git diff --git a/lib/DBIx/Class/CDBICompat.pm b/lib/DBIx/Class/CDBICompat.pm index 08bc7c9..874c4c7 100644 --- a/lib/DBIx/Class/CDBICompat.pm +++ b/lib/DBIx/Class/CDBICompat.pm @@ -2,7 +2,14 @@ package DBIx::Class::CDBICompat; use strict; use warnings; -use base qw/DBIx::Class/; +use base qw/DBIx::Class::Core DBIx::Class::DB/; +use Carp::Clan qw/^DBIx::Class/; + +eval { + require Class::Trigger; + require DBIx::ContextualFetch; +}; +croak "Class::Trigger and DBIx::ContextualFetch is required for CDBICompat" if $@; __PACKAGE__->load_own_components(qw/ Constraints @@ -16,22 +23,23 @@ __PACKAGE__->load_own_components(qw/ Constructor AccessorMapping ColumnCase - MightHave - HasMany HasA + HasMany + MightHave LazyLoading AutoUpdate TempColumns Retrieve + Pager ColumnGroups ImaDBI/); #DBIx::Class::ObjIndexStubs 1; -=head1 NAME +=head1 NAME -DBIx::Class::CDBICompat - Class::DBI Compatability layer. +DBIx::Class::CDBICompat - Class::DBI Compatibility layer. =head1 SYNOPSIS @@ -40,15 +48,15 @@ DBIx::Class::CDBICompat - Class::DBI Compatability layer. =head1 DESCRIPTION -DBIx::Class features a fully featured compability layer with L +DBIx::Class features a fully featured compatibility layer with L to ease transition for existing CDBI users. In fact, this class is just a receipe containing all the features emulated. If you like, you can choose -which features to emulate by building your own class and loading it like +which features to emulate by building your own class and loading it like this: __PACKAGE__->load_own_components(qw/CDBICompat/); -this will automatically load the features included in My::DB::CDBICompat, +this will automatically load the features included in My::DB::CDBICompat, provided it looks something like this: package My::DB::CDBICompat; @@ -60,7 +68,7 @@ provided it looks something like this: CDBICompat::MightHave /); -=head1 Components +=head1 COMPONENTS =over 4 @@ -86,12 +94,8 @@ Allows you to turn on automatic updates for column values. =item HasA -Responsible for HasA relationships. - =item HasMany -Responsible for HasMany relationships. - =item ImaDBI =item LazyLoading @@ -99,12 +103,10 @@ Responsible for HasMany relationships. =item LiveObjectIndex The live object index tries to ensure there is only one version of a object -in the perl interprenter. +in the perl interpreter. =item MightHave -Responsible for MightHave relationships. - =item ObjIndexStubs =item ReadOnly @@ -117,13 +119,10 @@ Responsible for MightHave relationships. =item Triggers -This class implements the trigger functionality. - =item PassThrough =back - =head1 AUTHORS Matt S. Trout