From d7861b6d61deb2f2d2f579ca9fef0c0ddaaa4678 Mon Sep 17 00:00:00 2001
From: Richard Hansen <rhansen@rhansen.org>
Date: Thu, 5 Sep 2024 20:27:53 -0400
Subject: [PATCH] tests: Do `use parent -norequire` instead of modifying `ISA`

---
 t/protocol_directnic.pl | 2 +-
 t/protocol_dyndns2.pl   | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/t/protocol_directnic.pl b/t/protocol_directnic.pl
index 855500d..0e9f981 100644
--- a/t/protocol_directnic.pl
+++ b/t/protocol_directnic.pl
@@ -32,7 +32,7 @@ diag("started IPv4 HTTP server running at " . $httpd->endpoint());
 
 {
     package Logger;
-    BEGIN { push(our @ISA, qw(ddclient::Logger)); }
+    use parent qw(-norequire ddclient::Logger);
     sub new {
         my ($class, $parent) = @_;
         my $self = $class->SUPER::new(undef, $parent);
diff --git a/t/protocol_dyndns2.pl b/t/protocol_dyndns2.pl
index 6cc4e2a..198363d 100644
--- a/t/protocol_dyndns2.pl
+++ b/t/protocol_dyndns2.pl
@@ -24,7 +24,7 @@ diag("started IPv4 HTTP server running at " . $httpd->endpoint());
 
 {
     package Logger;
-    BEGIN { push(our @ISA, qw(ddclient::Logger)); }
+    use parent qw(-norequire ddclient::Logger);
     sub new {
         my ($class, $parent) = @_;
         my $self = $class->SUPER::new(undef, $parent);