perltidy

cpanfile

@@ -95,7 +95,7 @@ requires 'App::Prove';
 requires 'Code::TidyAll', '>= 0.74';
 requires 'Code::TidyAll::Plugin::Test::Vars', '0.04';
 requires 'Perl::Critic', '1.136';
-requires 'Perl::Tidy' => '20220613';
+requires 'Perl::Tidy' => '20230909';
 requires 'Test::Code::TidyAll';
 requires 'Test::More', '0.96';
 requires 'Test::Needs';

t/controller/activity.t

@@ -9,7 +9,7 @@ my @tests
 test_psgi app, sub {
     my $cb = shift;
     foreach my $test (@tests) {
-        ok( my $res = $cb->( GET $test), $test );
+        ok( my $res = $cb->( GET $test ), $test );
         is( $res->code, 200, 'code 200' );
         is(
             $res->header('content-type'),

t/controller/author.t

@@ -29,7 +29,7 @@ test_psgi app, sub {
         'found a favorite'
     );
 
-    ok( $res = $cb->( GET $release), "GET $release" );
+    ok( $res = $cb->( GET $release ), "GET $release" );
     is( $res->code, 200, 'code 200' );
 
     ok( $res = $cb->( GET '/author/DOESNTEXIST/releases' ),

t/controller/feed.t

@@ -18,7 +18,7 @@ use Try::Tiny      qw( catch try );
 sub get_feed_ok {
     my ( $cb, $test, $extra ) = @_;
     subtest $test => sub {
-        ok( my $res = $cb->( GET $test), $test );
+        ok( my $res = $cb->( GET $test ), $test );
         is( $res->code, 200, 'code 200' );
         is(
             $res->header('content-type'),

t/controller/search.t

@@ -57,7 +57,7 @@ test_psgi app, sub {
         );
     }
 
-    ok( $res = $cb->( GET $release), "GET $release" );
+    ok( $res = $cb->( GET $release ), "GET $release" );
     is( $res->code, 200, 'code 200' );
 
     ok( $res = $cb->( GET '/search?q=RJBS&lucky=1' ),