Skeleton bin/pt-agent and lib/Percona/WebAPI.

lib/Percona/WebAPI/Representation/JSON.pm

@@ -0,0 +1,19 @@
+package Percona::WebAPI::Representation::JSON;
+
+use Moose::Role;
+use JSON;
+
+sub as_json {
+   my ($self) = @_;
+
+   # Copy the object into a new hashref.
+   my $as_hashref = { %$self };
+
+   # Delete the links because they're just for client-side use
+   # and the caller should be sending this object, not getting it.
+   delete $as_hashref->{links};
+
+   return encode_json($as_hashref);
+}
+
+1;