[Apache-dispatch-devel] SF.net SVN: apache-dispatch: [39] trunk/t/lib/Apache2/Foo/Bar.pm

[<phr...@us...>]

Revision: 39
Author:   phred_moyer
Date:     2006-06-05 23:54:28 -0700 (Mon, 05 Jun 2006)
ViewCVS:  http://svn.sourceforge.net/apache-dispatch/?rev=39&view=rev

Log Message:
-----------
- minor cleanup

Modified Paths:
--------------
    trunk/t/lib/Apache2/Foo/Bar.pm
Modified: trunk/t/lib/Apache2/Foo/Bar.pm
===================================================================
--- trunk/t/lib/Apache2/Foo/Bar.pm	2006-06-06 06:32:15 UTC (rev 38)
+++ trunk/t/lib/Apache2/Foo/Bar.pm	2006-06-06 06:54:28 UTC (rev 39)
@@ -9,32 +9,20 @@
 
 @Foo::Bar::ISA = qw(Apache2::Foo::Foo);
 
-#sub dispatch_index {
-  # test calls to /Bar/index or /
-#  my ($class, $r) = @_;
-#  $r->log_debug(__PACKAGE__ . "->dispatch_index()");
-  
-#  $r->content_type('text/plain');
-#  $r->print(__PACKAGE__ . "->dispatch_index()");
-#  return Apache2::Const::OK;
-#}
-
 sub dispatch_baz {
     my ($class, $r) = @_;
-	$r->log->debug(__PACKAGE__ . "->dispatch_baz()");
+	$r->log->debug("$class->dispatch_baz()");
     
 	$r->content_type('text/plain');
     $Apache2::Foo::Foo::output = "pid $$";
-    $r->print(__PACKAGE__ . "->dispatch_baz()");
+    $r->print("$class->dispatch_baz()");
     return Apache2::Const::OK;
 }
 
 sub post_dispatch {
-  my ($self, $r) = @_;
-  # delay printing headers until all processing is done
-  #$r->content_type('text/plain');
+  my ($class, $r) = @_;
   $r->print($Apache2::Foo::Foo::output);
-  $r->log->debug(__PACKAGE__ . "->post_dispatch()");
+  $r->log->debug("$class->post_dispatch()");
 }
 
 1;


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.