Catalyst::Plugin::MobileUserID - mobile user id returned plugin for Catalyst

Catalyst-Plugin-MobileUserID documentation Contained in the Catalyst-Plugin-MobileUserID distribution.

Index

Code Index:

NAME

Top

Catalyst::Plugin::MobileUserID - mobile user id returned plugin for Catalyst

SYNOPSIS

Top

  package MyApp;

  use Catalystqw/MobileAgent MobileUserID/;

  package MyApp::Controller::Root;

  sub index : Private {
     my ($self,$c) = @_;
     print $c->req->mobile_userid->id;
  }

DESCRIPTION

Top

This Plugin is mobile user id returned for Catalyst

METHODS

Top

mobile_userid

Returns an instance of HTTP::MobileUserID

AUTHOR

Top

Ittetsu Miyazaki <ittetsu.miyazaki@gmail.com>

LICENSE

Top

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

SEE ALSO

Top

HTTP::MobileAgent,HTTP::MobileUserID,Catalyst::Request

Catalyst-Plugin-MobileUserID documentation Contained in the Catalyst-Plugin-MobileUserID distribution. 
package Catalyst::Plugin::MobileUserID;

use strict;
use warnings;
use Catalyst::Request;
use HTTP::MobileUserID;

our $VERSION = '0.01';

{
    package Catalyst::Request;
    sub mobile_userid {
        my $req = shift;
        $req->{mobile_userid} ||= HTTP::MobileUserID->new($req->mobile_agent);
    }
}

1;

__END__