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

[sartak at bestpractical.com]

The branch, master has been updated
       via  25095835e93daec688eb790cc52ed8d277e14c6e (commit)
      from  c2ed0ef91bf0e3aa996bccb9f21342e3216dda3e (commit)

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

- Log -----------------------------------------------------------------
commit 25095835e93daec688eb790cc52ed8d277e14c6e
Author: Shawn M Moore <sartak at gmail.com>
Date:   Fri Mar 6 22:21:31 2009 -0500

    Factor out dispatcher class

diff --git a/lib/Path/Dispatcher/Declarative.pm b/lib/Path/Dispatcher/Declarative.pm
index cb3b33c..8485692 100644
--- a/lib/Path/Dispatcher/Declarative.pm
+++ b/lib/Path/Dispatcher/Declarative.pm
@@ -4,6 +4,7 @@ use warnings;
 use Path::Dispatcher;
 use Path::Dispatcher::Builder;
 
+use constant dispatcher_class => 'Path::Dispatcher';
 use constant builder_class => 'Path::Dispatcher::Builder';
 
 use Sub::Exporter;
@@ -44,7 +45,7 @@ sub build_sugar {
 
     my $into = $CALLER;
 
-#    my $dispatcher = Path::Dispatcher->new(
+#    my $dispatcher = $class->dispatcher_class->new(
 #        name => $into,
 #    );
 #    my $builder = $class->builder_class->new(
@@ -58,7 +59,7 @@ sub build_sugar {
     my ($builder, $dispatcher);
     my $lazy_builder = sub {
         return $builder if $builder;
-        $dispatcher = Path::Dispatcher->new(
+        $dispatcher = $class->dispatcher_class->new(
             name => $into,
         );
         $builder = $class->builder_class->new(

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