Changeset 14688

Timestamp:

06/27/08 14:07:55 (5 years ago)

Author:

tomi-ru

Message:

render()を追加、pod, test

Location:

lang/perl/Catalyst-View-MobileJpFilter/trunk

Files:

• . (modified) (1 prop)
• Makefile.PL (modified) (1 diff)
• lib/Catalyst/View/MobileJpFilter.pm (modified) (2 diffs)
• t/01_filter.t (added)
• t/lib (added)
• t/lib/HTML (added)
• t/lib/HTML/MobileJp (added)
• t/lib/HTML/MobileJp/Filter (added)
• t/lib/HTML/MobileJp/Filter/Dummy.pm (added)
• t/lib/TestApp (added)
• t/lib/TestApp.pm (added)
• t/lib/TestApp/View (added)
• t/lib/TestApp/View/MobileJpFilter.pm (added)

lang/perl/Catalyst-View-MobileJpFilter/trunk/Makefile.PL

@@ -4 +4 @@
 all_from 'lib/Catalyst/View/MobileJpFilter.pm';
 
-requires 'Foo::Bar';
+requires 'Catalyst::Runtime' => '5.70';
+requires 'Catalyst::Plugin::MobileAgent';
+requires 'HTML::MobileJp::Filter';
+requires 'Data::Visitor::Callback';
 
 build_requires 'Test::More';
+build_requires 'Encode::JP::Mobile';
 
 auto_include;

lang/perl/Catalyst-View-MobileJpFilter/trunk/lib/Catalyst/View/MobileJpFilter.pm

@@ -2 +2 @@
 use strict;
 use warnings;
+our $VERSION = '0.01';
+
 use base 'Catalyst::View';
-
 use Class::C3;
 use Data::Visitor::Callback;
@@ -34 +35 @@
 }
 
+sub render {
+    my ($self, $c) = @_;
+    
+    $self->html_filter->filter(
+        mobile_agent => $c->req->mobile_agent,
+        html         => $c->res->body || "",
+    );
+}
+
 sub process {
     my ($self, $c) = @_;
     
-    my $html = $self->html_filter->filter(
-        mobile_agent => $c->req->mobile_agent,
-        html         => $c->res->body || "",
-    );
-    
-    $c->res->body($html);
-    
+    if ($c->res->content_type =~ /html$|xhtml\+xml$/) {
+        $c->res->body( $self->render($c) );
+    }
+
     return 1;
 }
 
 1;
+__END__
+
+=encoding utf-8
+
+=head1 NAME
+
+Catalyst::View::MobileJpFilter - Filtering HTML for Japanese cellphone
+
+=head1 DESCRIPTION
+
+Catalyst::View::MobileJpFilter is a simple adapter to use
+L<HTML::MobileJp::Filter> as Catalyst view class.
+
+=head1 SYNOPSIS
+
+  package MyApp::View::MobileJpFilter;
+  use strict;
+  use base 'Catalyst::View::MobileJpFilter';
+  
+  use YAML;
+  
+  __PACKAGE__->config(YAML::Load <<'...'
+  ---
+  filters:
+    - module: DoCoMoCSS
+      config:
+        base_dir: __path_to(root)__
+    - module: DoCoMoGUID
+    - module: FallbackImage
+      config:
+        template: '<img src="%s.gif" />'
+        params:
+          - unicode_hex
+  ...
+  );
+  
+  1;
+
+=head1 CONFIGURATION
+
+Same as L<HTML::MobileJp::Filter>.
+
+=head1 HOW TO USE
+
+Use as follows from your controller.
+
+  $c->forward( $c->view('TT') );             # making $c->res->body
+  $c->forward( $c->view('MobileJpFilter') ); # filtering $c->res->body
+
+Or with L<RenderView|Catalyst::Action::RenderView>.
+
+  sub render :ActionClass('RenderView') { }
+  
+  sub end :Private {
+      my ($self, $c) = @_;
+      $c->forward('render');
+  }
+
+=head1 AUTHOR
+
+Naoki Tomita E<lt>tomita@cpan.orgE<gt>
+
+=head1 LICENSE
+
+This library is free software; you can redistribute it and/or modify
+it under the same terms as Perl itself.
+
+=head1 SEE ALSO
+
+L<HTML::MobileJp::Filter>
+
+L<http://coderepos.org/share/browser/lang/perl/Catalyst-View-MobileJpFilter> (repository)
+
+=cut