Begin to fill in pt-agent. Use new, experimental Percona::Toolkit. Remove Versions resource; add as optional attrib to Agent resource.

lib/Percona/WebAPI/Resource/Agent.pm

@@ -15,12 +15,11 @@ has 'hostname' => (
    is       => 'ro',
    isa      => 'Str',
    required => 1,
-   default  => sub { return `hostname 2>/dev/null` },
 );
 
 has 'versions' => (
    is       => 'ro',
-   isa      => 'Maybe[Percona::WebAPI::Resource::Versions]',
+   isa      => 'Maybe[HashRef]',
    required => 0,
    default  => undef,
 );

lib/Percona/WebAPI/Resource/Versions.pm

@@ -1,14 +0,0 @@
-package Percona::WebAPI::Resource::Versions;
-
-use Mo;
-
-with 'Percona::WebAPI::Representation::JSON';
-with 'Percona::WebAPI::Representation::HashRef';
-
-has 'versions' => (
-   is       => 'ro',
-   isa      => 'HashRef',
-   required => 1,
-);
-
-1;