tests: Do use parent -norequire
instead of modifying ISA
This commit is contained in:
parent
6c33ccaa25
commit
d7861b6d61
2 changed files with 2 additions and 2 deletions
|
@ -32,7 +32,7 @@ diag("started IPv4 HTTP server running at " . $httpd->endpoint());
|
||||||
|
|
||||||
{
|
{
|
||||||
package Logger;
|
package Logger;
|
||||||
BEGIN { push(our @ISA, qw(ddclient::Logger)); }
|
use parent qw(-norequire ddclient::Logger);
|
||||||
sub new {
|
sub new {
|
||||||
my ($class, $parent) = @_;
|
my ($class, $parent) = @_;
|
||||||
my $self = $class->SUPER::new(undef, $parent);
|
my $self = $class->SUPER::new(undef, $parent);
|
||||||
|
|
|
@ -24,7 +24,7 @@ diag("started IPv4 HTTP server running at " . $httpd->endpoint());
|
||||||
|
|
||||||
{
|
{
|
||||||
package Logger;
|
package Logger;
|
||||||
BEGIN { push(our @ISA, qw(ddclient::Logger)); }
|
use parent qw(-norequire ddclient::Logger);
|
||||||
sub new {
|
sub new {
|
||||||
my ($class, $parent) = @_;
|
my ($class, $parent) = @_;
|
||||||
my $self = $class->SUPER::new(undef, $parent);
|
my $self = $class->SUPER::new(undef, $parent);
|
||||||
|
|
Loading…
Reference in a new issue