no need for throwing exception

[catagits/Catalyst-Runtime.git] / lib / Catalyst.pm

diff --git a/lib/Catalyst.pm b/lib/Catalyst.pm
index fad4c90..47e9134 100644 (file)
--- a/lib/Catalyst.pm
+++ b/lib/Catalyst.pm
@@ -142,6 +142,14 @@ sub MODIFY_CODE_ATTRIBUTES {
     );
 }
 
+sub BUILD {
+    my $self = shift;
+    my $class = ref $self;
+
+    return unless $class->setup_finished;
+
+    $self->container->_set_application($self);
+}
 
 sub _application { $_[0] }