先日のHTTP::MobileUIDをCatalystから扱えるようにしたプラグインです。 package Catalyst::Plugin::MobileUID; use strict; use warnings; use HTML::TokeParser::Simple; use MIME::Types; use NEXT; use URI; use URI::Find; use URI::QueryParam; use Catalyst::Request; use HTTP::MobileUID; our $VERSION = '0.01'; { package Catalyst::Request; sub mobile_uid { my $req = shift; return $req->{mobile_uid} = shift if @_; return $req->{mobi