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

[sartak at bestpractical.com]

Author: sartak
Date: Wed Nov 19 13:17:35 2008
New Revision: 16927

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

Log:
 r75811 at onn:  sartak | 2008-11-19 13:17:07 -0500
 Let rules have an optional name, for tracing


Modified: Path-Dispatcher/trunk/lib/Path/Dispatcher/Rule.pm
==============================================================================
--- Path-Dispatcher/trunk/lib/Path/Dispatcher/Rule.pm	(original)
+++ Path-Dispatcher/trunk/lib/Path/Dispatcher/Rule.pm	Wed Nov 19 13:17:35 2008
@@ -18,6 +18,12 @@
     default => 0,
 );
 
+has name => (
+    is        => 'rw',
+    isa       => 'Str',
+    predicate => 'has_name',
+);
+
 sub match {
     my $self = shift;
     my $path = shift;