switch object client to new code

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

diff --git a/lib/Tak/ObjectService.pm b/lib/Tak/ObjectService.pm
index 94f1248..f859bcc 100644 (file)
--- a/lib/Tak/ObjectService.pm
+++ b/lib/Tak/ObjectService.pm
@@ -3,6 +3,7 @@ package Tak::ObjectService;
 use overload ();
 use Moo;
 
+with 'Tak::Role::Service';
 with 'Tak::Role::ObjectMangling';
 
 has proxied => (is => 'ro', init_arg => undef, default => sub { {} });
@@ -36,14 +37,14 @@ sub handle_call_method {
       $invocant->$method(@args);
     }
     1;
-  } or return FAILURE => "$@";
-  return RESULT => $self->encode_objects(\@res);
+  } or die [ failure => "$@" ];
+  return $self->encode_objects(\@res);
 }
 
 sub handle_remove_object {
   my ($self, $tag) = @_;
   my $had = !!delete $self->proxied->{$tag};
-  return RESULT => $had;
+  return $had;
 }
 
 1;