Allow SET role = psgi_server to work

miyagawa · Feb 28, 2010 · 625a339 · 625a339
1 parent e74acde
commit 625a339
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/lib/Perlbal/Plugin/PSGI.pm b/lib/Perlbal/Plugin/PSGI.pm
@@ -38,10 +38,13 @@ sub unregister {
 
 sub load {
     Perlbal::register_global_hook('manage_command.psgi_app', \&handle_psgi_app_command);
+    Perlbal::Service::add_role('psgi_server', sub { Perlbal::Plugin::PSGI::Client->new(@_) });
     return 1;
 }
 
 sub unload {
+    Perlbal::unregister_global_hook('manage_command.psgi_app');
+    Perlbal::Service::remove_role('psgi_server');
     return 1;
 }