Catalyst::Plugin::MobileAgent - HTTP mobile user agent string parser plugin for Catalyst

Catalyst-Plugin-MobileAgent documentation

Contained in the Catalyst-Plugin-MobileAgent distribution.

Index

NAME
SYNOPSIS
DESCRIPTION
EXTENDED METHODS
- prepare_headers
METHODS
- mobile_agent
SEE ALSO
AUTHOR
LICENSE

Code Index:

package Catalyst::Plugin::MobileAgent
package Catalyst::Request
- mobile_agent
package Catalyst::Plugin::MobileAgent
EOF

NAME

Catalyst::Plugin::MobileAgent - HTTP mobile user agent string parser plugin for Catalyst

SYNOPSIS

    use Catalyst 'MobileAgent';

    if ($c->request->mobile_agent->is_docomo) {
        # do something
    }

DESCRIPTION

Catalyst plugin parsed user agent string for mobile in Japan.

EXTENDED METHODS

prepare_headers

Sets mobile_agent using HTTP::MobileAgent.

METHODS

mobile_agent

Returns an instance of HTTP::MobileAgent.

SEE ALSO

HTTP::MobileAgent, Catalyst::Request

AUTHOR

Yoshiki Kurihara, <kurihara at cpan.org>

LICENSE

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

Catalyst-Plugin-MobileAgent documentation

Contained in the Catalyst-Plugin-MobileAgent distribution.

package Catalyst::Plugin::MobileAgent;

use strict;
use warnings;
use NEXT;
use Catalyst::Request;
use HTTP::MobileAgent;

our $VERSION = '0.041';

{
    package Catalyst::Request;

    sub mobile_agent {
        my $self = shift;
        unless ( $self->{ mobile_agent } ) {
            $self->{ mobile_agent } = HTTP::MobileAgent->new( $self->headers );
        }
        return $self->{ mobile_agent };
    }
}

1; # End of Catalyst::Plugin::MobileAgent