Skip to content

Commit a2492d6

Browse files
maukemauke
committed
remove indirect calls to import() method
... i.e. turn `import Foo "bar"` into `Foo->import("bar")`.
1 parent 5c271c5 commit a2492d6

Some content is hidden

Large Commits have some content hidden by default. Use the searchbox below for content that may be hidden.

75 files changed

+85
-85
lines changed

‎configpm

+1-1
Original file line numberDiff line numberDiff line change
@@ -1199,7 +1199,7 @@ if ($orig_config_txt ne $config_txt or $orig_heavy_txt ne $heavy_txt) {
11991199
unshift(@INC,'lib');
12001200
require $Config_PM;
12011201
require $Config_heavy;
1202-
import Config;
1202+
Config->import;
12031203

12041204
die "$0: $Config_PM not valid"
12051205
unless $Config{'PERL_CONFIG_SH'} eq 'true';

‎dist/Devel-PPPort/parts/inc/podtest

+1-1
Original file line numberDiff line numberDiff line change
@@ -24,7 +24,7 @@ else {
2424
use Test::Pod;
2525
$Test::Pod::VERSION >= 1.41
2626
or die "Test::Pod version only $Test::Pod::VERSION";
27-
import Test::Pod tests => scalar @pods;
27+
Test::Pod->import(tests => scalar @pods);
2828
};
2929
$reason = 'Test::Pod >= 1.41 required' if $@;
3030
}

‎dist/Exporter/t/Exporter.t

+1-1
Original file line numberDiff line numberDiff line change
@@ -248,7 +248,7 @@ sub TIESCALAR{bless[]}
248248
{
249249
tie my $t, __PACKAGE__;
250250
for($t) { # $_ is now tied
251-
import Exporter::for::Tied::_;
251+
Exporter::for::Tied::_->import;
252252
}
253253
}
254254
::ok(1, 'import with tied $_');

‎dist/ExtUtils-CBuilder/t/00-have-compiler.t

+1-1
Original file line numberDiff line numberDiff line change
@@ -13,7 +13,7 @@ BEGIN {
1313
if ($^O eq 'VMS') {
1414
# So we can get the return value of system()
1515
require vmsish;
16-
import vmsish;
16+
vmsish->import;
1717
}
1818
}
1919

‎dist/ExtUtils-CBuilder/t/01-basic.t

+1-1
Original file line numberDiff line numberDiff line change
@@ -6,7 +6,7 @@ BEGIN {
66
if ($^O eq 'VMS') {
77
# So we can get the return value of system()
88
require vmsish;
9-
import vmsish;
9+
vmsish->import;
1010
}
1111
}
1212
use ExtUtils::CBuilder;

‎dist/ExtUtils-CBuilder/t/02-link.t

+1-1
Original file line numberDiff line numberDiff line change
@@ -6,7 +6,7 @@ BEGIN {
66
if ($^O eq 'VMS') {
77
# So we can get the return value of system()
88
require vmsish;
9-
import vmsish;
9+
vmsish->import;
1010
}
1111
}
1212
use ExtUtils::CBuilder;

‎dist/ExtUtils-CBuilder/t/03-cplusplus.t

+1-1
Original file line numberDiff line numberDiff line change
@@ -6,7 +6,7 @@ BEGIN {
66
if ($^O eq 'VMS') {
77
# So we can get the return value of system()
88
require vmsish;
9-
import vmsish;
9+
vmsish->import;
1010
}
1111
}
1212
use ExtUtils::CBuilder;

‎dist/I18N-Collate/t/I18N-Collate.t

+1-1
Original file line numberDiff line numberDiff line change
@@ -7,7 +7,7 @@ use strict;
77
no warnings;
88

