make Client look like a Service

diff --git a/lib/Tak/Client.pm b/lib/Tak/Client.pm
index 949e9af..e8f7d60 100644 (file)
--- a/lib/Tak/Client.pm
+++ b/lib/Tak/Client.pm
@@ -13,7 +13,9 @@ sub curry {
   (ref $self)->new(%$self, curried => [ @{$self->curried}, @curry ]);
 }
 
-sub send {
+sub send { shift->receive(@_) }
+
+sub receive {
   my ($self, @message) = @_;
   $self->service->receive(@{$self->curried}, @message);
 }
@@ -21,10 +23,15 @@ sub send {
 sub start {
   my ($self, $register, @payload) = @_;
   my $req = $self->_new_request($register);
-  $self->service->start_request($req, @{$self->curried}, @payload);
+  $self->start_request($req, @payload);
   return $req;
 }
 
+sub start_request {
+  my ($self, $req, @payload) = @_;
+  $self->service->start_request($req, @{$self->curried}, @payload);
+}
+
 sub request_class { 'Tak::Request' }
 
 sub _new_request {