view release on metacpan or  search on metacpan

t/My/Thingy.pm  view on Meta::CPAN

use strict;

use Apache2::DirBasedHandler
our @ISA = qw(Apache2::DirBasedHandler);

use Apache2::Const -compile => qw(:common);

sub init {
    my $self = shift;
    Apache2::DirBasedHandler::set_debug(1);
    return $self->SUPER::init(@_);
}

sub root_index {
    my $self = shift;
    my ($r,$uri_args,$args) = @_;

    if (@$uri_args) {
        $r->warn('got uri args - ' . join( ',', @$uri_args));
        return Apache2::Const::NOT_FOUND;
    }