From 0c0070d80521983d19b76f62dbaba3a695401c29 Mon Sep 17 00:00:00 2001
From: Aristotle Pagaltzis <pagaltzis@gmx.de>
Date: Mon, 11 Mar 2024 15:48:56 +0100
Subject: [PATCH] remove the last remaining uses of base.pm
This finishes the job that 9797d9c0c0cb16e0de77371eca1a619b23c450e3
started but only almost finished.
---
lib/Plack/App/Cascade.pm | 2 +-
t/Plack-Middleware/httpexceptions.t | 6 +++---
t/Plack-Middleware/httpexceptions_streaming.t | 4 ++--
3 files changed, 6 insertions(+), 6 deletions(-)
diff --git a/lib/Plack/App/Cascade.pm b/lib/Plack/App/Cascade.pm
index cce947b73..c5a8ea136 100644
--- a/lib/Plack/App/Cascade.pm
+++ b/lib/Plack/App/Cascade.pm
@@ -1,6 +1,6 @@
package Plack::App::Cascade;
use strict;
-use base qw(Plack::Component);
+use parent qw(Plack::Component);
use Plack::Util;
use Plack::Util::Accessor qw(apps catch codes);
diff --git a/t/Plack-Middleware/httpexceptions.t b/t/Plack-Middleware/httpexceptions.t
index b7ee0a7a8..b3def4cb9 100644
--- a/t/Plack-Middleware/httpexceptions.t
+++ b/t/Plack-Middleware/httpexceptions.t
@@ -11,16 +11,16 @@ sub throw {
}
package HTTP::Error::InternalServerError;
-use base qw(HTTP::Error);
+use parent -norequire => qw(HTTP::Error);
sub code { 500 }
package HTTP::Error::Forbidden;
-use base qw(HTTP::Error);
+use parent -norequire => qw(HTTP::Error);
sub code { 403 }
sub as_string { "blah blah blah" }
package HTTP::Error::Redirect;
-use base qw(HTTP::Error);
+use parent -norequire => qw(HTTP::Error);
sub code { 302 }
sub location { "http://somewhere/else" }
diff --git a/t/Plack-Middleware/httpexceptions_streaming.t b/t/Plack-Middleware/httpexceptions_streaming.t
index 93840c95c..1bb73890d 100644
--- a/t/Plack-Middleware/httpexceptions_streaming.t
+++ b/t/Plack-Middleware/httpexceptions_streaming.t
@@ -11,11 +11,11 @@ sub throw {
}
package HTTP::Error::InternalServerError;
-use base qw(HTTP::Error);
+use parent -norequire => qw(HTTP::Error);
sub code { 500 }
package HTTP::Error::Forbidden;
-use base qw(HTTP::Error);
+use parent -norequire => qw(HTTP::Error);
sub code { 403 }
sub as_string { "blah blah blah" }