Changeset 1164

Timestamp:

11/06/07 10:41:59 (6 years ago)

Author:

tokuhirom

Message:

todo-pl-wassr: added 'add' command(requested by otsune++)

Files:

• lang/perl/misc/todo-pl-wassr/wassr-todo.pl (modified) (2 diffs, 1 prop)

lang/perl/misc/todo-pl-wassr/wassr-todo.pl

@@ -9 +9 @@
 
 package Net::Wassr::TODO;
-
+use strict;
+use warnings;
 use JSON::Syck;
 use Carp;
@@ -132 +133 @@
             unlink $fn;
         }
+        case 'add' {
+            my $body = join " ", @ARGV;
+            die "todo body empty" unless $body;
+            print $c->add($body), "\n";
+        }
         else {
             die "unknown command $command";