clone_or_self

[scpubgit/Tak.git] / lib / Tak / Client.pm

diff --git a/lib/Tak/Client.pm b/lib/Tak/Client.pm
index e8f7d60..a86ad4d 100644 (file)
--- a/lib/Tak/Client.pm
+++ b/lib/Tak/Client.pm
@@ -54,4 +54,12 @@ sub result_of {
   return $result;
 }
 
+sub clone_or_self {
+  my ($self) = @_;
+  (ref $self)->new(
+    service => $self->service->clone_or_self, 
+    curried => [ @{$self->curried} ],
+  );
+}
+
 1;