ソースを整形しつつ色々と

META.yml

@@ -8,7 +8,7 @@ build_requires:
 configure_requires:
   ExtUtils::MakeMaker: 6.42
 distribution_type: module
-generated_by: 'Module::Install version 1.00'
+generated_by: 'Module::Install version 0.91'
 license: perl
 meta-spec:
   url: http://module-build.sourceforge.net/META-spec-v1.4.html

TODO

@@ -1,5 +1,3 @@
-/channel/ 対応チャンネル一覧(type=jsonでjson出力)
-
 - この辺で公開&リリース?
 - 応答plugin機構
 -- URL title view

lib/Donburi.pm

@@ -25,6 +25,7 @@ Donburi is
 =head1 AUTHOR
 
 Kan Fushihara E<lt>kan dot fushihara at gmail dot comE<gt>
+Nishibayashi Takuji E<lt>takuji {at} senchan.jpE<gt>
 
 =head1 SEE ALSO
 

lib/Donburi/Web/C/JSONRPC.pm

@@ -16,9 +16,18 @@ sub do_call {
 
     my $text = $params->{text};
     my $channel = $params->{channel};
-    unless ( $method eq 'channels' || defined $text && defined $channel && grep /^$method$/,qw( privmsg notice ) ) {
+    unless (
+        $method eq 'channels'
+        || defined $text && defined $channel && grep /^$method$/,
+        qw( privmsg notice )
+      )
+    {
         #TODO Handle error?
-        return [ 500, ['Content-Type' => 'application/json'], [JSON->new->utf8->encode({message => 'internal server error', code => 000})] ];
+        return [
+            500,
+            [ 'Content-Type' => 'application/json' ],
+            [ JSON->new->utf8->encode({ message => 'internal server error', code => 000 }) ]
+        ];
     }
 
     my $body;
@@ -33,7 +42,11 @@ sub do_call {
         $body = 'ok';
     }
 
-    return [ 200, ['Content-Type' => 'application/json'], [JSON->new->utf8->encode({json_rpc=> "2.0", result => $body})] ];
+    return [
+        200,
+        [ 'Content-Type' => 'application/json' ],
+        [ JSON->new->utf8->encode( { json_rpc => "2.0", result => $body } ) ]
+    ];
 }
 
 1;