Prefer "use Exporter qw(import)" to inheriting from it

Signed-off-by: Niels Thykier <niels@thykier.net>

diff --git a/Debbugs/Bugs.pm b/Debbugs/Bugs.pm
index e4f8cc8825e7fc887949a17c213d2a3115e7f548..e678aff43c1274e339e8e6d38c3d03e172a578e7 100644 (file)
--- a/Debbugs/Bugs.pm
+++ b/Debbugs/Bugs.pm
@@ -38,7 +38,7 @@ incomplete) to slowest (and most complete).]
 use warnings;
 use strict;
 use vars qw($VERSION $DEBUG %EXPORT_TAGS @EXPORT_OK @EXPORT);
-use base qw(Exporter);
+use Exporter qw(import);
 
 BEGIN{
      $VERSION = 1.00;

diff --git a/Debbugs/CGI.pm b/Debbugs/CGI.pm
index 34646b81489e4ae8c4f0e5c2a54dfe55ea7b3a0a..d97dc2b940fa4a25390deb0c7ecee751fd413513 100644 (file)
--- a/Debbugs/CGI.pm
+++ b/Debbugs/CGI.pm
@@ -34,7 +34,7 @@ None known.
 use warnings;
 use strict;
 use vars qw($VERSION $DEBUG %EXPORT_TAGS @EXPORT_OK @EXPORT);
-use base qw(Exporter);
+use Exporter qw(import);
 
 use Debbugs::URI;
 use HTML::Entities;

diff --git a/Debbugs/CGI/Bugreport.pm b/Debbugs/CGI/Bugreport.pm
index 8ebbfe8341a64e72f1ef1ad9643d4c437c6f8706..9ca67ed4ac6dbf243f749ac931d7799d92c8228a 100644 (file)
--- a/Debbugs/CGI/Bugreport.pm
+++ b/Debbugs/CGI/Bugreport.pm
@@ -28,7 +28,7 @@ None known.
 use warnings;
 use strict;
 use vars qw($VERSION $DEBUG %EXPORT_TAGS @EXPORT_OK @EXPORT);
-use base qw(Exporter);
+use Exporter qw(import);
 
 use IO::Scalar;
 use Params::Validate qw(validate_with :types);

diff --git a/Debbugs/CGI/Pkgreport.pm b/Debbugs/CGI/Pkgreport.pm
index 3b96744269a88862fe942de876c6b978a87508d6..3e9cb3f86ebccf08404dd2e2a370e686f5c7cccc 100644 (file)
--- a/Debbugs/CGI/Pkgreport.pm
+++ b/Debbugs/CGI/Pkgreport.pm
@@ -28,7 +28,7 @@ None known.
 use warnings;
 use strict;
 use vars qw($VERSION $DEBUG %EXPORT_TAGS @EXPORT_OK @EXPORT);
-use base qw(Exporter);
+use Exporter qw(import);
 
 use IO::Scalar;
 use Params::Validate qw(validate_with :types);

diff --git a/Debbugs/Common.pm b/Debbugs/Common.pm
index 6deaf4a73a400f8602fb1f601bd0371106636eb2..2bc3e0dfe3280143f0243b6ae8df189376ead1a7 100644 (file)
--- a/Debbugs/Common.pm
+++ b/Debbugs/Common.pm
@@ -31,7 +31,7 @@ with equivalent (or better) functionality here.
 use warnings;
 use strict;
 use vars qw($VERSION $DEBUG %EXPORT_TAGS @EXPORT_OK @EXPORT);
-use base qw(Exporter);
+use Exporter qw(import);
 
 BEGIN{
      $VERSION = 1.00;

diff --git a/Debbugs/Control.pm b/Debbugs/Control.pm
index 49b902e62b00e6358550df57fd0efbb8ca0b98fc..226cd1f8c57f2b8ebfeaf5a0a0f918da35f99ae5 100644 (file)
--- a/Debbugs/Control.pm
+++ b/Debbugs/Control.pm
@@ -75,7 +75,7 @@ is true, the above options must be present, and their values are used.
 use warnings;
 use strict;
 use vars qw($VERSION $DEBUG %EXPORT_TAGS @EXPORT_OK @EXPORT);
-use base qw(Exporter);
+use Exporter qw(import);
 
 BEGIN{
      $VERSION = 1.00;

diff --git a/Debbugs/Control/Service.pm b/Debbugs/Control/Service.pm
index 520db3eb7820bfb9133638c9c266b09e5f712d80..42f3801e90758151e2e6ad88840c967e36be0ece 100644 (file)
--- a/Debbugs/Control/Service.pm
+++ b/Debbugs/Control/Service.pm
@@ -75,7 +75,7 @@ is true, the above options must be present, and their values are used.
 use warnings;
 use strict;
 use vars qw($VERSION $DEBUG %EXPORT_TAGS @EXPORT_OK @EXPORT);
-use base qw(Exporter);
+use Exporter qw(import);
 
 BEGIN{
      $VERSION = 1.00;

diff --git a/Debbugs/Estraier.pm b/Debbugs/Estraier.pm
index 5987fe9ec5ddf1f5485157fa407b5444573fb0c1..7ada02d77302b1cf8875e9675aba8a6d4ded7fd7 100644 (file)
--- a/Debbugs/Estraier.pm
+++ b/Debbugs/Estraier.pm
@@ -28,7 +28,7 @@ None known.
 use warnings;
 use strict;
 use vars qw($VERSION $DEBUG %EXPORT_TAGS @EXPORT_OK @EXPORT);
-use base qw(Exporter);
+use Exporter qw(import);
 use Debbugs::Log;
 use Search::Estraier;
 use Debbugs::Common qw(getbuglocation getbugcomponent make_list);

diff --git a/Debbugs/Libravatar.pm b/Debbugs/Libravatar.pm
index 8dcbad09033055b925a631b077005c4b89163014..d0510900eda0c43ce001991a8229df6815fde89b 100644 (file)
--- a/Debbugs/Libravatar.pm
+++ b/Debbugs/Libravatar.pm
@@ -31,7 +31,7 @@ None known.
 use warnings;
 use strict;
 use vars qw($VERSION $DEBUG %EXPORT_TAGS @EXPORT_OK @EXPORT);
-use base qw(Exporter);
+use Exporter qw(import);
 
 use Debbugs::Config qw(:config);
 use Debbugs::Common qw(:lock);

diff --git a/Debbugs/Log.pm b/Debbugs/Log.pm
index 6ff8ab22357bef3817fc6dfaf6c7600a960b1acb..5a7306de38ecfd5ecee354e06961aad60610badd 100644 (file)
--- a/Debbugs/Log.pm
+++ b/Debbugs/Log.pm
@@ -16,7 +16,7 @@ use warnings;
 use strict;
 
 use vars qw($VERSION $DEBUG @EXPORT @EXPORT_OK %EXPORT_TAGS);
-use base qw(Exporter);
+use Exporter qw(import);
 
 BEGIN {
     $VERSION = 1.00;

diff --git a/Debbugs/MIME.pm b/Debbugs/MIME.pm
index aae3b58d9b543329655433c20cda808333bf06c1..f114c680ba1a5b1d42639f71ce726d5a83b41a6d 100644 (file)
--- a/Debbugs/MIME.pm
+++ b/Debbugs/MIME.pm
@@ -32,7 +32,7 @@ None known.
 use warnings;
 use strict;
 
-use base qw(Exporter);
+use Exporter qw(import);
 use vars qw($DEBUG $VERSION @EXPORT_OK %EXPORT_TAGS @EXPORT);
 
 BEGIN {

diff --git a/Debbugs/Mail.pm b/Debbugs/Mail.pm
index 68e88a1dccc7258574fb1bb61d74081688a55e6d..01ae327798fd41e7f8c2e7125615b3c6ce456338 100644 (file)
--- a/Debbugs/Mail.pm
+++ b/Debbugs/Mail.pm
@@ -39,7 +39,7 @@ END
 use warnings;
 use strict;
 use vars qw($VERSION $DEBUG %EXPORT_TAGS @EXPORT_OK @EXPORT);
-use base qw(Exporter);
+use Exporter qw(import);
 
 use IPC::Open3;
 use POSIX qw(:sys_wait_h strftime);

diff --git a/Debbugs/Packages.pm b/Debbugs/Packages.pm
index 62d26827ab10e037df67d27e4e2c8e71493c0c75..f2ba789b14d1c0ccd149dddcf7172a49b351969a 100644 (file)
--- a/Debbugs/Packages.pm
+++ b/Debbugs/Packages.pm
@@ -12,7 +12,7 @@ package Debbugs::Packages;
 use warnings;
 use strict;
 
-use base qw(Exporter);
+use Exporter qw(import);
 use vars qw($VERSION @EXPORT_OK %EXPORT_TAGS @EXPORT);
 
 use Carp;

diff --git a/Debbugs/Recipients.pm b/Debbugs/Recipients.pm
index ae739e973647ef74d2641dfe60b61dacf666093d..f9b2c7329c2c9ab91c65a3a5953dbc6d32c30094 100644 (file)
--- a/Debbugs/Recipients.pm
+++ b/Debbugs/Recipients.pm
@@ -25,7 +25,7 @@ None known.
 use warnings;
 use strict;
 use vars qw($VERSION $DEBUG %EXPORT_TAGS @EXPORT_OK @EXPORT);
-use base qw(Exporter);
+use Exporter qw(import);
 
 BEGIN{
      ($VERSION) = q$Revision: 1221 $ =~ /^Revision:\s+([^\s+])/;

diff --git a/Debbugs/SOAP.pm b/Debbugs/SOAP.pm
index f87581e60c07af74150cacce8a633be362afb79d..7508e9414da28e2a260783dc2e2cb6a0baebc154 100644 (file)
--- a/Debbugs/SOAP.pm
+++ b/Debbugs/SOAP.pm
@@ -25,7 +25,8 @@ use warnings;
 use strict;
 use vars qw($DEBUG %EXPORT_TAGS @EXPORT_OK @EXPORT);
 use Debbugs::SOAP::Server;
-use base qw(Exporter SOAP::Server::Parameters);
+use Exporter qw(import);
+use base qw(SOAP::Server::Parameters);
 
 BEGIN{
      $DEBUG = 0 unless defined $DEBUG;

diff --git a/Debbugs/Status.pm b/Debbugs/Status.pm
index 26fbcc23b9ee136de484c0994d6f5fdc57b65eae..72e9ae65a05dd37c9877dbed32a2233ef5bc0153 100644 (file)
--- a/Debbugs/Status.pm
+++ b/Debbugs/Status.pm
@@ -34,7 +34,7 @@ use warnings;
 use strict;
 
 use vars qw($VERSION $DEBUG %EXPORT_TAGS @EXPORT_OK @EXPORT);
-use base qw(Exporter);
+use Exporter qw(import);
 
 use Params::Validate qw(validate_with :types);
 use Debbugs::Common qw(:util :lock :quit :misc);

diff --git a/Debbugs/Text.pm b/Debbugs/Text.pm
index 353392013c90e621780d1febc76290e40954d075..21bde013adbdf4035a3b8d79b712d8be763b6129 100644 (file)
--- a/Debbugs/Text.pm
+++ b/Debbugs/Text.pm
@@ -33,7 +33,7 @@ None known.
 
 
 use vars qw($DEBUG $VERSION @EXPORT_OK %EXPORT_TAGS @EXPORT @ISA);
-use base qw(Exporter);
+use Exporter qw(import);
 
 BEGIN {
      $VERSION = 1.00;

diff --git a/Debbugs/UTF8.pm b/Debbugs/UTF8.pm
index 0c4d33619dce695ab2de3b0a6c6bd1eba97fba94..c4067f5e183cec5d2ae70f0fffc53682608fda48 100644 (file)
--- a/Debbugs/UTF8.pm
+++ b/Debbugs/UTF8.pm
@@ -28,7 +28,7 @@ charsets to UTF8.
 use warnings;
 use strict;
 use vars qw($VERSION $DEBUG %EXPORT_TAGS @EXPORT_OK @EXPORT);
-use base qw(Exporter);
+use Exporter qw(import);
 
 BEGIN{
      $VERSION = 1.00;

diff --git a/Debbugs/User.pm b/Debbugs/User.pm
index 6ea171c0064d620bf59abe686272483187096d87..c25b35aa9506754a4d946146a27a87d613cd2052 100644 (file)
--- a/Debbugs/User.pm
+++ b/Debbugs/User.pm
@@ -83,7 +83,7 @@ use warnings;
 use strict;
 use Fcntl ':flock';
 use vars qw($VERSION $DEBUG %EXPORT_TAGS @EXPORT_OK @EXPORT);
-use base qw(Exporter);
+use Exporter qw(import);
 
 use Debbugs::Config qw(:config);
 use List::Util qw(min);