power: Osstest::PDU::*: use parent ::unsupported

This will allow us to introduce default methods, which everyone
inherits unless overridden.  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 bd57edbbfe48d57998c5c1a64f3da482e2b00757..61eb420a40ccd78863b743f07a256e78c5369f07 100644 (file)
--- a/Osstest/PDU/eth008.pm
+++ b/Osstest/PDU/eth008.pm
@@ -23,6 +23,8 @@ use Osstest;
 use Osstest::TestSupport;
 use LWP::UserAgent;
 
+use parent qw(Osstest::PDU::unsupported);
+
 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 61d9dcd59b9a146ec5258bfc6cb454af504091ab..779ba6c279a00794267e36c8646b5e4da992f0a1 100755 (executable)
--- a/Osstest/PDU/guest.pm
+++ b/Osstest/PDU/guest.pm
@@ -25,6 +25,8 @@ use Osstest;
 use Osstest::TestSupport;
 use IO::File;
 
+use parent qw(Osstest::PDU::unsupported);
+
 sub new {
     my ($class, $ho) = @_;
     return bless { Target => $ho }, $class;

diff --git a/Osstest/PDU/ipmi.pm b/Osstest/PDU/ipmi.pm
index ceb4cf03dc8fe267a8bca7ede3f1942c93eba21c..98e8957f5a2069c6c187a9014ccb65160019fdfe 100644 (file)
--- a/Osstest/PDU/ipmi.pm
+++ b/Osstest/PDU/ipmi.pm
@@ -23,6 +23,8 @@ use Osstest;
 use Osstest::TestSupport;
 use IO::File;
 
+use parent qw(Osstest::PDU::unsupported);
+
 sub new {
     my ($class, $ho, $methname, $mgmt, $user, $pass, @opts) = @_;
     $user ||= get_host_property($ho, 'IpmiUser') || 'ADMIN';

diff --git a/Osstest/PDU/ipmi_try.pm b/Osstest/PDU/ipmi_try.pm
index 172f4ec5d3a374aaa5f8e4a880c85956130b306f..64b43dd22d82b4228b2ab5eaa8421087ac5bd8e6 100644 (file)
--- a/Osstest/PDU/ipmi_try.pm
+++ b/Osstest/PDU/ipmi_try.pm
@@ -24,6 +24,8 @@ use Osstest::TestSupport;
 use IO::File;
 use Osstest::PDU::ipmi;
 
+use parent Osstest::PDU::unsupported;
+
 BEGIN {
     use Exporter ();
     our ($VERSION, @ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS);

diff --git a/Osstest/PDU/ipmiextra.pm b/Osstest/PDU/ipmiextra.pm
index d4515e3488f60102e1016733409a0348c9a9e7be..b17f6320a0583f9b4a908bc752b69614deb37af3 100644 (file)
--- a/Osstest/PDU/ipmiextra.pm
+++ b/Osstest/PDU/ipmiextra.pm
@@ -23,6 +23,8 @@ use Osstest;
 use Osstest::TestSupport;
 use IO::File;
 
+use parent qw(Osstest::PDU::unsupported);
+
 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 28d0b8a19e2ef38eb279e6a47c70ad8ae1c89de7..78f24db9e27e2438e7f279f112ca8fce4401905b 100644 (file)
--- a/Osstest/PDU/manual.pm
+++ b/Osstest/PDU/manual.pm
@@ -23,6 +23,8 @@ use warnings;
 use Osstest;
 use IO::File;
 
+use parent qw(Osstest::PDU::unsupported);
+
 our $tty;
 
 sub new {

diff --git a/Osstest/PDU/msw.pm b/Osstest/PDU/msw.pm
index 1645b5f6eeeaf34e8e8d53a5eb005fb3e430dc18..19d9f56b11d472bb06591ca7f14026301686ad8e 100644 (file)
--- a/Osstest/PDU/msw.pm
+++ b/Osstest/PDU/msw.pm
@@ -22,6 +22,8 @@ use warnings;
 
 use Osstest;
 
+use parent qw(Osstest::PDU::unsupported);
+
 sub new {
     my ($class, $ho, $methname, @args) = @_;
 

diff --git a/Osstest/PDU/pause.pm b/Osstest/PDU/pause.pm
index aaa77c3005cc06814a7c7c48de7370581155fed4..33327d475ad5c50105ddf877854c64c0de51e424 100644 (file)
--- a/Osstest/PDU/pause.pm
+++ b/Osstest/PDU/pause.pm
@@ -23,6 +23,8 @@ use Osstest;
 use Osstest::TestSupport;
 use IO::File;
 
+use parent qw(Osstest::PDU::unsupported);
+
 sub new {
     my ($class, $ho, $methname, $on, $off) = @_;
     if (!defined $on) {

diff --git a/Osstest/PDU/statedb.pm b/Osstest/PDU/statedb.pm
index 1c9d16e02864c697090c393cc4459c67b2723b75..0a445b1b523de81bbc907ae9169d3feee8d3bed2 100644 (file)
--- a/Osstest/PDU/statedb.pm
+++ b/Osstest/PDU/statedb.pm
@@ -24,6 +24,8 @@ use Osstest;
 use Osstest::Executive;
 use Osstest::TestSupport;
 
+use parent qw(Osstest::PDU::unsupported);
+
 sub power_state_await ($$$) {
     my ($sth, $want, $msg) = @_;
     poll_loop(30,1, "power: $msg $want", sub {

diff --git a/Osstest/PDU/xenuse.pm b/Osstest/PDU/xenuse.pm
index 3071b6631371a6fe4ddab34ed751315ecb549170..2ce0dd2209b15a1b9db62dbafaf544afd2a35a98 100644 (file)
--- a/Osstest/PDU/xenuse.pm
+++ b/Osstest/PDU/xenuse.pm
@@ -24,6 +24,8 @@ use Osstest;
 use Osstest::TestSupport;
 use IO::File;
 
+use parent qw(Osstest::PDU::unsupported);
+
 sub new {
     my ($class, $ho) = @_;
     return bless { Host => $ho }, $class;