1. Shlomi Fish
  2. perl-Test-WWW-Mechanize-Mojo

Commits

shl...@52c325ad-5fd0-0310-8a0f-c43feede02cc  committed 6b2f8e3

Add a missing file

  • Participants
  • Parent commits ce68b51
  • Branches default

Comments (0)

Files changed (1)

File Test-WWW-Mechanize-Mojo/lib/Test/WWW/Mechanize/Mojo.pm

View file
  • Ignore whitespace
     my $method = lc($request->method());
 
     $client->$method($uri, 
-        (map { $_ => $request->header($_) } $request->header_field_names()), 
+        +{ (map { $_ => $request->header($_) } 
+                $request->header_field_names()
+            ) 
+        },
         $request->content,
-        sub { $t->tx($request->method()) and $t->redirects($uri) })
-    ->process;
+        sub { my (undef, $tx, $redirs) = @_; 
+            $t->tx($tx) and $t->redirects($redirs) 
+        }
+    )->process;
 
     my $mojo_res = $t->tx->res;