[Bps-public-commit] r17416 - in Path-Dispatcher/trunk: lib/Path/Dispatcher

[sartak at bestpractical.com]

Author: sartak
Date: Mon Dec 29 20:58:50 2008
New Revision: 17416

Modified:
   Path-Dispatcher/trunk/   (props changed)
   Path-Dispatcher/trunk/lib/Path/Dispatcher/Declarative.pm

Log:
 r78048 at onn:  sartak | 2008-12-29 20:58:14 -0500
 Doh! Forgot to include the delimiter in the non-ref rules. (Also case sensitivity.. whimper)


Modified: Path-Dispatcher/trunk/lib/Path/Dispatcher/Declarative.pm
==============================================================================
--- Path-Dispatcher/trunk/lib/Path/Dispatcher/Declarative.pm	(original)
+++ Path-Dispatcher/trunk/lib/Path/Dispatcher/Declarative.pm	Mon Dec 29 20:58:50 2008
@@ -137,6 +137,17 @@
             $block ? (block => $block) : (),
         ),
     },
+    '' => sub {
+        my ($self, $string, $block) = @_;
+        my $case_sensitive = $self->case_sensitive_tokens;
+
+        Path::Dispatcher::Rule::Tokens->new(
+            tokens => [$string],
+            delimiter => $self->token_delimiter,
+            defined $case_sensitive ? (case_sensitive => $case_sensitive) : (),
+            $block ? (block => $block) : (),
+        ),
+    },
     CODE => sub {
         my ($self, $matcher, $block) = @_;
         Path::Dispatcher::Rule::CodeRef->new(
@@ -151,13 +162,6 @@
             $block ? (block => $block) : (),
         ),
     },
-    '' => sub {
-        my ($self, $string, $block) = @_;
-        Path::Dispatcher::Rule::Tokens->new(
-            tokens => [$string],
-            $block ? (block => $block) : (),
-        ),
-    },
     empty => sub {
         my ($self, $undef, $block) = @_;
         Path::Dispatcher::Rule::Empty->new(