From: André Walker <andre@andrewalker.net>
Date: Mon, 11 Jul 2011 23:33:03 +0000 (-0300)
Subject: created default_component writer
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=commitdiff_plain;h=5be6c1d8aa115905e3217fa220c903e950021abc

created default_component writer
---

diff --git a/lib/Catalyst/IOC/SubContainer.pm b/lib/Catalyst/IOC/SubContainer.pm
index 8ebbceb..afa8e3f 100644
--- a/lib/Catalyst/IOC/SubContainer.pm
+++ b/lib/Catalyst/IOC/SubContainer.pm
@@ -9,6 +9,7 @@ has default_component => (
     isa => 'Str|Undef',
     is  => 'ro',
     required => 0,
+    writer   => '_set_default_component',
 );
 
 sub get_component {
@@ -36,7 +37,7 @@ sub make_single_default {
 
     my @complist = $self->get_service_list;
 
-    $self->default_component( shift @complist )
+    $self->_set_default_component( shift @complist )
         if !$self->default_component && scalar @complist == 1;
 }