X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FCatalyst.pm;h=fc2b117f0807634883795d522707bbba1b95a5f2;hb=03367b932b6363670290cde6a68e38a1da67d23d;hp=749d1777a94d961deab269c5ffdade3f3a9dedd3;hpb=3f5483b01e398279b55e4d0cf5d92e690cb1c98b;p=catagits%2FCatalyst-Runtime.git

diff --git a/lib/Catalyst.pm b/lib/Catalyst.pm
index 749d177..fc2b117 100644
--- a/lib/Catalyst.pm
+++ b/lib/Catalyst.pm
@@ -565,21 +565,27 @@ sub controller {
             return $container->resolve(service => $name, parameters => { context => [ $c, @args ] } )
                 if $container->has_service($name);
         }
-        elsif ( ref $name eq 'Regexp' ) {
-            my @comps = $container->get_service_list;
-            my @result;
-            for (@comps) {
-                push @result, $container->resolve( service => $_, parameters => { context => [ $c, @args ] } )
-                    if m/$name/;
+
+        return
+            if $c->config->{disable_component_resolution_regex_fallback} && !ref $name;
+
+        my @comps = $container->get_service_list;
+        my @result;
+        for (@comps) {
+            push @result, $container->resolve( service => $_, parameters => { context => [ $c, @args ] } )
+                if m/$name/;
+        }
+
+        if (@result) {
+            if (!ref $name) {
+                $c->log->warn( Carp::shortmess(qq(Found results for "${name}" using regexp fallback)) );
+                $c->log->warn( 'Relying on the regexp fallback behavior for component resolution' );
+                $c->log->warn( 'is unreliable and unsafe. You have been warned' );
             }
+
             return @result;
         }
-        else {
-            my $short_name = ref $name;
-            $short_name =~ s/^${appclass}::(C|Controller)//;
-            return $container->resolve( service => $short_name, parameters => { context => [ $c, @args ] } )
-                if $container->has_service($short_name);
-        }
+
         return;
     }
 
@@ -613,25 +619,30 @@ sub model {
     my $container = $c->container->get_sub_container('model');
 
     if( $name ) {
-        if ( !ref $name ) { # Direct component hash lookup to avoid costly regexps
-            return $container->resolve( service => $name, parameters => { context => [ $c, @args ] } )
-                if $container->has_service($name);
+        if ( !ref $name && $container->has_service($name)) { # Direct component hash lookup to avoid costly regexps
+            return $container->resolve( service => $name, parameters => { context => [ $c, @args ] } );
+        }
+
+        return
+            if $c->config->{disable_component_resolution_regex_fallback} && !ref $name;
+
+        my @comps = $container->get_service_list;
+        my @result;
+        for (@comps) {
+            push @result, $container->resolve( service => $_, parameters => { context => [ $c, @args ] } )
+                if m/$name/;
         }
-        elsif ( ref $name eq 'Regexp' ) {
-            my @comps = $container->get_service_list;
-            my @result;
-            for (@comps) {
-                push @result, $container->resolve( service => $_, parameters => { context => [ $c, @args ] } )
-                    if m/$name/;
+
+        if (@result) {
+            if (!ref $name) {
+                $c->log->warn( Carp::shortmess(qq(Found results for "${name}" using regexp fallback)) );
+                $c->log->warn( 'Relying on the regexp fallback behavior for component resolution' );
+                $c->log->warn( 'is unreliable and unsafe. You have been warned' );
             }
+
             return @result;
         }
-        else {
-            my $short_name = ref $name;
-            $short_name =~ s/^${appclass}::(M|Model)//;
-            return $container->resolve( service => $short_name, parameters => { context => [ $c, @args ] } )
-                if $container->has_service($short_name);
-        }
+
         return;
     }
 
@@ -694,21 +705,26 @@ sub view {
                 $c->log->warn( "Attempted to use view '$name', but does not exist" );
             }
         }
-        elsif ( ref $name eq 'Regexp' ) {
-            my @comps = $container->get_service_list;
-            my @result;
-            for (@comps) {
-                push @result, $container->resolve( service => $_, parameters => { context => [ $c, @args ] } )
-                    if m/$name/;
+
+        return
+            if $c->config->{disable_component_resolution_regex_fallback} && !ref $name;
+
+        my @comps = $container->get_service_list;
+        my @result;
+        for (@comps) {
+            push @result, $container->resolve( service => $_, parameters => { context => [ $c, @args ] } )
+                if m/$name/;
+        }
+
+        if (@result) {
+            if (!ref $name) {
+                $c->log->warn( Carp::shortmess(qq(Found results for "${name}" using regexp fallback)) );
+                $c->log->warn( 'Relying on the regexp fallback behavior for component resolution' );
+                $c->log->warn( 'is unreliable and unsafe. You have been warned' );
             }
+
             return @result;
         }
-        else {
-            my $short_name = ref $name;
-            $short_name =~ s/^${appclass}::(V|View)//;
-            return $container->resolve( service => $short_name, parameters => { context => [ $c, @args ] } )
-                if $container->has_service($short_name);
-        }
 
         return;
     }