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

[sartak at bestpractical.com]

Author: sartak
Date: Mon Aug 25 16:12:54 2008
New Revision: 15436

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

Log:
 r70292 at onn:  sartak | 2008-08-25 14:38:37 -0400
 Clean up some old code


Modified: Path-Dispatcher/trunk/lib/Path/Dispatcher.pm
==============================================================================
--- Path-Dispatcher/trunk/lib/Path/Dispatcher.pm	(original)
+++ Path-Dispatcher/trunk/lib/Path/Dispatcher.pm	Mon Aug 25 16:12:54 2008
@@ -69,17 +69,18 @@
     my $self = shift;
     my $path = shift;
 
-    my @matches;
-    my %rules_for_stage;
-
     my $dispatch = $self->dispatch_class->new;
 
+    my %rules_for_stage;
     push @{ $rules_for_stage{$_->stage_name} }, $_
         for $self->rules;
 
     STAGE:
     for my $stage ($self->stages) {
-        $self->begin_stage($stage, \@matches);
+        $self->begin_stage(
+            stage    => $stage,
+            dispatch => $dispatch,
+        );
 
         my $stage_name = $stage->qualified_name;
 
@@ -103,7 +104,10 @@
             if $self->can_redispatch;
     }
     continue {
-        $self->end_stage($stage, \@matches);
+        $self->end_stage(
+            stage    => $stage,
+            dispatch => $dispatch,
+        );
     }
 
     warn "Unhandled stages: " . join(', ', keys %rules_for_stage)