Changeset 15140 for lang/perl/Catalyst-Controller-Mobile-JP/trunk

Timestamp:

07/04/08 10:01:54 (5 months ago)

Author:

tomi-ru

Message:

うーん。とりあえずテストは追加する

Location:

lang/perl/Catalyst-Controller-Mobile-JP/trunk

Files:

• . (modified) (1 prop)
• lib/Catalyst/Controller/Mobile/JP.pm (modified) (3 diffs)
• t/01_encoding.t (added)
• t/01_test.t (deleted)
• t/02_fallback.t (added)
• t/03_fallback-htmlspecialchars.t (added)
• t/lib (added)
• t/lib/TestApp (added)
• t/lib/TestApp.pm (added)
• t/lib/TestApp/Controller (added)
• t/lib/TestApp/Controller/Root.pm (added)

lang/perl/Catalyst-Controller-Mobile-JP/trunk/lib/Catalyst/Controller/Mobile/JP.pm

@@ -24 +24 @@
          
         for my $v (ref($value) ? @$value : $value) {
+            next if Encode::is_utf8($v);
             $v = $self->encoding->decode($v);
         }
@@ -64 +65 @@
     }
 }
+
 1;
 __END__
@@ -71 +73 @@
 =head1 NAME
 
-Catalyst::Controller::Mobile::JP -
+Catalyst::Controller::Mobile::JP - decode/encode with Encode::JP::Mobile
 
 =head1 SYNOPSIS
 
-  use Catalyst::Controller::Mobile::JP;
-
-=head1 DESCRIPTION
-
-Catalyst::Controller::Mobile::JP is
-
-=head1 METHODS
-
-=over 4
-
-=item new
-
-=item foo
-
-=back
+  package MyApp;
+  use Catalyst qw/ MobileAgent /;
+  
+  ...
+   
+  package MyApp::Controller::Root;
+  use strict;
+  use base 'Catalyst::Controller::Mobile::JP';
+  
+  __PACKAGE__->config->{namespace} = '';
+  
+  sub foo :Local {
+      my ($self, $c) = @_;
+      
+      $c->res->body(
+          $c->req->param('text') . "\x{E72A}"
+      );
+  }
 
 =head1 AUTHOR