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

[sartak at bestpractical.com]

The branch, master has been updated
       via  676f77fc387bf5f570a9efecebedb02214954da9 (commit)
      from  6ec9f46066d35cf41e34229c32fa6d9daf8c47b8 (commit)

Summary of changes:
 lib/Path/Dispatcher/Declarative.pm |    4 +---
 1 files changed, 1 insertions(+), 3 deletions(-)

- Log -----------------------------------------------------------------
commit 676f77fc387bf5f570a9efecebedb02214954da9
Author: Shawn M Moore <sartak at gmail.com>
Date:   Fri Mar 6 23:35:44 2009 -0500

    Don't specify defaults more than needed

diff --git a/lib/Path/Dispatcher/Declarative.pm b/lib/Path/Dispatcher/Declarative.pm
index ee7564c..eda3f31 100644
--- a/lib/Path/Dispatcher/Declarative.pm
+++ b/lib/Path/Dispatcher/Declarative.pm
@@ -17,9 +17,6 @@ my $exporter = Sub::Exporter::build_exporter({
     },
 });
 
-sub token_delimiter { ' ' }
-sub case_sensitive_tokens { undef }
-
 sub import {
     my $self = shift;
     my $pkg  = caller;
@@ -79,6 +76,7 @@ sub populate_defaults {
 
     for my $option ('token_delimiter', 'case_sensitive_tokens') {
         next if exists $arg->{$option};
+        next unless $class->can($option);
 
         my $default = $class->$option;
         next unless defined $default; # use the builder's default

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