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

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

Revision: 30
Author:   phred_moyer
Date:     2006-05-21 12:00:11 -0700 (Sun, 21 May 2006)
ViewCVS:  http://svn.sourceforge.net/apache-dispatch/?rev=30&view=rev

Log Message:
-----------
- Add dispatch_index() method to test library.

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-04-23 06:01:28 UTC (rev 29)
+++ trunk/t/lib/Apache2/Foo/Bar.pm	2006-05-21 19:00:11 UTC (rev 30)
@@ -6,8 +6,18 @@
 use Apache2::Const -compile => qw( OK SERVER_ERROR );
 use Apache2::RequestRec;
 
-@Foo::Bar::ISA = qw(Foo::Foo);
+@Foo::Bar::ISA = qw(Apache::Foo::Foo);
 
+sub dispatch_index {
+  # test calls to /Bar/index or /
+  my $self = shift;
+  my $r = shift;
+  $r->send_http_header('text/plain');
+  $r->print("Foo::Bar->dispatch_index()");
+  print STDERR "Foo::Bar->dispatch_index()\n";
+  return Apache2::Const::OK;
+}
+
 sub dispatch_baz {
     my ($class, $r) = @_;
     


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