summaryrefslogtreecommitdiffstats
path: root/lib/Plack/Client/Backend
diff options
context:
space:
mode:
Diffstat (limited to 'lib/Plack/Client/Backend')
-rw-r--r--lib/Plack/Client/Backend/http.pm10
-rw-r--r--lib/Plack/Client/Backend/psgi_local.pm9
2 files changed, 12 insertions, 7 deletions
diff --git a/lib/Plack/Client/Backend/http.pm b/lib/Plack/Client/Backend/http.pm
index e443385..542c2ce 100644
--- a/lib/Plack/Client/Backend/http.pm
+++ b/lib/Plack/Client/Backend/http.pm
@@ -5,6 +5,8 @@ use warnings;
use Plack::App::Proxy;
+use base 'Plack::Client::Backend';
+
=head1 SYNOPSIS
Plack::Client->new(
@@ -30,11 +32,11 @@ Constructor. Takes no arguments.
sub new {
my $class = shift;
- my %params = @_;
+ my $self = $class->SUPER::new(@_);
+
+ $self->{proxy} = Plack::App::Proxy->new->to_app;
- bless {
- proxy => Plack::App::Proxy->new->to_app,
- }, $class;
+ return $self;
}
sub _proxy { shift->{proxy} }
diff --git a/lib/Plack/Client/Backend/psgi_local.pm b/lib/Plack/Client/Backend/psgi_local.pm
index 1da572b..7bb9bcc 100644
--- a/lib/Plack/Client/Backend/psgi_local.pm
+++ b/lib/Plack/Client/Backend/psgi_local.pm
@@ -6,6 +6,8 @@ use warnings;
use Carp;
use Plack::Middleware::ContentLength;
+use base 'Plack::Client::Backend';
+
=head1 SYNOPSIS
Plack::Client->new(
@@ -43,13 +45,14 @@ A mapping of local app names to PSGI app coderefs.
sub new {
my $class = shift;
my %params = @_;
+ my $self = $class->SUPER::new(@_);
croak 'apps must be a hashref'
if ref($params{apps}) ne 'HASH';
- bless {
- apps => $params{apps},
- }, $class;
+ $self->{apps} = $params{apps};
+
+ return $self;
}
sub _apps { shift->{apps} }