perlimports -i t

metacpan · Sep 2, 2024 · c9f5393 · c9f5393
1 parent 724607d
commit c9f5393
Show file tree

Hide file tree

Showing 68 changed files with 132 additions and 145 deletions.
diff --git a/t/00_setup.t b/t/00_setup.t
@@ -5,16 +5,14 @@ use lib 't/lib';
 use CPAN::Faker 0.010 ();
 use Devel::Confess;
 use MetaCPAN::Script::Tickets ();
-use MetaCPAN::Server::Test;
-use MetaCPAN::TestHelpers qw(
+use MetaCPAN::TestHelpers     qw(
     fakecpan_configs_dir
     fakecpan_dir
     get_config
     tmp_dir
     write_find_ls
 );
 use MetaCPAN::TestServer ();
-use Module::Faker 0.015  ();    # Generates META.json.
 use Test::More 0.96;
 use URI::FromHash qw( uri );
 

diff --git a/t/01_darkpan.t b/t/01_darkpan.t
@@ -3,9 +3,9 @@ use warnings;
 use lib 't/lib';
 
 use Devel::Confess;
-use MetaCPAN::DarkPAN ();
-use MetaCPAN::TestServer;
-use MetaCPAN::Tests::Controller::Search::DownloadURL;
+use MetaCPAN::DarkPAN                                ();
+use MetaCPAN::TestServer                             ();
+use MetaCPAN::Tests::Controller::Search::DownloadURL ();
 use Test::More;
 use Test::RequiresInternet ( 'cpan.metacpan.org' => 80 );
 

diff --git a/t/api/controller/cover.t b/t/api/controller/cover.t
@@ -2,8 +2,7 @@ use Mojo::Base -strict;
 
 use lib 't/lib';
 
-use MetaCPAN::Model::Search ();
-use MetaCPAN::TestServer    ();
+use MetaCPAN::TestServer ();
 use Test::More;
 use Test::Mojo ();
 

diff --git a/t/lib/MetaCPAN/DarkPAN.pm b/t/lib/MetaCPAN/DarkPAN.pm
@@ -2,14 +2,13 @@ package MetaCPAN::DarkPAN;
 
 use MetaCPAN::Moose;
 
-use CPAN::Repository::Perms;
-use MetaCPAN::TestHelpers     qw( get_config write_find_ls );
+use CPAN::Repository::Perms   ();
+use MetaCPAN::TestHelpers     qw( write_find_ls );
 use MetaCPAN::Types::TypeTiny qw( Path );
 use MetaCPAN::Util            qw( author_dir );
-use OrePAN2::Indexer;
-use OrePAN2::Injector;
-use Path::Tiny    qw( path );
-use URI::FromHash qw( uri_object );
+use OrePAN2::Indexer          ();
+use OrePAN2::Injector         ();
+use URI::FromHash             qw( uri_object );
 
 has base_dir => (
     is      => 'ro',

diff --git a/t/lib/MetaCPAN/Server/Test.pm b/t/lib/MetaCPAN/Server/Test.pm
@@ -3,9 +3,9 @@ package MetaCPAN::Server::Test;
 use strict;
 use warnings;
 
-use HTTP::Request::Common qw(POST GET DELETE);
+use HTTP::Request::Common qw( DELETE GET POST );
 use MetaCPAN::Server      ();
-use Plack::Test;
+use Plack::Test           qw( test_psgi );
 use Test::More;
 
 use base 'Exporter';
@@ -37,7 +37,7 @@ sub app {
     return $app;
 }
 
-require MetaCPAN::Model;
+use MetaCPAN::Model ();
 
 sub model {
     MetaCPAN::Model->new( es => ( $ENV{ES_TEST} ||= 'localhost:9200' ) );

diff --git a/t/lib/MetaCPAN/TestHelpers.pm b/t/lib/MetaCPAN/TestHelpers.pm
@@ -4,16 +4,16 @@ use warnings;
 package    # no_index
     MetaCPAN::TestHelpers;
 
-use Cpanel::JSON::XS;
-use File::Copy  qw( copy );
-use File::pushd qw( pushd );
-use FindBin;
-use MetaCPAN::Util qw( checkout_root );
-use MetaCPAN::Script::Runner;
-use Path::Tiny qw( path );
+use Cpanel::JSON::XS         qw( decode_json encode_json );
+use File::Copy               qw( copy );
+use File::pushd              qw( pushd );
+use FindBin                  ();
+use MetaCPAN::Util           qw( checkout_root );
+use MetaCPAN::Script::Runner ();
+use Path::Tiny               qw( path );
 use Test::More;
-use Test::Routine::Util;
-use Try::Tiny qw( catch try );
+use Test::Routine::Util qw( run_tests );
+use Try::Tiny           qw( catch finally try );
 
 use base 'Exporter';
 our @EXPORT = qw(

diff --git a/t/lib/MetaCPAN/TestServer.pm b/t/lib/MetaCPAN/TestServer.pm
@@ -2,24 +2,23 @@ package MetaCPAN::TestServer;
 
 use MetaCPAN::Moose;
 
-use MetaCPAN::DarkPAN                ();
-use MetaCPAN::Script::Author         ();
-use MetaCPAN::Script::Cover          ();
-use MetaCPAN::Script::CPANTestersAPI ();
-use MetaCPAN::Script::Favorite       ();
-use MetaCPAN::Script::First          ();
-use MetaCPAN::Script::Latest         ();
-use MetaCPAN::Script::Mapping        ();
-use MetaCPAN::Script::Mapping::Cover ();
-use MetaCPAN::Script::Mirrors        ();
-use MetaCPAN::Script::Package        ();
-use MetaCPAN::Script::Permission     ();
-use MetaCPAN::Script::Release        ();
-use MetaCPAN::Server                 ();
-use MetaCPAN::TestHelpers            qw( fakecpan_dir );
-use MetaCPAN::Types::TypeTiny        qw( Path HashRef Str );
-use Search::Elasticsearch;
-use Search::Elasticsearch::TestServer;
+use MetaCPAN::Script::Author          ();
+use MetaCPAN::Script::Cover           ();
+use MetaCPAN::Script::CPANTestersAPI  ();
+use MetaCPAN::Script::Favorite        ();
+use MetaCPAN::Script::First           ();
+use MetaCPAN::Script::Latest          ();
+use MetaCPAN::Script::Mapping         ();
+use MetaCPAN::Script::Mapping::Cover  ();
+use MetaCPAN::Script::Mirrors         ();
+use MetaCPAN::Script::Package         ();
+use MetaCPAN::Script::Permission      ();
+use MetaCPAN::Script::Release         ();
+use MetaCPAN::Server                  ();
+use MetaCPAN::TestHelpers             qw( fakecpan_dir );
+use MetaCPAN::Types::TypeTiny         qw( HashRef Path Str );
+use Search::Elasticsearch             ();
+use Search::Elasticsearch::TestServer ();
 use Test::More;
 use Try::Tiny qw( catch try );
 

diff --git a/t/lib/MetaCPAN/Tests/Controller/Search/DownloadURL.pm b/t/lib/MetaCPAN/Tests/Controller/Search/DownloadURL.pm
@@ -3,8 +3,8 @@ package MetaCPAN::Tests::Controller::Search::DownloadURL;
 use strict;
 use warnings;
 
-use MetaCPAN::Server::Test;
-use MetaCPAN::TestHelpers;
+use MetaCPAN::Server::Test qw( app GET test_psgi );
+use MetaCPAN::TestHelpers  qw( decode_json_ok );
 use Moose;
 use Test::More;
 

diff --git a/t/lib/MetaCPAN/Tests/Model.pm b/t/lib/MetaCPAN/Tests/Model.pm
@@ -5,7 +5,7 @@ use Test::Routine;
 use MetaCPAN::Server::Test    ();
 use MetaCPAN::Types::TypeTiny qw( ArrayRef HashRef Str );
 use Test::More;
-use Try::Tiny qw( catch try );
+use Try::Tiny qw( try );
 
 with qw(
     MetaCPAN::Tests::Extra

diff --git a/t/lib/MetaCPAN/Tests/Release.pm b/t/lib/MetaCPAN/Tests/Release.pm
@@ -4,8 +4,8 @@ use Test::Routine;
 
 use version;
 
-use HTTP::Request::Common;
-use List::Util ();
+use HTTP::Request::Common qw( GET );
+use List::Util            ();
 use Test::More;
 use MetaCPAN::Types::TypeTiny qw( ArrayRef HashRef Str );
 

diff --git a/t/lib/MetaCPAN/Tests/UserAgent.pm b/t/lib/MetaCPAN/Tests/UserAgent.pm
@@ -6,9 +6,9 @@ package MetaCPAN::Tests::UserAgent;
 use Test::Routine;
 use Test::More;
 
-use LWP::UserAgent;
-use HTTP::Cookies;
-use HTTP::Request;
+use LWP::UserAgent ();
+use HTTP::Cookies  ();
+use HTTP::Request  ();
 
 has cb => (
     is       => 'ro',

diff --git a/t/lib/Module/Faker/Dist/WithPerl.pm b/t/lib/Module/Faker/Dist/WithPerl.pm
@@ -4,7 +4,7 @@ package    # no_index
 use Moose;
 extends 'Module::Faker::Dist';
 
-use Encode;
+use Encode qw( encode_utf8 );
 
 around append_for => sub {
     my ( $orig, $self, $filename ) = @_;

diff --git a/t/model/archive.t b/t/model/archive.t
@@ -5,8 +5,8 @@ use lib 't/lib';
 use Digest::SHA           qw( sha1_hex );
 use MetaCPAN::TestHelpers qw( fakecpan_dir );
 use Test::More;
-use Test::Fatal;
-use Test::Deep qw(cmp_bag);
+use Test::Fatal qw( exception );
+use Test::Deep  qw( cmp_bag );
 
 my $CLASS = 'MetaCPAN::Model::Archive';
 require_ok $CLASS;

diff --git a/t/model/release.t b/t/model/release.t
@@ -5,8 +5,7 @@ use lib 't/lib';
 use File::Temp               ();
 use LWP::Simple              qw( getstore );
 use MetaCPAN::Model::Release ();
-use MetaCPAN::Script::Runner;
-use MetaCPAN::TestHelpers qw( get_config );
+use MetaCPAN::TestHelpers    qw( get_config );
 use Test::More;
 use Test::RequiresInternet( 'metacpan.org' => 'https' );
 

diff --git a/t/model/release/dependencies.t b/t/model/release/dependencies.t
@@ -3,10 +3,9 @@ use warnings;
 use lib 't/lib';
 
 use MetaCPAN::Model::Release ();
-use MetaCPAN::Script::Runner;
-use MetaCPAN::TestHelpers qw( fakecpan_dir get_config );
+use MetaCPAN::TestHelpers    qw( fakecpan_dir get_config );
 use Test::More;
-use Test::Deep qw(cmp_bag);
+use Test::Deep qw( cmp_bag );
 
 my $config = get_config();
 

diff --git a/t/model/release/reverse_dependencies.t b/t/model/release/reverse_dependencies.t
@@ -3,9 +3,10 @@ use warnings;
 use lib 't/lib';
 
 use MetaCPAN::Server ();
+
 use Test::More;
 
-my $c = 'MetaCPAN::Server';
+my $c = MetaCPAN::Server::;
 
 subtest 'distribution reverse_dependencies' => sub {
     my $data = [

diff --git a/t/package.t b/t/package.t
@@ -3,7 +3,7 @@ use warnings;
 use lib 't/lib';
 
 use Test::More;
-use MetaCPAN::Script::Runner;
+use MetaCPAN::Script::Runner ();
 
 local @ARGV = ('package');
 

diff --git a/t/permission.t b/t/permission.t
@@ -3,7 +3,7 @@ use warnings;
 use lib 't/lib';
 
 use Test::More;
-use MetaCPAN::Script::Runner;
+use MetaCPAN::Script::Runner ();
 
 local @ARGV = ('permission');
 

diff --git a/t/release/bugs.t b/t/release/bugs.t
@@ -2,7 +2,6 @@ use strict;
 use warnings;
 use lib 't/lib';
 
-use MetaCPAN::Server::Test;
 use MetaCPAN::TestHelpers qw( test_distribution );
 use Test::More;
 

diff --git a/t/release/documentation-hide.t b/t/release/documentation-hide.t
@@ -2,7 +2,7 @@ use strict;
 use warnings;
 use lib 't/lib';
 
-use MetaCPAN::Server::Test;
+use MetaCPAN::Server::Test qw( model );
 use Test::More;
 
 my $model   = model();

diff --git a/t/release/documentation-not-readme.t b/t/release/documentation-not-readme.t
@@ -2,7 +2,6 @@ use strict;
 use warnings;
 use lib 't/lib';
 
-use MetaCPAN::Server::Test;
 use MetaCPAN::TestHelpers qw( test_release );
 use Test::More;
 

diff --git a/t/release/file-changes.t b/t/release/file-changes.t
@@ -2,7 +2,7 @@ use strict;
 use warnings;
 use lib 't/lib';
 
-use MetaCPAN::Server::Test;
+use MetaCPAN::Server::Test qw( model );
 use Test::More;
 
 my $model   = model();

diff --git a/t/release/file-duplicates.t b/t/release/file-duplicates.t
@@ -2,8 +2,7 @@ use strict;
 use warnings;
 use lib 't/lib';
 
-use Cpanel::JSON::XS ();
-use MetaCPAN::Server::Test;
+use Cpanel::JSON::XS      ();
 use MetaCPAN::TestHelpers qw( test_release );
 use Test::More;
 

diff --git a/t/release/meta-license.t b/t/release/meta-license.t
@@ -2,7 +2,6 @@ use strict;
 use warnings;
 use lib 't/lib';
 
-use MetaCPAN::Server::Test;
 use MetaCPAN::TestHelpers qw( test_release );
 use Test::More;
 

diff --git a/t/release/meta-provides.t b/t/release/meta-provides.t
@@ -2,7 +2,6 @@ use strict;
 use warnings;
 use lib 't/lib';
 
-use MetaCPAN::Server::Test;
 use MetaCPAN::TestHelpers qw( test_release );
 use Test::More;
 

diff --git a/t/release/moose.t b/t/release/moose.t
@@ -2,7 +2,7 @@ use strict;
 use warnings;
 use lib 't/lib';
 
-use MetaCPAN::Server::Test;
+use MetaCPAN::Server::Test qw( model );
 use Test::More;
 
 my $model = model();

diff --git a/t/release/multiple-modules.t b/t/release/multiple-modules.t
@@ -2,7 +2,7 @@ use strict;
 use warnings;
 use lib 't/lib';
 
-use MetaCPAN::Server::Test;
+use MetaCPAN::Server::Test qw( model );
 use Test::More;
 
 my $model   = model();

diff --git a/t/release/p-1.0.20.t b/t/release/p-1.0.20.t
@@ -6,7 +6,7 @@ use MetaCPAN::TestHelpers qw( test_release );
 use Ref::Util             qw( is_hashref );
 use Test::More;
 
-use MetaCPAN::TestServer;
+use MetaCPAN::TestServer ();
 
 my $server = MetaCPAN::TestServer->new;
 $server->index_cpantesters;

diff --git a/t/release/packages-unclaimable.t b/t/release/packages-unclaimable.t
@@ -2,9 +2,8 @@ use strict;
 use warnings;
 use lib 't/lib';
 
-use Cpanel::JSON::XS ();
-use List::Util       qw( uniq );
-use MetaCPAN::Server::Test;
+use Cpanel::JSON::XS      ();
+use List::Util            qw( uniq );
 use MetaCPAN::TestHelpers qw( test_release );
 use Module::Metadata      ();
 use Test::More;

diff --git a/t/release/packages.t b/t/release/packages.t
@@ -2,8 +2,7 @@ use strict;
 use warnings;
 use lib 't/lib';
 
-use Cpanel::JSON::XS ();
-use MetaCPAN::Server::Test;
+use Cpanel::JSON::XS      ();
 use MetaCPAN::TestHelpers qw( test_release );
 use Test::More;
 

diff --git a/t/release/perl-changes-file.t b/t/release/perl-changes-file.t
@@ -2,7 +2,7 @@ use strict;
 use warnings;
 use lib 't/lib';
 
-use MetaCPAN::Server::Test;
+use MetaCPAN::Server::Test qw( model );
 use Test::More;
 
 my $model   = model();

diff --git a/t/release/pm-PL.t b/t/release/pm-PL.t
@@ -2,7 +2,7 @@ use strict;
 use warnings;
 use lib 't/lib';
 
-use MetaCPAN::Server::Test;
+use MetaCPAN::Server::Test qw( app GET model test_psgi );
 use Test::More;
 
 my $model = model();