HTTP::Engine::Middleware::MobileAttribute - wrapper for HTTP::MobileAttribute

    my $mw = HTTP::Engine::Middleware->new({method_class => 'HTTP::Engine::Request'});
    $mw->install(qw/ HTTP::Engine::Middleware::MobileAttribute /);
    HTTP::Engine->new(
        interface => {
            module => 'YourFavoriteInterfaceHere',
            request_handler => $mw->handler( \&handler ),
        }
    )->run();

package HTTP::Engine::Middleware::MobileAttribute;
use HTTP::Engine::Middleware;
use HTTP::MobileAttribute;

{
    my $req;
    my $mobile_attribute;
    middleware_method 'mobile_attribute' => sub {
        return unless $req;
        $mobile_attribute ||= HTTP::MobileAttribute->new( $req->headers );
    };

    before_handle {
        (undef, undef, $req) = @_;
        $mobile_attribute = undef;
        $req;
    };

    after_handle {
        undef $req;
        $_[3];
    };
}

__MIDDLEWARE__

__END__