Merge pull request #6 from mjg17/mjg17/qw_paren_deprecation

Use of qw(...) as parentheses is deprecated. Thanks for the patch!
beppu · Oct 12, 2015 · 10ba280 · 10ba280
2 parents bcac4f5 + 9602d16
commit 10ba280
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/bin/squatting b/bin/squatting
@@ -111,7 +111,7 @@ if ($app) {
       $self->{status}      = 200;
       $self;
     };
-    foreach my $method qw(get post put delete) {
+    foreach my $method ( qw(get post put delete) ) {
       *{$app."::$method" } = sub {
         my $cc = ${$app."::Controllers::C"}{$_[1]}->clone->mock_init(@_[2..$#_]);
         $cc->env->{REQUEST_METHOD} = $method;

diff --git a/lib/Squatting/With/MockRequest.pm b/lib/Squatting/With/MockRequest.pm
@@ -18,7 +18,7 @@ sub mock_controller_init {
   $cc;
 };
 
-foreach my $method qw(get post put delete head) {
+foreach my $method ( qw(get post put delete head) ) {
   *{$method} = sub {
     my ($app, $controller, @args) = @_;
     my $cc = ${$app."::Controllers::C"}{$controller}->clone;