package Template::Plugin::MobileAgent;
use strict;
use vars qw($VERSION);
$VERSION = 0.01;
require Template::Plugin;
use base qw(Template::Plugin);
use HTTP::MobileAgent;
sub new {
my $class = shift;
my $context = shift;
return HTTP::MobileAgent->new(@_);
}
1;
__END__
=head1 NAME
Template::Plugin::MobileAgent - TT interface for HTTP::MobileAgent
=head1 SYNOPSIS
[% USE ua = MobileAgent %]
=head1 DESCRIPTION
Template::Plugin::MobileAgent is a TT plugin for
HTTP::MobileAgent. See L and its subclasses for
available methods.
=head1 AUTHOR
Tatsuhiko Miyagawa Emiyagawa@bulknews.netE
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.
=head1 SEE ALSO
L, L
=cut