From: André Walker <andre@andrewalker.net>
Date: Sun, 21 Aug 2011 00:24:38 +0000 (-0300)
Subject: made model, view, controller subs simpler
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a07a543ab6a09501459a36476a8280995b5356eb;hp=f76c40f0fe2e1c79215f6e9353b69fbda816824e;p=catagits%2FCatalyst-Runtime.git

made model, view, controller subs simpler
---

diff --git a/lib/Catalyst/IOC.pm b/lib/Catalyst/IOC.pm
index 8384566..3b12aa2 100644
--- a/lib/Catalyst/IOC.pm
+++ b/lib/Catalyst/IOC.pm
@@ -34,12 +34,15 @@ sub container (&) {
     };
 }
 
-sub model (&)      { _subcontainer( shift, (caller)[0], 'model' )      }
-sub view (&)       { _subcontainer( shift, (caller)[0], 'view' )       }
-sub controller (&) { _subcontainer( shift, (caller)[0], 'controller' ) }
+sub model (&)      { &_subcontainer }
+sub view (&)       { &_subcontainer }
+sub controller (&) { &_subcontainer }
 
-sub _subcontainer (&$$) {
-    my ( $code, $caller, $subcontainer ) = @_;
+sub _subcontainer {
+    my $code = shift;
+
+    my ( $caller, $f, $l, $subcontainer ) = caller(1);
+    $subcontainer =~ s/^Catalyst::IOC:://;
 
     no strict 'refs';
     local ${"${caller}::current_container"} =