From 30eecf59f525027326f935e37cb9950e216a6225 Mon Sep 17 00:00:00 2001
From: Olaf Alders <olaf@wundersolutions.com>
Date: Mon, 3 Oct 2022 11:27:39 -0400
Subject: Apply perlimports to tests

---
 t/cwd.t            | 2 +-
 t/escape.t         | 2 +-
 t/file.t           | 2 +-
 t/heuristic.t      | 2 +-
 t/idna.t           | 2 +-
 t/iri.t            | 4 ++--
 t/mix.t            | 2 +-
 t/old-absconf.t    | 2 +-
 t/old-base.t       | 4 ++--
 t/old-file.t       | 2 +-
 t/old-relbase.t    | 2 +-
 t/punycode.t       | 2 +-
 t/roy-test.t       | 2 +-
 t/split.t          | 2 +-
 t/storable-test.pl | 2 +-
 t/utf8.t           | 2 +-
 16 files changed, 18 insertions(+), 18 deletions(-)

diff --git a/t/cwd.t b/t/cwd.t
index a890ee5..6ea5560 100644
--- a/t/cwd.t
+++ b/t/cwd.t
@@ -7,7 +7,7 @@ use Test::More;
 
 plan tests => 1;
 
-use URI::file;
+use URI::file ();
 $ENV{PATH} = "/bin:/usr/bin";
 
 my $cwd = eval { URI::file->cwd };
diff --git a/t/escape.t b/t/escape.t
index 689277b..6b4d5e6 100644
--- a/t/escape.t
+++ b/t/escape.t
@@ -3,7 +3,7 @@ use warnings;
 
 use Test::More tests => 12;
 
-use URI::Escape qw(%escapes uri_escape uri_escape_utf8 uri_unescape);
+use URI::Escape qw( %escapes uri_escape uri_escape_utf8 uri_unescape );
 
 is uri_escape("|abcå"), "%7Cabc%E5";
 
diff --git a/t/file.t b/t/file.t
index 73fb41b..d5d296e 100644
--- a/t/file.t
+++ b/t/file.t
@@ -4,7 +4,7 @@ use strict;
 use warnings;
 
 use Test::More;
