[Bps-public-commit] Path-Dispatcher branch, master, updated. f9a835332952f251553f827a07b55643caa65003

[sartak at bestpractical.com]

The branch, master has been updated
       via  f9a835332952f251553f827a07b55643caa65003 (commit)
      from  54969918119ff65f78f92cc868a657e072d19a56 (commit)

Summary of changes:
 lib/Path/Dispatcher/Builder.pm     |    2 +-
 lib/Path/Dispatcher/Declarative.pm |    8 ++++++--
 2 files changed, 7 insertions(+), 3 deletions(-)

- Log -----------------------------------------------------------------
commit f9a835332952f251553f827a07b55643caa65003
Author: Shawn M Moore <sartak at gmail.com>
Date:   Fri Mar 6 22:35:06 2009 -0500

    Restore the default of case sensitive tokens

diff --git a/lib/Path/Dispatcher/Builder.pm b/lib/Path/Dispatcher/Builder.pm
index 2eb563a..63f9eaf 100644
--- a/lib/Path/Dispatcher/Builder.pm
+++ b/lib/Path/Dispatcher/Builder.pm
@@ -14,7 +14,7 @@ has dispatcher => (
 has case_sensitive_tokens => (
     is          => 'rw',
     isa         => 'Bool',
-    default     => 0,
+    default     => 1,
 );
 
 has token_delimiter => (
diff --git a/lib/Path/Dispatcher/Declarative.pm b/lib/Path/Dispatcher/Declarative.pm
index 7539a72..4131bff 100644
--- a/lib/Path/Dispatcher/Declarative.pm
+++ b/lib/Path/Dispatcher/Declarative.pm
@@ -45,8 +45,12 @@ sub build_sugar {
     my $into = $CALLER;
 
     for my $option ('token_delimiter', 'case_sensitive_tokens') {
-        $arg->{$option} = $class->$option
-            if !exists($arg->{$option});
+        next if exists $arg->{$option};
+
+        my $default = $class->$option;
+        next unless defined $default; # use the builder's default
+
+        $arg->{$option} = $class->$option;
     }
 
     my $dispatcher = $class->dispatcher_class->new(name => $into);

-----------------------------------------------------------------------