Changeset 11196 for lang/perl/Punc

Timestamp:

05/06/08 13:20:39 (7 months ago)

Author:

mizzy

Message:

モジュールドキュメント修正

Location:

lang/perl/Punc/trunk/lib/Punc/Slave

Files:

• Module.pm (modified) (1 diff)
• Module/Service.pm (modified) (1 diff)

lang/perl/Punc/trunk/lib/Punc/Slave/Module.pm

@@ -51 +51 @@
 sub description {
     my $class = shift;
-    return `perldoc -t $class`;
+    return { result => `perldoc -t $class` || '' };
 }
 

lang/perl/Punc/trunk/lib/Punc/Slave/Module/Service.pm

@@ -33 +33 @@
 =head2 status({ service => 'service name' })
 
-Show service status.
+Show service status.Following return values are expected.
 
+=over
+
+=item result: 0
+
+Service is alive.
+
+=item result: not 0
+
+Service is dead.
+
+=item error: error string
+
+Error occurs.(e.g.: Service does not exist.)
+
+=back
 
 =cut