X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FCDBICompat.pm;h=0dddff300585f18cf2fbd84a2685529a0553e1f4;hb=9859bf7a4ab106f41a4373d8910a84f820e2fcf8;hp=ec063a90409bbdf0599b944c77f475fbd3bae694;hpb=118edec6adaf70e29f6dd2ab231b52617f54d18e;p=dbsrgits%2FDBIx-Class.git diff --git a/lib/DBIx/Class/CDBICompat.pm b/lib/DBIx/Class/CDBICompat.pm index ec063a9..0dddff3 100644 --- a/lib/DBIx/Class/CDBICompat.pm +++ b/lib/DBIx/Class/CDBICompat.pm @@ -3,7 +3,6 @@ package DBIx::Class::CDBICompat; use strict; use warnings; use base qw/DBIx::Class::Core DBIx::Class::DB/; -use Carp::Clan qw/^DBIx::Class/; # Modules CDBICompat needs that DBIx::Class does not. my @Extra_Modules = qw( @@ -11,12 +10,12 @@ my @Extra_Modules = qw( DBIx::ContextualFetch Clone ); - + my @didnt_load; for my $module (@Extra_Modules) { push @didnt_load, $module unless eval qq{require $module}; } -croak("@{[ join ', ', @didnt_load ]} are missing and are required for CDBICompat") +__PACKAGE__->throw_exception("@{[ join ', ', @didnt_load ]} are missing and are required for CDBICompat") if @didnt_load; @@ -91,7 +90,7 @@ This plugin will work, but it is more efficiently done using DBIC's native searc =head2 Choosing Features -In fact, this class is just a receipe containing all the features emulated. +In fact, this class is just a recipe containing all the features emulated. If you like, you can choose which features to emulate by building your own class and loading it like this: @@ -145,17 +144,17 @@ The semi-documented Class::DBI::Relationship objects returned by Ctable("foo"); Foo->columns( All => qw(this that bar) ); package Bar; use base qw(Class::DBI); - + Bar->table("bar"); Bar->columns( All => qw(up down) );