mod_perlのハンドラーメモリリーク例

dispatch.pl

use strict;
use warnings;

my $dis = MyDispatch->new;
$dis->print;



package MyDispatch {
    use CGI;
    use Apache2::Const;
    use Apache2::RequestUtil;

    sub new {
        my $class = shift;
        my $self = bless {}, $class;
        __set_cleanup_handler();
        $self->{q} = CGI->new;
        return $self;
    }

    sub print {
        my $self = shift;
        print
            $self->{q}->header,
            $self->{q}->start_html('hello world'),
            $self->{q}->h1('hello mini_dispatch'),
            $self->{q}->end_html;
    }

    sub __set_cleanup_handler {
        my $foo = '1' x (1024*1024);

        my $r = Apache2::RequestUtil->request;#Apache2::RequestRec object
        $r->push_handlers(PerlCleanupHandler => sub {
            my $r = shift;
            my $hoge = $foo;
        });
    }
}

httpd.conf

...(略)...
<Location / >
  SetHandler perl-script
  PerlResponseHandler ModPerl::Registry
  PerlOptions +SetupEnv
  Options +ExecCGI
</Location>