sub dispatch
  {
     my($self, $action) = @_;
     my $my_r = My::Apache::Request->new(Apache->request);
     $self->do_the_appropriate_thing($action, $my_r);
  }