diff options
Diffstat (limited to 'lib/Plack/Client/Backend')
-rw-r--r-- | lib/Plack/Client/Backend/http.pm | 10 | ||||
-rw-r--r-- | lib/Plack/Client/Backend/psgi_local.pm | 9 |
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} } |