diff options
author | Jesse Luehrs <doy@tozt.net> | 2011-01-11 13:13:42 -0600 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2011-01-11 13:13:54 -0600 |
commit | 7ec1f5b60fcd482d0dcb40385fda198b93ab1bc7 (patch) | |
tree | 2d4dd68ee328395453f49ed17ca0a79f1d3ba170 /lib/Plack/Client/Backend/psgi_local.pm | |
parent | 45930949ecfeb86af962eebe8fab0e46b418a9a2 (diff) | |
download | plack-client-7ec1f5b60fcd482d0dcb40385fda198b93ab1bc7.tar.gz plack-client-7ec1f5b60fcd482d0dcb40385fda198b93ab1bc7.zip |
use croak instead of die
Diffstat (limited to 'lib/Plack/Client/Backend/psgi_local.pm')
-rw-r--r-- | lib/Plack/Client/Backend/psgi_local.pm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lib/Plack/Client/Backend/psgi_local.pm b/lib/Plack/Client/Backend/psgi_local.pm index 65a1c31..5b9eb4d 100644 --- a/lib/Plack/Client/Backend/psgi_local.pm +++ b/lib/Plack/Client/Backend/psgi_local.pm @@ -2,13 +2,14 @@ package Plack::Client::Backend::psgi_local; use strict; use warnings; +use Carp; use Plack::Middleware::ContentLength; sub new { my $class = shift; my %params = @_; - die 'apps must be a hashref' + croak 'apps must be a hashref' if ref($params{apps}) ne 'HASH'; bless { @@ -34,7 +35,7 @@ sub app_from_request { $app_name =~ s/(.*):.*/$1/; # in case a port was added at some point } my $app = $self->app_for($app_name); - die "Unknown app: $app_name" unless $app; + croak "Unknown app: $app_name" unless $app; return Plack::Middleware::ContentLength->wrap($app); } |