From: Ian Jackson <ian.jackson@eu.citrix.com>
Date: Tue, 22 Jan 2019 14:43:29 +0000 (+0000)
Subject: power: Osstest::PDU::*: drop Exporter blocks
X-Git-Url: http://xenbits.xensource.com/gitweb?a=commitdiff_plain;h=0ef4979bc766f69b8e1d7266753d872438712358;p=osstest.git

power: Osstest::PDU::*: drop Exporter blocks

This is all very obsolete.  These that we are removing are all empty,
and nowadays perl has `use parent'.  These changes are all textually
identical.

We will do ipmi_try in a moment: that one is special as it actually
has a parent module.

Signed-off-by: Ian Jackson <ian.jackson@eu.citrix.com>
---

diff --git a/Osstest/PDU/eth008.pm b/Osstest/PDU/eth008.pm
index 12f0bfb..bd57edb 100644
--- a/Osstest/PDU/eth008.pm
+++ b/Osstest/PDU/eth008.pm
@@ -23,17 +23,6 @@ use Osstest;
 use Osstest::TestSupport;
 use LWP::UserAgent;
 
-BEGIN {
-    use Exporter ();
-    our ($VERSION, @ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS);
-    $VERSION     = 1.00;
-    @ISA         = qw(Exporter);
-    @EXPORT      = qw();
-    %EXPORT_TAGS = ( );
-
-    @EXPORT_OK   = qw();
-}
-
 sub new {
     my ($class, $ho, $methname, $pdu, $user, $pass, $port, @opts) = @_;
     return bless { Host => $ho,
diff --git a/Osstest/PDU/guest.pm b/Osstest/PDU/guest.pm
index b708af5..61d9dcd 100755
--- a/Osstest/PDU/guest.pm
+++ b/Osstest/PDU/guest.pm
@@ -25,17 +25,6 @@ use Osstest;
 use Osstest::TestSupport;
 use IO::File;
 
-BEGIN {
-    use Exporter ();
-    our ($VERSION, @ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS);
-    $VERSION     = 1.00;
-    @ISA         = qw(Exporter);
-    @EXPORT      = qw();
-    %EXPORT_TAGS = ( );
-
-    @EXPORT_OK   = qw();
-}
-
 sub new {
     my ($class, $ho) = @_;
     return bless { Target => $ho }, $class;
diff --git a/Osstest/PDU/ipmi.pm b/Osstest/PDU/ipmi.pm
index d411d97..ceb4cf0 100644
--- a/Osstest/PDU/ipmi.pm
+++ b/Osstest/PDU/ipmi.pm
@@ -23,17 +23,6 @@ use Osstest;
 use Osstest::TestSupport;
 use IO::File;
 
-BEGIN {
-    use Exporter ();
-    our ($VERSION, @ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS);
-    $VERSION     = 1.00;
-    @ISA         = qw(Exporter);
-    @EXPORT      = qw();
-    %EXPORT_TAGS = ( );
-
-    @EXPORT_OK   = qw();
-}
-
 sub new {
     my ($class, $ho, $methname, $mgmt, $user, $pass, @opts) = @_;
     $user ||= get_host_property($ho, 'IpmiUser') || 'ADMIN';
diff --git a/Osstest/PDU/ipmiextra.pm b/Osstest/PDU/ipmiextra.pm
index a10cd4d..d4515e3 100644
--- a/Osstest/PDU/ipmiextra.pm
+++ b/Osstest/PDU/ipmiextra.pm
@@ -23,17 +23,6 @@ use Osstest;
 use Osstest::TestSupport;
 use IO::File;
 
-BEGIN {
-    use Exporter ();
-    our ($VERSION, @ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS);
-    $VERSION     = 1.00;
-    @ISA         = qw(Exporter);
-    @EXPORT      = qw();
-    %EXPORT_TAGS = ( );
-
-    @EXPORT_OK   = qw();
-}
-
 sub new {
     my ($class, $ho, $methname, $when, $mgmt, $user, $pass, @opts) = @_;
     return bless { Host => $ho,
diff --git a/Osstest/PDU/manual.pm b/Osstest/PDU/manual.pm
index 505b9b6..28d0b8a 100644
--- a/Osstest/PDU/manual.pm
+++ b/Osstest/PDU/manual.pm
@@ -23,17 +23,6 @@ use warnings;
 use Osstest;
 use IO::File;
 
-BEGIN {
-    use Exporter ();
-    our ($VERSION, @ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS);
-    $VERSION     = 1.00;
-    @ISA         = qw(Exporter);
-    @EXPORT      = qw();
-    %EXPORT_TAGS = ( );
-
-    @EXPORT_OK   = qw();
-}
-
 our $tty;
 
 sub new {
diff --git a/Osstest/PDU/msw.pm b/Osstest/PDU/msw.pm
index c159cc3..1645b5f 100644
--- a/Osstest/PDU/msw.pm
+++ b/Osstest/PDU/msw.pm
@@ -22,17 +22,6 @@ use warnings;
 
 use Osstest;
 
-BEGIN {
-    use Exporter ();
-    our ($VERSION, @ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS);
-    $VERSION     = 1.00;
-    @ISA         = qw(Exporter);
-    @EXPORT      = qw();
-    %EXPORT_TAGS = ( );
-
-    @EXPORT_OK   = qw();
-}
-
 sub new {
     my ($class, $ho, $methname, @args) = @_;
 
diff --git a/Osstest/PDU/pause.pm b/Osstest/PDU/pause.pm
index b5f0322..aaa77c3 100644
--- a/Osstest/PDU/pause.pm
+++ b/Osstest/PDU/pause.pm
@@ -23,17 +23,6 @@ use Osstest;
 use Osstest::TestSupport;
 use IO::File;
 
-BEGIN {
-    use Exporter ();
-    our ($VERSION, @ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS);
-    $VERSION     = 1.00;
-    @ISA         = qw(Exporter);
-    @EXPORT      = qw();
-    %EXPORT_TAGS = ( );
-
-    @EXPORT_OK   = qw();
-}
-
 sub new {
     my ($class, $ho, $methname, $on, $off) = @_;
     if (!defined $on) {
diff --git a/Osstest/PDU/unsupported.pm b/Osstest/PDU/unsupported.pm
index 9f44aab..8627f45 100644
--- a/Osstest/PDU/unsupported.pm
+++ b/Osstest/PDU/unsupported.pm
@@ -22,17 +22,6 @@ use warnings;
 
 use Osstest;
 
-BEGIN {
-    use Exporter ();
-    our ($VERSION, @ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS);
-    $VERSION     = 1.00;
-    @ISA         = qw(Exporter);
-    @EXPORT      = qw();
-    %EXPORT_TAGS = ( );
-
-    @EXPORT_OK   = qw();
-}
-
 our $tty;
 
 sub new {
diff --git a/Osstest/PDU/xenuse.pm b/Osstest/PDU/xenuse.pm
index 6b0503f..3071b66 100644
--- a/Osstest/PDU/xenuse.pm
+++ b/Osstest/PDU/xenuse.pm
@@ -24,17 +24,6 @@ use Osstest;
 use Osstest::TestSupport;
 use IO::File;
 
-BEGIN {
-    use Exporter ();
-    our ($VERSION, @ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS);
-    $VERSION     = 1.00;
-    @ISA         = qw(Exporter);
-    @EXPORT      = qw();
-    %EXPORT_TAGS = ( );
-
-    @EXPORT_OK   = qw();
-}
-
 sub new {
     my ($class, $ho) = @_;
     return bless { Host => $ho }, $class;