Cache remote_user per-request

diff --git a/lib/Plack/App/Gruntmaster.pm b/lib/Plack/App/Gruntmaster.pm
index 1af76d0c14072c2696922b3d892e9034fc636df6..d48166ef714a24ba4353221687ba1ec8f7e78bc9 100644 (file)
--- a/lib/Plack/App/Gruntmaster.pm
+++ b/lib/Plack/App/Gruntmaster.pm
@@ -44,9 +44,12 @@ my ($env, $privacy);
 sub db { $env->{'gruntmaster.dbic'} }
 
 sub remote_user {
-       my $user = $env->{REMOTE_USER};
-       $user &&= db->user_entry($user);
-       $user
+       unless ($env->{'gruntmaster.user'}) {
+               my $user = $env->{REMOTE_USER};
+               $user &&= db->user_entry($user);
+               $env->{'gruntmaster.user'} = $user;
+       }
+       $env->{'gruntmaster.user'}
 }
 
 sub admin   { remote_user && remote_user->{admin} }