Tweaked to be more subclassable/reusable

ray1729 · Feb 26, 2010 · ce62186 · ce62186
1 parent 965eea0
commit ce62186
Showing 1 changed file with 9 additions and 5 deletions.
diff --git a/lib/Plack/Handler/Apache2.pm b/lib/Plack/Handler/Apache2.pm
@@ -28,11 +28,8 @@ sub load_app {
     };
 }
 
-sub handler {
-    my $r = shift;
-
-    my $psgi = $r->dir_config('psgi_app');
-    my $app = __PACKAGE__->load_app($psgi);
+sub call_app {
+    my ($class, $r, $app) = @_;
 
     $r->subprocess_env; # let Apache create %ENV for us :)
 
@@ -74,6 +71,13 @@ sub handler {
     return Apache2::Const::OK;
 }
 
+sub handler {
+    my $class = __PACKAGE__;
+    my $r     = shift;
+    my $psgi  = $r->dir_config('psgi_app');
+    $class->call_app($class->load_app($psgi));
+}
+
 sub _handle_response {
     my ($r, $res) = @_;