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.
|