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

sartak at bestpractical.com sartak at bestpractical.com
Wed Aug 27 10:59:05 EDT 2008


Author: sartak
Date: Wed Aug 27 10:59:04 2008
New Revision: 15524

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

Log:
 r70522 at onn:  sartak | 2008-08-27 10:53:55 -0400
 Remove "cleanup stage" for now


Modified: Path-Dispatcher/trunk/lib/Path/Dispatcher.pm
==============================================================================
--- Path-Dispatcher/trunk/lib/Path/Dispatcher.pm	(original)
+++ Path-Dispatcher/trunk/lib/Path/Dispatcher.pm	Wed Aug 27 10:59:04 2008
@@ -39,8 +39,8 @@
     my $stage_class = $self->stage_class;
 
     my $before = $stage_class->new(name => 'on', qualifier => 'before');
+    my $on     = $stage_class->new(name => 'on');
     my $after  = $stage_class->new(name => 'on', qualifier => 'after');
-    my $on     = $stage_class->new(name => 'on', cleanup_stage => $after);
 
     return [$before, $on, $after];
 }

Modified: Path-Dispatcher/trunk/lib/Path/Dispatcher/Stage.pm
==============================================================================
--- Path-Dispatcher/trunk/lib/Path/Dispatcher/Stage.pm	(original)
+++ Path-Dispatcher/trunk/lib/Path/Dispatcher/Stage.pm	Wed Aug 27 10:59:04 2008
@@ -16,12 +16,6 @@
     predicate => 'is_qualified',
 );
 
-has cleanup_stage => (
-    is        => 'ro',
-    isa       => 'Path::Dispatcher::Stage',
-    predicate => 'has_cleanup_stage',
-);
-
 has _rules => (
     metaclass => 'Collection::Array',
     is        => 'rw',



More information about the Bps-public-commit mailing list