Changeset 14207 for lang/perl/App-Nakanobu

Timestamp:

06/18/08 16:48:53 (5 months ago)

Author:

tokuhirom

Message:

this is better than before one

Location:

lang/perl/App-Nakanobu/trunk

Files:

• lib/App/Nakanobu/Plugin/Component/JSONRPC/HTTP.pm (modified) (1 diff)
• tools/jsonrpc-client.pl (modified) (1 diff)

lang/perl/App-Nakanobu/trunk/lib/App/Nakanobu/Plugin/Component/JSONRPC/HTTP.pm

@@ -21 +21 @@
 );
 
-my $marshal = JSON::RPC::Common::Marshal::HTTP->new(
-    json => JSON->new->utf8(1),
-);
+my $marshal = JSON::RPC::Common::Marshal::HTTP->new();
+$marshal->json->utf8(1);
 
 my $method_map = {

lang/perl/App-Nakanobu/trunk/tools/jsonrpc-client.pl

@@ -1 +1 @@
 use strict;
 use warnings;
+use utf8;
 use JSON::RPC::Client;
 
 my $uri = 'http://localhost:5555/';
 my $method = 'privmsg';
-my $params = {channel => '#nakanobu', text => 'lovely'};
+my $params = {channel => '#nakanobu', text => 'あいうえお123' };
 
 my $client = JSON::RPC::Client->new;