File Coverage

blib/lib/HTTP/Engine/Middleware/MobileAttribute.pm

Criterion	Covered	Total	%
statement	8	8	100.0
branch	1	2	50.0
condition	1	3	33.3
subroutine	3	3	100.0
pod			n/a
total	13	16	81.2

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;
    };
}

__MIDDLEWARE__

__END__

=head1 NAME

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

=head1 SYNOPSIS

    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();

=head1 DESCRIPTION

This module injects one method named 'mobile_attribute'.
This method returns the instance of HTTP::MobileAttribute.

=head1 AUTHORS

Tokuhiro Matsuno

=head1 SEE ALSO

L<HTTP::MobileAttribute>

=cut