From: Marcus Ramberg <mramberg@cpan.org>
Date: Mon, 3 Jul 2006 09:40:51 +0000 (+0000)
Subject: more verbose error reporting.
X-Git-Tag: v0.16~2
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=bfcd6e3dec03d5ae54958ccb9c269c4c7b2e378b;hp=202d09c88f8feb276bef178f8f35bb543a2ff65c;p=catagits%2FCatalyst-Model-DBIC-Schema.git

more verbose error reporting.
---

diff --git a/Changes b/Changes
index f1ac0cf..98665db 100644
--- a/Changes
+++ b/Changes
@@ -1,5 +1,7 @@
 Revision history for Perl extension Catalyst::Model::DBIC::Schema
 
+	- Be more verbose when connection_info is not set.
+
 0.15  Tue Jun  6 01:33:57 UTC 2006
         - Fixed a serious bug in create=static usage
         - Re-arranged output generation so that the more likely
diff --git a/lib/Catalyst/Model/DBIC/Schema.pm b/lib/Catalyst/Model/DBIC/Schema.pm
index 320cb29..402ef3c 100644
--- a/lib/Catalyst/Model/DBIC/Schema.pm
+++ b/lib/Catalyst/Model/DBIC/Schema.pm
@@ -5,6 +5,7 @@ use base qw/Catalyst::Model Class::Accessor::Fast Class::Data::Accessor/;
 use NEXT;
 use UNIVERSAL::require;
 use Carp;
+use Data::Dumper;
 require DBIx::Class;
 
 our $VERSION = '0.15';
@@ -277,7 +278,9 @@ sub new {
         }
         else {
             croak "Either ->config->{connect_info} must be defined for $class"
-                  . " or $schema_class must have connect info defined on it";
+                  . " or $schema_class must have connect info defined on it"
+		  . "Here's what we got:\n"
+		  . Dumper($self);
         }
     }