/usr/local/CPAN/mobirc/App/Mobirc/Web/Middleware/MobileAgent.pm

• package App::Mobirc::Web::Middleware::MobileAgent
  • import
• EOF

package App::Mobirc::Web::Middleware::MobileAgent;
use strict;
use warnings;
use HTTP::Engine::Request;
use HTTP::MobileAgent;
use HTTP::MobileAgent::Plugin::Charset;

sub import {
    my $meta = HTTP::Engine::Request->meta;
    $meta->make_mutable;
    $meta->add_attribute(
        mobile_agent => (
            is      => 'ro',
            isa     => 'Object',
            lazy    => 1,
            default => sub {
                my $self = shift;
                HTTP::MobileAgent->new( $self->headers );
            },
        )
    );
    $meta->make_immutable;
}

1;