gistfile1.pl

    if ($ENV{MOD_PERL}) {
        # FIXME - Immutable
        $class->meta->add_method(handler => sub {
            my $r = shift;
            my $app = $class->psgi_app;
            use Plack::Handler::Apache2;
            Plack::Handler::Apache2->call_app($r, $app);
        });
    }