View on
Ævar Arnfjörð Bjarmason > HTML-MasonX-ApacheLikePlackHandler-0.01 > HTML::MasonX::ApacheLikePlackHandler



Annotate this POD



Open  0
View/Report Bugs
Module Version: 0.01   Source   Latest Release: HTML-MasonX-ApacheLikePlackHandler-0.02


HTML::MasonX::ApacheLikePlackHandler - An evil mod_perl-like Mason handler under Plack


    # Configure HTML::MasonX::ApacheLikePlackHandler to use
    # our mock classes instead of Apache2::$WHATEVER.
    # This is horribly ugly but allows us to diverge less
    # in HTML::MasonX::ApacheLikePlackHandler from the
    # upstream HTML::Mason::ApacheHandler.
    local $ENV{HTML_MASONX_APACHELIKEPLACKHANDLER_MOCK_APACHE2_REQUEST_CLASS}          = 'Your::ApacheLikePlackHandler::Compat::Apache2::Request';
    local $ENV{HTML_MASONX_APACHELIKEPLACKHANDLER_MOCK_APACHE2_SERVERUTIL_CLASS}       = 'Your::ApacheLikePlackHandler::Compat::Apache2::ServerUtil';
    local $ENV{HTML_MASONX_APACHELIKEPLACKHANDLER_MOCK_APACHE2_STATUS_CLASS}           = 'Your::ApacheLikePlackHandler::Compat::Apache2::Status';
    require HTML::MasonX::ApacheLikePlackHandler;


This is a forked HTML::Mason::ApacheHandler suitable for running under Plack with a mock Apache 2 request object that you have to provide yourself.

This is not a module intended to write new Mason applications under Plack, you probably want something like HTML::Mason::PlackHandler for that, or better yet if you're writing something new use Mason 2.0, or don't use Mason at all.

There's many possible ways to transition a HTML::Mason application running under Apache 2 and mod_perl to a Plack stack running outside of Apache, but the one I went for for the codebase was to:

When I started trying to convert our Mason apps to HTML::Mason::PlackHandler I found various incompatibilities and differences in behavior in that module compared to HTML::Mason::ApacheHandler. At least one of these has since been patched by GBARR but I wasn't looking forward to finding more.

Rather than having to debug these I just created this module, which is just a copy of HTML::Mason::ApacheHandler. By using something bug-compatible with HTML::Mason::ApacheHandler I didn't have to worry that bugs that were cropping up during the transition were due to migrating from this ~1000 line class to Graham Barr entirely different HTML::Mason::PlackHandler.

This module has the following changes from HTML::Mason::ApacheHandler:

But most importantly: Instead of requiring various Apache2::* modules we require that you define HTML_MASONX_APACHELIKEPLACKHANDLER_MOCK_APACHE2_{REQUEST,REQUEST_INSTANCE,STATUS,SERVERUTIL}_CLASS in %ENV before requiring this module.

Those %ENV entries should be the name of already loaded Perl packages implement an API emulating the Apache2 API this package needs. The "APACHE2_REQUEST_INSTANCE" variable is a special case though, it's the package your request object (implementing the Apache2 API) will be blessed into.

This makes for a rather convoluted API, but the goal was to modify the upstream code as little as possible, both to avoid accidentally introducing bugs, and to make it easier to incorporate future upstream patches.


Here's an example of the source of packages you could as the HTML_MASONX_APACHELIKEPLACKHANDLER_MOCK_* variables. These are just bare-minimal implementations of the Apache API that HTML::MasonX::ApacheLikePlackHandler expects uses.

Fake APR::Table class

    package Your::MasonCompat::APR::Like::Table;
    use strict;
    use warnings;

    sub new {
        my ($class, $table) = @_;

        # XXX: This is very naive, in reality an APR::Table maybe
        # can't be represented as a hash (multiple values for the same
        # key?). Or at least we need magic to implement a similar
        # Tie-interface.
        bless $table => $class;

    sub get {
        my ($self, $key) = @_;

        die "PANIC: Someone's trying to get a key ($key) that we don't have" unless exists $self->{$key};

        if (ref $self->{$key} eq 'ARRAY') {
            # Our dumb emulation for PerlAddVar without supporting all
            # of APR::Table.
            return @{$self->{$key}};
        } else {
            return $self->{$key};


You're going to have to use Plack::App::FakeApache::Request, or pester me to generalize and open source the version I'm using. See the description section.


    package Your::ApacheLikePlackHandler::Compat::Apache2::Request;
    use strict;
    use warnings;
    use Scalar::Util qw(blessed);

    # NEEDED because of HTML::MasonX::ApacheLikePlackHandler code that
    # does $this_pkg->VERSION. We should never need to change this.
    our $VERSION = 1.2345;

    # This is only used for:
    #    sub { Apache2::Request->new( $_[0] ) };
    # So just return the original object. The reason for this being
    # called at all is because the mod_perl 1 API would do something
    # different
    sub new {
        my ($class, $blessed_request_object) = @_;

        die "PANIC: We should only get an already blessed object as an argument"
            unless blessed($blessed_request_object);

        return $blessed_request_object;

    # We do nothing except the above in this class from
    # HTML::MasonX::ApacheLikePlackHandler as of writing this.


    package Your::ApacheLikePlackHandler::Compat::Apache2::ServerUtil;
    use strict;
    use warnings;
    use Your::WebServerConfiguration qw(

    sub server {
        my $class = shift;

        die "PANIC: We should have no extra arguments to server()" if @_;

        return bless {
            # So it's obvious where this came from if it turns up somewhere else
        } => $class;

    sub dir_config {
        my $self = shift;


        return Your::MasonCompat::APR::Like::Table->new({
            # Used by HTML::MasonX::ApacheLikePlackHandler::_startup()
            # which only requests the MasonArgsMethod.
            MasonArgsMethod => $PLACK_WEBSERVER_CONFIGURATION_VARIABLES{MasonArgsMethod},

    sub server_root {
        # DO we even support this? Probably not.
        die "PANIC: We don't support the server_root() function";

    # We do nothing except the above in this class from
    # HTML::MasonX::ApacheLikePlackHandler as of writing this.


    package Your::ApacheLikePlackHandler::Compat::Apache2::Status;
    use strict;
    use warnings;

    # This package is to mock Apache2::Status which provides a
    # /perl-status.
    # We don't want this, so we just provide a dummy menu_item method
    # here.
    # We *DON'T* set the version because that's what
    # HTML::MasonX::ApacheLikePlackHandler checks to see if it should
    # set it up properly later on. Don't do that.

    sub menu_item { return }

    # We do nothing except the above in this class from
    # HTML::MasonX::ApacheLikePlackHandler as of writing this.


Ævar Arnfjörð Bjarmason <> is responsible for HTML::MasonX::ApacheLikePlackHandler, but as described above it's almost exactly the same as derived from HTML::Mason::ApacheHandler. Refer to that package for the original authorship & copyright.

syntax highlighting: