diff options
author | Jesse Luehrs <doy@tozt.net> | 2011-01-07 16:51:21 -0600 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2011-01-07 16:51:21 -0600 |
commit | acf9a94c33748457d49e662c9c7ed3719a38eb65 (patch) | |
tree | f3af92b9d4416bacc3376f3fa2a433e0e8d5bb36 /lib/Plack | |
parent | 459dd0062bfc3ff82ee10a01e7dbb34ae003ce21 (diff) | |
download | plack-client-acf9a94c33748457d49e662c9c7ed3719a38eb65.tar.gz plack-client-acf9a94c33748457d49e662c9c7ed3719a38eb65.zip |
rename this
Diffstat (limited to 'lib/Plack')
-rw-r--r-- | lib/Plack/Client.pm | 6 | ||||
-rw-r--r-- | lib/Plack/Client/Backend/http.pm | 2 | ||||
-rw-r--r-- | lib/Plack/Client/Backend/psgi_local.pm | 2 |
3 files changed, 5 insertions, 5 deletions
diff --git a/lib/Plack/Client.pm b/lib/Plack/Client.pm index d05293b..1984e72 100644 --- a/lib/Plack/Client.pm +++ b/lib/Plack/Client.pm @@ -184,7 +184,7 @@ sub _request_from_plack_request { my $self = shift; my ($req) = @_; - return ($self->_app_from_req($req), $req->env); + return ($self->_app_from_request($req), $req->env); } sub _request_from_env { @@ -234,7 +234,7 @@ sub _http_request_to_env { return $env; } -sub _app_from_req { +sub _app_from_request { my $self = shift; my ($req) = @_; @@ -242,7 +242,7 @@ sub _app_from_req { my $scheme = $req->env->{'plack.client.url_scheme'} || $uri->scheme; my $backend = $self->_scheme_to_backend($scheme); - my $app = $backend->app_from_req($req); + my $app = $backend->app_from_request($req); die "Couldn't find app" unless $app; diff --git a/lib/Plack/Client/Backend/http.pm b/lib/Plack/Client/Backend/http.pm index 9982cd1..b8ca428 100644 --- a/lib/Plack/Client/Backend/http.pm +++ b/lib/Plack/Client/Backend/http.pm @@ -15,7 +15,7 @@ sub new { sub proxy { shift->{proxy} } -sub app_from_req { +sub app_from_request { my $self = shift; my ($req) = @_; diff --git a/lib/Plack/Client/Backend/psgi_local.pm b/lib/Plack/Client/Backend/psgi_local.pm index 212479e..b38a332 100644 --- a/lib/Plack/Client/Backend/psgi_local.pm +++ b/lib/Plack/Client/Backend/psgi_local.pm @@ -24,7 +24,7 @@ sub app_for { return $self->apps->{$for}; } -sub app_from_req { +sub app_from_request { my $self = shift; my ($req) = @_; |