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

[sartak at bestpractical.com]

Author: sartak
Date: Mon Feb  9 21:11:29 2009
New Revision: 18309

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

Log:
 r79846 at onn:  sartak | 2009-02-09 21:11:25 -0500
 Avoid using method modifiers since it'd be a new dep when Mouse is used


Modified: Path-Dispatcher/trunk/lib/Path/Dispatcher/Path.pm
==============================================================================
--- Path-Dispatcher/trunk/lib/Path/Dispatcher/Path.pm	(original)
+++ Path-Dispatcher/trunk/lib/Path/Dispatcher/Path.pm	Mon Feb  9 21:11:29 2009
@@ -16,15 +16,14 @@
 );
 
 # allow Path::Dispatcher::Path->new($path)
-around BUILDARGS => sub {
-    my $orig = shift;
+sub BUILDARGS {
     my $self = shift;
 
     if (@_ == 1 && !ref($_[0])) {
         unshift @_, 'path';
     }
 
-    $self->$orig(@_);
+    $self->SUPER::BUILDARGS(@_);
 };
 
 sub clone_path {

Modified: Path-Dispatcher/trunk/lib/Path/Dispatcher/Rule/Tokens.pm
==============================================================================
--- Path-Dispatcher/trunk/lib/Path/Dispatcher/Rule/Tokens.pm	(original)
+++ Path-Dispatcher/trunk/lib/Path/Dispatcher/Rule/Tokens.pm	Mon Feb  9 21:11:29 2009
@@ -119,10 +119,12 @@
     return $deserialize->($self->tokens);
 }
 
-after trace => sub {
+sub trace {
     my $self = shift;
     my %args = @_;
 
+    $self->SUPER::trace(@_);
+
     return if $ENV{'PATH_DISPATCHER_TRACE'} < 3;
 
     if ($args{no_tokens}) {