remove indirect calls to import() method

... i.e. turn `import Foo "bar"` into `Foo->import("bar")`.

Author: mauke

configpm

@@ -1199,7 +1199,7 @@ if ($orig_config_txt ne $config_txt or $orig_heavy_txt ne $heavy_txt) {
 unshift(@INC,'lib');
 require $Config_PM;
 require $Config_heavy;
-import Config;
+Config->import;
 
 die "$0: $Config_PM not valid"
 	unless $Config{'PERL_CONFIG_SH'} eq 'true';

dist/Devel-PPPort/parts/inc/podtest

@@ -24,7 +24,7 @@ else {
     use Test::Pod;
     $Test::Pod::VERSION >= 1.41
         or die "Test::Pod version only $Test::Pod::VERSION";
-    import Test::Pod tests => scalar @pods;
+    Test::Pod->import(tests => scalar @pods);
   };
   $reason = 'Test::Pod >= 1.41 required' if $@;
 }

dist/Exporter/t/Exporter.t

@@ -248,7 +248,7 @@ sub TIESCALAR{bless[]}
 {
  tie my $t, __PACKAGE__;
  for($t) { # $_ is now tied
-  import Exporter::for::Tied::_;
+  Exporter::for::Tied::_->import;
  }
 }
 ::ok(1, 'import with tied $_');

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

@@ -13,7 +13,7 @@ BEGIN {
   if ($^O eq 'VMS') {
     # So we can get the return value of system()
     require vmsish;
-    import vmsish;
+    vmsish->import;
   }
 }
 

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

@@ -6,7 +6,7 @@ BEGIN {
   if ($^O eq 'VMS') {
     # So we can get the return value of system()
     require vmsish;
-    import vmsish;
+    vmsish->import;
   }
 }
 use ExtUtils::CBuilder;

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

@@ -6,7 +6,7 @@ BEGIN {
   if ($^O eq 'VMS') {
     # So we can get the return value of system()
     require vmsish;
-    import vmsish;
+    vmsish->import;
   }
 }
 use ExtUtils::CBuilder;

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

@@ -6,7 +6,7 @@ BEGIN {
   if ($^O eq 'VMS') {
     # So we can get the return value of system()
     require vmsish;
-    import vmsish;
+    vmsish->import;
   }
 }
 use ExtUtils::CBuilder;

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

@@ -7,7 +7,7 @@ use strict;
 no warnings;
 
 BEGIN {
-    require Config; import Config;
+    require Config; Config->import;
     if (!$::Config{d_setlocale} || $::Config{ccflags} =~ /\bD?NO_LOCALE\b/) {
 	print "1..0\n";
 	exit;

dist/Safe/t/safe1.t

@@ -1,7 +1,7 @@
 #!./perl -w
 $|=1;
 BEGIN {
-    require Config; import Config;
+    require Config; Config->import;
     if ($Config{'extensions'} !~ /\bOpcode\b/ && $Config{'osname'} ne 'VMS') {
         print "1..0\n";
         exit 0;

dist/Safe/t/safe2.t

@@ -1,7 +1,7 @@
 #!./perl -w
 $|=1;
 BEGIN {
-    require Config; import Config;
+    require Config; Config->import;
     if ($Config{'extensions'} !~ /\bOpcode\b/ && $Config{'osname'} ne 'VMS') {
         print "1..0\n";
         exit 0;