tidy

Author: mickeyn

bin/author.pl

@@ -3,12 +3,12 @@
 use v5.36;
 
 use Cpanel::JSON::XS qw< decode_json >;
-use DateTime     ();
-use Email::Valid ();
-use Encode       ();
+use DateTime         ();
+use Email::Valid     ();
+use Encode           ();
 use Getopt::Long;
 use MetaCPAN::Logger qw< :log :dlog >;
-use URI ();
+use URI              ();
 
 use MetaCPAN::ES;
 use MetaCPAN::Ingest qw<

bin/backpan.pl

@@ -52,7 +52,7 @@ ()
             (
                 $undo
                     or exists $cpan_file_map->{$author}{$archive}
-            )
+                )
             ? 'cpan'
             : 'backpan',
             $release->{_id}

bin/backup.pl

@@ -6,10 +6,10 @@
 use Getopt::Long;
 use MetaCPAN::Logger qw< :log :dlog >;
 use Cpanel::JSON::XS qw< decode_json encode_json >;
-use DateTime ();
-use IO::Zlib ();
-use Path::Tiny qw< path >;
-use Try::Tiny qw< catch try >;
+use DateTime         ();
+use IO::Zlib         ();
+use Path::Tiny       qw< path >;
+use Try::Tiny        qw< catch try >;
 
 use MetaCPAN::ES;
 use MetaCPAN::Ingest qw< home >;

bin/checksum.pl

@@ -3,7 +3,7 @@
 use v5.36;
 
 use Getopt::Long;
-use Digest::file qw< digest_file_hex >;
+use Digest::file     qw< digest_file_hex >;
 use MetaCPAN::Logger qw< :log :dlog >;
 
 use MetaCPAN::ES;

bin/cpan_testers.pl

@@ -2,7 +2,7 @@
 use warnings;
 use v5.36;
 
-use DBI ();
+use DBI        ();
 use File::stat qw< stat >;
 use Getopt::Long;
 use IO::Uncompress::Bunzip2 qw< bunzip2 >;

bin/cve.pl

@@ -5,7 +5,7 @@
 use Cpanel::JSON::XS qw< decode_json >;
 use Getopt::Long;
 use Path::Tiny qw< path >;
-use Ref::Util qw< is_arrayref >;
+use Ref::Util  qw< is_arrayref >;
 
 use MetaCPAN::Logger qw< :log :dlog >;
 

bin/first.pl

@@ -38,7 +38,7 @@
     $release
         ? log_debug {
         "@{[ $release->name ]} by @{[ $release->author ]} was first"
-    }
+        }
         : log_warn {
         "no release found for distribution @{[$distribution->name]}"
         };

bin/latest.pl

@@ -7,9 +7,9 @@
 
 use CPAN::DistnameInfo;
 use Parse::CPAN::Packages::Fast;
-use Ref::Util qw< is_arrayref is_hashref >;
+use Ref::Util      qw< is_arrayref is_hashref >;
 use Regexp::Common qw< time >;
-use Time::Local qw< timelocal >;
+use Time::Local    qw< timelocal >;
 
 use MetaCPAN::ES;
 use MetaCPAN::Ingest qw<
@@ -313,7 +313,7 @@ ( $bulk, $source, $status )
 
     log_info {
         $status eq 'latest' ? 'Upgrading ' : 'Downgrading ',
-            'release ', $release->{name}
+        'release ', $release->{name}
     };
 
     # Get all the files for the release.

bin/queue.pl

@@ -3,7 +3,7 @@
 use v5.36;
 
 use Getopt::Long;
-use Path::Tiny qw< path >;
+use Path::Tiny           qw< path >;
 use Path::Iterator::Rule ();
 
 use MetaCPAN::Ingest qw< minion >;

bin/release.pl

@@ -8,7 +8,7 @@
 use Getopt::Long;
 use List::Util qw< uniq >;
 use Path::Tiny qw< path >;
-use Try::Tiny qw< catch try >;
+use Try::Tiny  qw< catch try >;
 
 use MetaCPAN::Logger qw< :log :dlog >;
 
@@ -121,7 +121,7 @@
         $find = $find->mtime( ">" . ( time - $age * 3600 ) )
             if $age;
         push( @files,
-            map      { $_->{file} }
+            map { $_->{file} }
                 sort { $a->{mtime} <=> $b->{mtime} }
                 map  { +{ file => $_, mtime => File::stat::stat($_)->mtime } }
                 $find->in($_) );