Changeset 1175 for lang/perl/Net-Wassr

Timestamp:

11/06/07 11:49:07 (6 years ago)

Author:

tokuhirom

Message:

Net-Wassr: you can use 'start' and 'stop' method.

Location:

lang/perl/Net-Wassr/trunk

Files:

• Makefile.PL (modified) (1 diff)
• lib/Net/Wassr/TODO.pm (modified) (2 diffs)

lang/perl/Net-Wassr/trunk/Makefile.PL

@@ -8 +8 @@
 requires 'autobox';
 requires 'autobox::Core';
+requires 'Module::Compile::TT';
 
 build_requires 'Test::More';

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

@@ -52 +52 @@
 }
 
-sub done {
+use tt methods => [qw/done delete start stop/];
+[% FOR method IN methods %]
+sub [% method %] {
     my ($self, $todo_rid) = @_;
 
-    my $res = $self->{ua}->post("$BASE_URL/done.json", [todo_rid => $todo_rid]);
+    my $res = $self->{ua}->post("$BASE_URL/[% method %].json", [todo_rid => $todo_rid]);
     if ($res->is_success) {
         return $res->content;
@@ -62 +64 @@
     }
 }
-
-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;
-    }
-}
+[% END %]
+no tt;
 
 sub add {