package My::ApacheHandler;

use base 'HTML::Mason::ApacheHandler';

sub prepare_request {
  my $self = shift;
  my $r     = shift;
  my @args;

  ## <Location /foo>
  ## PerlSetVar MAH_POST_MAX 1024
  ## </Location>
  ## <Location /bar>
  ## PerlSetVar MAH_POST_MAX none
  ## </Location>
  my $post_max = $r->dir_config( 'MAH_POST_MAX' );
  unless( $post_max =~ /^none/ ) {
    push @args, POST_MAX => $post_max;
  }

  Apache::Request->instance( $r, @args );

  return $self->SUPER::prepare_request( $r, @_ );
}

1;