Changeset 4686 for lang/perl/HTML-MobileJp/trunk/lib/HTML/MobileJp/Plugin/EZweb/Object.pm

Timestamp:

01/16/08 15:35:32 (5 years ago)

Author:

tokuhirom

Message:

lang/perl/HTML-MobileJp?: added documents.

Files:

• lang/perl/HTML-MobileJp/trunk/lib/HTML/MobileJp/Plugin/EZweb/Object.pm (modified) (2 diffs)

lang/perl/HTML-MobileJp/trunk/lib/HTML/MobileJp/Plugin/EZweb/Object.pm

@@ -38 +38 @@
         _escape( $args{standby} )
     );
-    for my $key (qw/disposition size title/) {
-        push @ret, _param($key, $args{$key});
-    }
+    push @ret, map { _param($_, $args{$_}) } qw/disposition size title/;
     push @ret, "</object>";
 
@@ -47 +45 @@
 
 1;
+__END__
+
+=for stopwords mobile-jp html TODO CGI ezweb
+
+=encoding utf8
+
+=head1 NAME
+
+HTML::MobileJp::Plugin::EZweb::Object - generate object object download HTML tag.
+
+=head1 SYNOPSIS
+
+    use HTML::MobileJp;
+    ezweb_object(
+        url         => 'http://aa.com/movie.amc',
+        mime_type   => 'application/x-mpeg',
+        copyright   => 'no',
+        standby     => '$B%@%&%s%m!<%I(B',
+        disposition => 'devdl1q',
+        size        => '119065',
+        title       => '$B%5%s%W%kF02h(B',
+    );
+    # =>
+    #   <object data="http://aa.com/movie.amc" type="application/x-mpeg" copyright="no" standby="$B%@%&%s%m!<%I(B">
+    #   <param name="disposition" value="devdl1q" valuetype="data" />
+    #   <param name="size" value="119065" valuetype="data" />
+    #   <param name="title" value="$B%5%s%W%kF02h(B" valuetype="data" />
+    #   </object>
+
+=head1 DESCRIPTION
+
+generate object download HTML tag.
+
+=head1 AUTHOR
+
+Tokuhiro Matsuno E<lt>tokuhirom aaaatttt gmail dotottto commmmmE<gt>
+
+=head1 SEE ALSO
+
+L<HTML::MobileJp>, L<http://www.au.kddi.com/ezfactory/tec/spec/wap_tag5.html>
+
+=head1 LICENSE
+
+This library is free software; you can redistribute it and/or modify
+it under the same terms as Perl itself.
+
+=cut