[Rt-commit] r5343 - in HTTP-Server-Simple: .

[jesse at bestpractical.com]

Author: jesse
Date: Wed Jun  7 15:30:45 2006
New Revision: 5343

Modified:
   HTTP-Server-Simple/   (props changed)
   HTTP-Server-Simple/META.yml
   HTTP-Server-Simple/lib/HTTP/Server/Simple.pm

Log:
 r12289 at pinglin:  jesse | 2006-06-07 15:29:52 -0400
 * Added a hook for clkao


Modified: HTTP-Server-Simple/META.yml
==============================================================================
--- HTTP-Server-Simple/META.yml	(original)
+++ HTTP-Server-Simple/META.yml	Wed Jun  7 15:30:45 2006
@@ -1,12 +1,12 @@
 distribution_type: module
-generated_by: Module::Install version 0.52
+generated_by: Module::Install version 0.62
 license: perl
 name: HTTP-Server-Simple
-no_index:
-  directory:
+no_index: 
+  directory: 
     - inc
     - t
-requires:
+requires: 
   CGI: 0
   Socket: 0
   Test::More: 0

Modified: HTTP-Server-Simple/lib/HTTP/Server/Simple.pm
==============================================================================
--- HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	(original)
+++ HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	Wed Jun  7 15:30:45 2006
@@ -223,6 +223,7 @@
     }
     else {
         $self->setup_listener;
+	$self->after_setup_listener();
         *{"$pkg\::run"} = $self->_default_run;
     }
 
@@ -586,6 +587,16 @@
 
 }
 
+
+=head2 after_setup_listener
+
+This method is called immediately after setup_listener. It's here just for you to override.
+
+=cut
+
+sub after_setup_listener {
+}
+
 =head2 bad_request
 
 This method should print a valid HTTP response that says that the