[Catalyst-commits] r10645 - in Catalyst-Runtime/5.80/branches/index_default_fuckage/lib/Catalyst: . DispatchType

[caelum at dev.catalyst.perl.org]

Author: caelum
Date: 2009-06-25 00:41:38 +0000 (Thu, 25 Jun 2009)
New Revision: 10645

Modified:
   Catalyst-Runtime/5.80/branches/index_default_fuckage/lib/Catalyst/DispatchType.pm
   Catalyst-Runtime/5.80/branches/index_default_fuckage/lib/Catalyst/DispatchType/Default.pm
   Catalyst-Runtime/5.80/branches/index_default_fuckage/lib/Catalyst/DispatchType/Index.pm
   Catalyst-Runtime/5.80/branches/index_default_fuckage/lib/Catalyst/Dispatcher.pm
Log:
add C::DispatchType::_is_low_precedence

Modified: Catalyst-Runtime/5.80/branches/index_default_fuckage/lib/Catalyst/DispatchType/Default.pm
===================================================================
--- Catalyst-Runtime/5.80/branches/index_default_fuckage/lib/Catalyst/DispatchType/Default.pm	2009-06-24 22:56:42 UTC (rev 10644)
+++ Catalyst-Runtime/5.80/branches/index_default_fuckage/lib/Catalyst/DispatchType/Default.pm	2009-06-25 00:41:38 UTC (rev 10645)
@@ -58,6 +58,8 @@
     return 0;
 }
 
+sub _is_low_precedence { 1 }
+
 =head1 AUTHORS
 
 Catalyst Contributors, see Catalyst.pm

Modified: Catalyst-Runtime/5.80/branches/index_default_fuckage/lib/Catalyst/DispatchType/Index.pm
===================================================================
--- Catalyst-Runtime/5.80/branches/index_default_fuckage/lib/Catalyst/DispatchType/Index.pm	2009-06-24 22:56:42 UTC (rev 10644)
+++ Catalyst-Runtime/5.80/branches/index_default_fuckage/lib/Catalyst/DispatchType/Index.pm	2009-06-25 00:41:38 UTC (rev 10645)
@@ -89,6 +89,8 @@
     return "/".$action->namespace;
 }
 
+sub _is_low_precedence { 1 }
+
 =head1 AUTHORS
 
 Catalyst Contributors, see Catalyst.pm

Modified: Catalyst-Runtime/5.80/branches/index_default_fuckage/lib/Catalyst/DispatchType.pm
===================================================================
--- Catalyst-Runtime/5.80/branches/index_default_fuckage/lib/Catalyst/DispatchType.pm	2009-06-24 22:56:42 UTC (rev 10644)
+++ Catalyst-Runtime/5.80/branches/index_default_fuckage/lib/Catalyst/DispatchType.pm	2009-06-25 00:41:38 UTC (rev 10645)
@@ -73,6 +73,8 @@
 
 sub expand_action { }
 
+sub _is_low_precedence { 0 }
+
 =head1 AUTHORS
 
 Catalyst Contributors, see Catalyst.pm

Modified: Catalyst-Runtime/5.80/branches/index_default_fuckage/lib/Catalyst/Dispatcher.pm
===================================================================
--- Catalyst-Runtime/5.80/branches/index_default_fuckage/lib/Catalyst/Dispatcher.pm	2009-06-24 22:56:42 UTC (rev 10644)
+++ Catalyst-Runtime/5.80/branches/index_default_fuckage/lib/Catalyst/Dispatcher.pm	2009-06-25 00:41:38 UTC (rev 10645)
@@ -531,8 +531,7 @@
     my @low_precedence_dtypes;
 
     for my $type ( @dtypes ) {
-        if ($type->isa('Catalyst::DispatchType::Index') ||  
-            $type->isa('Catalyst::DispatchType::Default')) {
+        if ($type->_is_low_precedence) {
             push @low_precedence_dtypes, $type;
         } else {
             push @normal_dtypes, $type;