Changeset 1173

Timestamp:

11/06/07 11:32:59 (6 years ago)

Author:

tokuhirom

Message:

added delete method

Files:

• lang/perl/Net-Wassr/trunk/lib/Net/Wassr/TODO.pm (modified) (1 diff)

lang/perl/Net-Wassr/trunk/lib/Net/Wassr/TODO.pm

@@ -63 +63 @@
 }
 
+sub delete {
+    my ($self, $todo_rid) = @_;
+
+    my $res = $self->{ua}->post("$BASE_URL/delete.json", [todo_rid => $todo_rid]);
+    if ($res->is_success) {
+        return $res->content;
+    } else {
+        croak $res->status_line;
+    }
+}
+
 sub add {
     my ($self, $body) = @_;