99
BEGIN {
10-
require Config; import Config;
10+
require Config; Config->import;
1111
if (!$::Config{d_setlocale} || $::Config{ccflags} =~ /\bD?NO_LOCALE\b/) {
1212
print "1..0\n";
1313
exit;

‎dist/Safe/t/safe1.t

+1-1
Original file line numberDiff line numberDiff line change
@@ -1,7 +1,7 @@
11
#!./perl -w
22
$|=1;
33
BEGIN {
4-
require Config; import Config;
4+
require Config; Config->import;
55
if ($Config{'extensions'} !~ /\bOpcode\b/ && $Config{'osname'} ne 'VMS') {
66
print "1..0\n";
77
exit 0;

‎dist/Safe/t/safe2.t

+1-1
Original file line numberDiff line numberDiff line change
@@ -1,7 +1,7 @@
11
#!./perl -w
22
$|=1;
33
BEGIN {
4-
require Config; import Config;
4+
require Config; Config->import;
55
if ($Config{'extensions'} !~ /\bOpcode\b/ && $Config{'osname'} ne 'VMS') {
66
print "1..0\n";
77
exit 0;

‎dist/Safe/t/safe3.t

+1-1
Original file line numberDiff line numberDiff line change
@@ -1,7 +1,7 @@
11
#!perl -w
22

33
BEGIN {
4-
require Config; import Config;
4+
require Config; Config->import;
55
if ($Config{'extensions'} !~ /\bOpcode\b/
66
&& $Config{'extensions'} !~ /\bPOSIX\b/
77
&& $Config{'osname'} ne 'VMS')

‎dist/Safe/t/safeload.t

+1-1
Original file line numberDiff line numberDiff line change
@@ -2,7 +2,7 @@
22

33
BEGIN {
44
require Config;
5-
import Config;
5+
Config->import;
66
if ($Config{'extensions'} !~ /\bOpcode\b/) {
77
print "1..0\n";
88
exit 0;

‎dist/Safe/t/safenamedcap.t

+1-1
Original file line numberDiff line numberDiff line change
@@ -4,7 +4,7 @@ BEGIN {
44
exit 0;
55
}
66
require Config;
7-
import Config;
7+
Config->import;
88
if ($Config{'extensions'} !~ /\bOpcode\b/) {
99
print "1..0\n";
1010
exit 0;

‎dist/Safe/t/saferegexp.t

+1-1
Original file line numberDiff line numberDiff line change
@@ -1,7 +1,7 @@
11
#!perl -w
22

33
BEGIN {
4-
require Config; import Config;
4+
require Config; Config->import;
55
if ($Config{'extensions'} !~ /\bOpcode\b/) {
66
print "1..0\n";
77
exit 0;

‎dist/Safe/t/safesecurity.t

+1-1
Original file line numberDiff line numberDiff line change
@@ -2,7 +2,7 @@
22

33
BEGIN {
44
require Config;
5-
import Config;
5+
Config->import;
66
if ($Config{'extensions'} !~ /\bOpcode\b/) {
77
print "1..0\n";
88
exit 0;

‎dist/Safe/t/safesig.t

+1-1
Original file line numberDiff line numberDiff line change
@@ -2,7 +2,7 @@
22

33
BEGIN {
44
require Config;
5-
import Config;
5+
Config->import;
66
if ($Config{'extensions'} !~ /\bOpcode\b/) {
77
print "1..0\n";
88
exit 0;

‎dist/Safe/t/safesort.t

+1-1
Original file line numberDiff line numberDiff line change
@@ -1,7 +1,7 @@
11
#!perl -w
22
$|=1;
33
BEGIN {
4-
require Config; import Config;
4+
require Config; Config->import;
55
if ($Config{'extensions'} !~ /\bOpcode\b/ && $Config{'osname'} ne 'VMS') {
66
print "1..0\n";
77
exit 0;

‎dist/Safe/t/safeuniversal.t

+1-1
Original file line numberDiff line numberDiff line change
@@ -2,7 +2,7 @@
22

33
BEGIN {
44
require Config;
5-
import Config;
5+
Config->import;
66
if ($Config{'extensions'} !~ /\bOpcode\b/) {
77
print "1..0\n";
88
exit 0;

‎dist/Safe/t/safeutf8.t

+1-1
Original file line numberDiff line numberDiff line change
@@ -1,7 +1,7 @@
11
#!perl -w
22
$|=1;
33
BEGIN {
4-
require Config; import Config;
4+
require Config; Config->import;
55
if ($Config{'extensions'} !~ /\bOpcode\b/ && $Config{'osname'} ne 'VMS') {
66
print "1..0\n";
77
exit 0;

‎dist/Safe/t/safewrap.t

+1-1
Original file line numberDiff line numberDiff line change
@@ -2,7 +2,7 @@
22

33
$|=1;
44
BEGIN {
5-
require Config; import Config;
5+
require Config; Config->import;
66
if ($Config{'extensions'} !~ /\bOpcode\b/ && $Config{'osname'} ne 'VMS') {
77
print "1..0\n";
88
exit 0;

‎dist/autouse/t/autouse.t

+1-1
Original file line numberDiff line numberDiff line change
@@ -91,7 +91,7 @@ SKIP: {
9191
is $w, undef,
9292
'no redefinition warning when clobbering autouse stub with new sub';
9393
undef $w;
94-
import MyTestModule2 'test_function2';
94+
MyTestModule2->import('test_function2');
9595
is $w, undef,
9696
'no redefinition warning when clobbering autouse stub via *a=\&b';
9797
}

‎dist/threads/lib/threads.pm

+3-3
Original file line numberDiff line numberDiff line change
@@ -5,7 +5,7 @@ use 5.008;
55
use strict;
66
use warnings;
77

8-
our $VERSION = '2.42'; # remember to update version in POD!
8+
our $VERSION = '2.43'; # remember to update version in POD!
99
my $XS_VERSION = $VERSION;
1010
#$VERSION = eval $VERSION;
1111

@@ -56,7 +56,7 @@ sub import
5656
}
5757

5858
} elsif ($sym =~ /^str/i) {
59-
import overload ('""' => \&tid);
59+
overload->import('""' => \&tid);
6060

6161
} elsif ($sym =~ /^(?::all|yield)$/) {
6262
push(@EXPORT, qw(yield));
@@ -134,7 +134,7 @@ threads - Perl interpreter-based threads
134134
135135
=head1 VERSION
136136
137-
This document describes threads version 2.42
137+
This document describes threads version 2.43
138138
139139
=head1 WARNING
140140

‎ext/Devel-Peek/t/Peek.t

+1-1
Original file line numberDiff line numberDiff line change
@@ -1,7 +1,7 @@
11
#!./perl -T
22

33
BEGIN {
4-
require Config; import Config;
4+
require Config; Config->import;
55
if ($Config{'extensions'} !~ /\bDevel\/Peek\b/) {
66
print "1..0 # Skip: Devel::Peek was not built\n";
77
exit 0;

‎ext/Fcntl/t/syslfs.t

+2-2
Original file line numberDiff line numberDiff line change
@@ -3,13 +3,13 @@
33
# If you modify/add tests here, remember to update also t/op/lfs.t.
44

55
BEGIN {
6-
require Config; import Config;
6+
require Config; Config->import;
77
# Don't bother if there are no quad offsets.
88
if ($Config{lseeksize} < 8) {
99
print "1..0 # Skip: no 64-bit file offsets\n";
1010
exit(0);
1111
}
12-
require Fcntl; import Fcntl qw(/^O_/ /^SEEK_/);
12+
require Fcntl; Fcntl->import(qw(/^O_/ /^SEEK_/));
1313
}
1414

1515
use strict;

‎ext/File-DosGlob/t/DosGlob.t

+1-1
Original file line numberDiff line numberDiff line change
@@ -143,7 +143,7 @@ if ($cwd =~ /^([a-zA-Z]:)/) {
143143
SKIP: {
144144
require Config;
145145
skip "no XS::APItest"
146-
unless eval { require XS::APItest; import XS::APItest "sv_count"; 1 };
146+
unless eval { require XS::APItest; XS::APItest->import("sv_count"); 1 };
147147
# Use a random number of ops, so that the glob op does not reuse the
148148
# same address each time, giving us false passes.
149149
my($count,$count2);

‎ext/File-Glob/t/basic.t

+1-1
Original file line numberDiff line numberDiff line change
@@ -3,7 +3,7 @@
33
BEGIN {
44
chdir 't' if -d 't';
55
@INC = '../lib';
6-
require Config; import Config;
6+
require Config; Config->import;
77
if ($Config{'extensions'} !~ /\bFile\/Glob\b/i) {
88
print "1..0\n";
99
exit 0;

‎ext/File-Glob/t/case.t

+3-3
Original file line numberDiff line numberDiff line change
@@ -3,7 +3,7 @@
33
BEGIN {
44
chdir 't' if -d 't';
55
@INC = '../lib';
6-
require Config; import Config;
6+
require Config; Config->import;
77
if ($Config{'extensions'} !~ /\bFile\/Glob\b/i) {
88
print "1..0\n";
99
exit 0;
@@ -18,12 +18,12 @@ BEGIN {
1818

1919
my $pat = "op/G*.t";
2020

21-
import File::Glob ':nocase';
21+
File::Glob->import(':nocase');
2222
@a = csh_glob($pat);
2323
cmp_ok(scalar @a, '>=', 8, 'use of the case sensitivity tags, via csh_glob()');
2424

2525
# This may fail on systems which are not case-PRESERVING
26-
import File::Glob ':case';
26+
File::Glob->import(':case');
2727
@a = csh_glob($pat);
2828
is(scalar @a, 0, 'None should be uppercase');
2929

‎ext/File-Glob/t/global.t

+1-1
Original file line numberDiff line numberDiff line change
@@ -3,7 +3,7 @@
33
BEGIN {
44
chdir 't' if -d 't';
55
@INC = '../lib';
6-
require Config; import Config;
6+
require Config; Config->import;
77
if ($Config{'extensions'} !~ /\bFile\/Glob\b/i) {
88
print "1..0\n";
99
exit 0;

‎ext/File-Glob/t/taint.t

+1-1
Original file line numberDiff line numberDiff line change
@@ -3,7 +3,7 @@
33
BEGIN {
44
chdir 't' if -d 't';
55
@INC = '../lib';
6-
require Config; import Config;
6+
require Config; Config->import;
77
if ($Config{'extensions'} !~ /\bFile\/Glob\b/i) {
88
print "1..0\n";
99
exit 0;

‎ext/File-Glob/t/threads.t

+1-1
Original file line numberDiff line numberDiff line change
@@ -3,7 +3,7 @@
33
BEGIN {
44
chdir 't' if -d 't';
55
@INC = '../lib';
6-
require Config; import Config;
6+
require Config; Config->import;
77
if ($Config{'extensions'} !~ /\bFile\/Glob\b/i) {
88
print "1..0\n";
99
exit 0;

‎ext/Hash-Util/t/Util.t

+1-1
Original file line numberDiff line numberDiff line change
@@ -2,7 +2,7 @@
22

33
BEGIN {
44
if ($ENV{PERL_CORE}) {
5-
require Config; import Config;
5+
require Config; Config->import;
66
no warnings 'once';
77
if ($Config{extensions} !~ /\bHash\/Util\b/) {
88
print "1..0 # Skip: Hash::Util was not built\n";

‎ext/IPC-Open3/t/IPC-Open3.t

+1-1
Original file line numberDiff line numberDiff line change
@@ -1,7 +1,7 @@
11
#!./perl -w
22

33
BEGIN {
4-
require Config; import Config;
4+
require Config; Config->import;
55
if (!$Config{'d_fork'}
66
# open2/3 supported on win32
77
&& $^O ne 'MSWin32')

‎ext/Opcode/t/Opcode.t

+1-1
Original file line numberDiff line numberDiff line change
@@ -3,7 +3,7 @@
33
$|=1;
44

55
BEGIN {
6-
require Config; import Config;
6+
require Config; Config->import;
77
if ($Config{'extensions'} !~ /\bOpcode\b/ && $Config{'osname'} ne 'VMS') {
88
print "1..0\n";
99
exit 0;

‎ext/Opcode/t/ops.t

+1-1
Original file line numberDiff line numberDiff line change
@@ -1,7 +1,7 @@
11
#!./perl
22

33
BEGIN {
4-
require Config; import Config;
4+
require Config; Config->import;
55
if ($Config{'extensions'} !~ /\bOpcode\b/ && $Config{'osname'} ne 'VMS') {
66
print "1..0\n";
77
exit 0;

‎ext/POSIX/t/mb.t

+1-1
Original file line numberDiff line numberDiff line change
@@ -8,7 +8,7 @@
88
# with the correct LC_CTYPE set in the environment.
99

1010
BEGIN {
11-
require Config; import Config;
11+
require Config; Config->import;
1212
if ($^O ne 'VMS' and $Config{'extensions'} !~ /\bPOSIX\b/) {
1313
print "1..0\n";
1414
exit 0;

‎ext/POSIX/t/posix.t

+1-1
Original file line numberDiff line numberDiff line change
@@ -1,7 +1,7 @@
11
#!./perl
22

33
BEGIN {
4-
require Config; import Config;
4+
require Config; Config->import;
55
if ($^O ne 'VMS' and $Config{'extensions'} !~ /\bPOSIX\b/) {
66
print "1..0\n";
77
exit 0;

‎ext/POSIX/t/taint.t

+1-1
Original file line numberDiff line numberDiff line change
@@ -1,7 +1,7 @@
11
#!./perl -Tw
22

33
BEGIN {
4-
require Config; import Config;
4+
require Config; Config->import;
55
if ($^O ne 'VMS' and $Config{'extensions'} !~ /\bPOSIX\b/) {
66
print "1..0\n";
77
exit 0;

‎ext/PerlIO-encoding/t/fallback.t

+1-1
Original file line numberDiff line numberDiff line change
@@ -13,7 +13,7 @@ BEGIN {
1313
print "1..0 # Skip: No Encode\n";
1414
exit 0;
1515
}
16-
import Encode qw(:fallback_all);
16+
Encode->import(qw(:fallback_all));
1717
}
1818

1919
use Test::More tests => 10;

‎ext/Sys-Hostname/t/Hostname.t

+1-1
Original file line numberDiff line numberDiff line change
@@ -1,7 +1,7 @@
11
#!./perl
22

33
BEGIN {
4-
require Config; import Config;
4+
require Config; Config->import;
55
if ($Config{'extensions'} !~ /\bSys\/Hostname\b/) {
66
print "1..0 # Skip: Sys::Hostname was not built\n";
77
exit 0;

0 commit comments

Comments
 (0)