We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
2 parents 6fd3ab9 + 7c7bfed commit d618d0dCopy full SHA for d618d0d
1 file changed
lib/Plack/Middleware/ReverseProxyPath.pm
@@ -1,5 +1,6 @@
1
package Plack::Middleware::ReverseProxyPath;
2
3
+use 5.006;
4
use strict;
5
use warnings;
6
use parent qw(Plack::Middleware);
@@ -53,7 +54,7 @@ sub call {
53
54
# don't touch REQUEST_URI, it will continue to refer to the original
55
}
56
- $self->app->($env);
57
+ return $self->app->($env);
58
59
60
sub _throw_error {
@@ -68,8 +69,8 @@ sub _throw_error {
68
69
my ($class, $message) = @_;
70
return bless { message => $message }, $class;
71
- sub code { 500 }
72
- sub message { $_[0]->{message} }
+ sub code { return 500 }
73
+ sub message { return $_[0]->{message} }
74
75
76
1;
0 commit comments