-use URI::file;
+use URI::file ();
 
 
 subtest 'OS related tests (unix, win32, mac)' => sub {
diff --git a/t/heuristic.t b/t/heuristic.t
index 037497b..e3062cf 100644
--- a/t/heuristic.t
+++ b/t/heuristic.t
@@ -15,7 +15,7 @@ BEGIN {
 
 use Test::More tests => 26;
 
-use URI::Heuristic qw(uf_url uf_urlstr);
+use URI::Heuristic qw( uf_url uf_urlstr );
 if (shift) {
     $URI::Heuristic::DEBUG++;
     open(STDERR, ">&STDOUT");  # redirect STDERR
diff --git a/t/idna.t b/t/idna.t
index da2ad98..37434b0 100644
--- a/t/idna.t
+++ b/t/idna.t
@@ -3,7 +3,7 @@ use warnings;
 
 use utf8;
 use Test::More tests => 7;
-use URI::_idna;
+use URI::_idna ();
 
 is URI::_idna::encode("www.example.com"), "www.example.com";
 is URI::_idna::decode("www.example.com"), "www.example.com";
diff --git a/t/iri.t b/t/iri.t
index 47600ab..2eb64b2 100644
--- a/t/iri.t
+++ b/t/iri.t
@@ -3,7 +3,7 @@ use warnings;
 
 use utf8;
 use Test::More;
-use Config qw(%Config);
+use Config qw( %Config );
 
 if (defined $Config{useperlio}) {
     plan tests=>26;
@@ -12,7 +12,7 @@ if (defined $Config{useperlio}) {
 }
 
 use URI ();
-use URI::IRI;
+use URI::IRI ();
 
 my $u;
 
diff --git a/t/mix.t b/t/mix.t
index 5b9520f..b53756e 100644
--- a/t/mix.t
+++ b/t/mix.t
@@ -5,7 +5,7 @@ use Test::More tests => 6;
 
 # Test mixing of URI and URI::WithBase objects
 use URI ();
-use URI::WithBase;
+use URI::WithBase ();
 use URI::URL ();
 
 my $str = "http://www.sn.no/";
diff --git a/t/old-absconf.t b/t/old-absconf.t
index 5be6a02..5963fd2 100644
--- a/t/old-absconf.t
+++ b/t/old-absconf.t
@@ -3,7 +3,7 @@ use warnings;
 
 use Test::More tests => 6;
 
-use URI::URL qw(url);
+use URI::URL qw( url );
 
 # Test configuration via some global variables.
 
diff --git a/t/old-base.t b/t/old-base.t
index bef71eb..df01c2a 100644
--- a/t/old-base.t
+++ b/t/old-base.t
@@ -2,12 +2,12 @@ use strict;
 use warnings;
 
 use Test::More 0.96;
-use URI::URL qw(url);
+use URI::URL qw( url );
 use URI::Escape qw(uri_escape uri_unescape);
 use File::Temp qw(tempdir);
 
 # want compatibility
-use URI::file;
+use URI::file ();
 $URI::file::DEFAULT_AUTHORITY = undef;
 
 
diff --git a/t/old-file.t b/t/old-file.t
index 30bb45a..7e522f6 100644
--- a/t/old-file.t
+++ b/t/old-file.t
@@ -3,7 +3,7 @@ use warnings;
 
 use Test::More;
 
-use URI::file;
+use URI::file ();
 $URI::file::DEFAULT_AUTHORITY = undef;
 
 my @tests =  (
diff --git a/t/old-relbase.t b/t/old-relbase.t
index c679880..54cb743 100644
--- a/t/old-relbase.t
+++ b/t/old-relbase.t
@@ -3,7 +3,7 @@ use warnings;
 
 use Test::More tests => 5;
 
-use URI::URL qw(url);
+use URI::URL qw( url );
 
 # We used to have problems with URLs that used a base that was
 # not absolute itself.
diff --git a/t/punycode.t b/t/punycode.t
index 36d8e96..070632b 100644
--- a/t/punycode.t
+++ b/t/punycode.t
@@ -3,7 +3,7 @@ use warnings;
 
 use utf8;
 use Test::More tests => 15;
-use URI::_punycode qw(decode_punycode encode_punycode);
+use URI::_punycode qw( decode_punycode encode_punycode );
 
 my %RFC_3492 = (
     A => {
diff --git a/t/roy-test.t b/t/roy-test.t
index d2b78f4..9f5ac26 100644
--- a/t/roy-test.t
+++ b/t/roy-test.t
@@ -4,7 +4,7 @@ use warnings;
 use Test::More tests => 102;
 
 use URI ();
-use File::Spec::Functions qw(catfile);
+use File::Spec::Functions qw( catfile );
 
 my $no = 1;
 
diff --git a/t/split.t b/t/split.t
index 310d93e..34104c9 100644
--- a/t/split.t
+++ b/t/split.t
@@ -3,7 +3,7 @@ use warnings;
 
 use Test::More tests => 17;
 
-use URI::Split qw(uri_join uri_split);
+use URI::Split qw( uri_join uri_split );
 
 sub j { join("-", map { defined($_) ? $_ : "<undef>" } @_) }
 
diff --git a/t/storable-test.pl b/t/storable-test.pl
index 63ca5b1..0660de2 100644
--- a/t/storable-test.pl
+++ b/t/storable-test.pl
@@ -1,6 +1,6 @@
 use strict;
 use warnings;
-use Storable;
+use Storable qw( retrieve store );
 
 if (@ARGV && $ARGV[0] eq "store") {
     require URI;
diff --git a/t/utf8.t b/t/utf8.t
index 1e26864..81e2bd4 100644
--- a/t/utf8.t
+++ b/t/utf8.t
@@ -14,7 +14,7 @@ is( $uri->query, "mooi%E2%82%ACe=mooi%E2%82%ACe" );
 is( ($uri->query_form)[1], "mooi\xE2\x82\xACe" );
 
 # RT#70161
-use Encode qw(decode_utf8);
+use Encode qw( decode_utf8 );
 $uri = URI->new(decode_utf8 '?Query=%C3%A4%C3%B6%C3%BC');
 is( ($uri->query_form)[1], "\xC3\xA4\xC3\xB6\xC3\xBC");
 is( decode_utf8(($uri->query_form)[1]), 'äöü');
-- 
cgit v1.2.1