<Perl>
package My::Location;

sub postreadrequest {
  my $r=shift;

  warn "PostReadRequest: Location=".$r->dir_config('Location')."\n";;
  return Apache::DECLINED;
}

sub trans {
  my $r=shift;

  if( $r->uri eq '/L1' ) {
    $r->uri('/L2');
  }
  warn "Trans: Location=".$r->dir_config('Location')."\n";;
  return Apache::DECLINED;
}

sub headerparser {
  my $r=shift;

  warn "HeaderParser: Location=".$r->dir_config('Location')."\n";;
  return Apache::DECLINED;
}
</Perl>

PerlPostReadReuestHandler My::Location::postreadrequest
PerlTransHandler My::Location::trans
PerlHeaderParserHandler My::Location::headerparser

PerlSetVar Location 0

<Location /L1>
PerlSetVar Location 1
</Location>

<Location /L2>
PerlSetVar Location 2
</Location>