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

[sartak at bestpractical.com]

The branch, master has been updated
       via  e137f5467e72f14b688c4e4043f621ff271fc670 (commit)
      from  e4e2d6c627c38c90df51d070aaf4b2b178259308 (commit)

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

- Log -----------------------------------------------------------------
commit e137f5467e72f14b688c4e4043f621ff271fc670
Author: Shawn M Moore <sartak at gmail.com>
Date:   Fri Mar 6 19:55:45 2009 -0500

    Some cleanup in Builder

diff --git a/lib/Path/Dispatcher/Builder.pm b/lib/Path/Dispatcher/Builder.pm
index be34489..90397c9 100644
--- a/lib/Path/Dispatcher/Builder.pm
+++ b/lib/Path/Dispatcher/Builder.pm
@@ -1,8 +1,4 @@
 package Path::Dispatcher::Builder;
-
-use strict;
-use warnings;
-
 use Any::Moose;
 
 has dispatcher => (
@@ -10,9 +6,7 @@ has dispatcher => (
     isa         => 'Path::Dispatcher',
     required    => 1,
     lazy        => 1,
-    default     => sub {
-        return Path::Dispatcher->new
-    },
+    default     => sub { return Path::Dispatcher->new },
 );
 
 has case_sensitive_tokens => (
@@ -27,38 +21,6 @@ has token_delimiter => (
     default     => ' ',
 );
 
-#sub token_delimiter {
-#    my $self = shift;
-#    my $value = $self->_token_delimiter;
-#    return ref $value eq 'CODE' ? $value->() : $value;
-#}
-## What the magic with coderefs? Because this is based off of ::Declarative, and the caller might not be available at import
-## time (when the sugar is loaded)
-
-#has case_sensitive_tokens => (
-#    reader    => '_case_sensitive_tokens',
-##    is      => 'rw',
-#    isa         => 'Bool|CodeRef',
-#    default     => 0,
-#);
-#sub case_sensitive_tokens {
-#    my $self = shift;
-#    my $value = $self->_case_sensitive_tokens;
-#    return ref $value eq 'CODE' ? $value->() : $value;
-#}
-
-#has token_delimiter => (
-#    reader    => '_token_delimiter',
-##    is      => 'rw',
-#    isa         => 'Str|CodeRef',
-#    default     => ' ',
-#);
-#sub token_delimiter {
-#    my $self = shift;
-#    my $value = $self->_token_delimiter;
-#    return ref $value eq 'CODE' ? $value->() : $value;
-#}
-
 no Any::Moose; # We're gonna use before/after below
 
 our $OUTERMOST_DISPATCHER;
@@ -285,6 +247,8 @@ sub _add_rule {
         return $rule, @_;
     }
 }
+
 __PACKAGE__->meta->make_immutable;
 
 1;
+

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