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

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)

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