Changeset 1173 for lang/perl/Net-Wassr

Show
Ignore:
Timestamp:
11/06/07 11:32:59 (6 years ago)
Author:
tokuhirom
Message:

added delete method

Files:
1 modified

Legend:

Unmodified
Added
Removed

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

    r1167 r1173  
    6363} 
    6464 
     65sub delete { 
     66    my ($self, $todo_rid) = @_; 
     67 
     68    my $res = $self->{ua}->post("$BASE_URL/delete.json", [todo_rid => $todo_rid]); 
     69    if ($res->is_success) { 
     70        return $res->content; 
     71    } else { 
     72        croak $res->status_line; 
     73    } 
     74} 
     75 
    6576sub add { 
    6677    my ($self, $body) = @_;