Tidify lib/WWW/Mechanize.pm

Author: mikkoi

lib/WWW/Mechanize.pm

@@ -1644,10 +1644,9 @@ sub form_action {
     my ( $self, $action ) = @_;
 
     my $temp;
-    my @matches = grep {
-        defined( $temp = $_->action )
-            and ( $temp =~ m/$action/msx )
-    } $self->forms;
+    my @matches
+        = grep { defined( $temp = $_->action ) and ( $temp =~ m/$action/msx ) }
+        $self->forms;
 
     my $nmatches = @matches;
     if ( $nmatches > 0 ) {