From: Tomas Doran <bobtfish@bobtfish.net>
Date: Wed, 15 Apr 2009 14:02:41 +0000 (+0000)
Subject: And print the value.
X-Git-Tag: 5.80001~17
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=commitdiff_plain;h=637fa644594cb802541d1d2f859a9291a7f61f54

And print the value.
---

diff --git a/lib/Catalyst.pm b/lib/Catalyst.pm
index 284f815..6d860bb 100644
--- a/lib/Catalyst.pm
+++ b/lib/Catalyst.pm
@@ -2185,9 +2185,10 @@ sub setup_component {
         my $metaclass = Moose::Util::find_meta($component);
         my $method_meta = $metaclass->find_method_by_name('COMPONENT');
         my $component_method_from = $method_meta->associated_metaclass->name;
+        my $value = defined($instance) ? $instance : 'undef';
         Catalyst::Exception->throw(
             message =>
-            qq/Couldn't instantiate component "$component", COMPONENT() method (from $component_method_from) didn't return an object-like value./
+            qq/Couldn't instantiate component "$component", COMPONENT() method (from $component_method_from) didn't return an object-like value (value was $value)./
         );
     }
     return $instance;