Index: lang/perl/HTTPx-Dispatcher/trunk/lib/HTTPx/Dispatcher.pm
===================================================================
--- lang/perl/HTTPx-Dispatcher/trunk/lib/HTTPx/Dispatcher.pm (revision 10419)
+++ lang/perl/HTTPx-Dispatcher/trunk/lib/HTTPx/Dispatcher.pm (revision 10430)
@@ -14,31 +14,28 @@
 my $rules;
 
-sub connect
-{
-    my $pkg = caller(0);
+sub connect {
+    my $pkg  = caller(0);
     my @args = @_;
 
-    push @{ $rules->{$pkg} } , HTTPx::Dispatcher::Rule->new(@args);
+    push @{ $rules->{$pkg} }, HTTPx::Dispatcher::Rule->new(@args);
 }
 
-sub match
-{
-    my ($class, $req) = @_;
+sub match {
+    my ( $class, $req ) = @_;
     croak "request required" unless blessed $req;
 
-    for my $rule (@{ $rules->{$class} }) {
-        if (my $result = $rule->match($req)) {
+    for my $rule ( @{ $rules->{$class} } ) {
+        if ( my $result = $rule->match($req) ) {
             return $result;
         }
     }
-    return; # no match.
+    return;    # no match.
 }
 
-sub uri_for
-{
-    my ($class, @args) = @_;
+sub uri_for {
+    my ( $class, @args ) = @_;
 
     for my $rule ( @{ $rules->{$class} } ) {
-        if (my $result = $rule->uri_for( @args ) ) {
+        if ( my $result = $rule->uri_for(@args) ) {
             return $result;
         }