root/Template-Plugin-MobileAgent/trunk/lib/Template/Plugin/MobileAgent.pm

Revision 793 (checked in by miyagawa, 17 years ago)

Initial revision

  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
Line 
1 package Template::Plugin::MobileAgent;
2
3 use strict;
4 use vars qw($VERSION);
5 $VERSION = 0.01;
6
7 require Template::Plugin;
8 use base qw(Template::Plugin);
9
10 use HTTP::MobileAgent;
11
12 sub new {
13     my $class = shift;
14     my $context = shift;
15     return HTTP::MobileAgent->new(@_);
16 }
17
18 1;
19 __END__
20
21 =head1 NAME
22
23 Template::Plugin::MobileAgent - TT interface for HTTP::MobileAgent
24
25 =head1 SYNOPSIS
26
27   [% USE ua = MobileAgent %]
28   <img src="logo.[% ua.is_docomo ? 'gif' : 'png' %]">
29
30 =head1 DESCRIPTION
31
32 Template::Plugin::MobileAgent is a TT plugin for
33 HTTP::MobileAgent. See L<HTTP::MobileAgent> and its subclasses for
34 available methods.
35
36 =head1 AUTHOR
37
38 Tatsuhiko Miyagawa E<lt>miyagawa@bulknews.netE<gt>
39
40 This library is free software; you can redistribute it and/or modify
41 it under the same terms as Perl itself.
42
43 =head1 SEE ALSO
44
45 L<HTTP::MobileAgent>, L<Template>
46
47 =cut
Note: See TracBrowser for help on using the browser.