diff --git a/bin/pt-agent b/bin/pt-agent index 91db75f0..68b214a4 100755 --- a/bin/pt-agent +++ b/bin/pt-agent @@ -16,6 +16,7 @@ BEGIN { Percona::Toolkit Lmo::Meta Lmo::Object + Lmo::Types Lmo Percona::WebAPI::Representation Percona::WebAPI::Client @@ -279,6 +280,7 @@ sub meta { # See https://launchpad.net/percona-toolkit for more information. # ########################################################################### { +package Lmo::Types; use strict; use warnings qw( FATAL all ); @@ -1283,9 +1285,9 @@ has 'options' => ( required => 0, ); -has 'queries' => ( +has 'query' => ( is => 'ro', - isa => 'Maybe[ArrayRef]', + isa => 'Maybe[Str]', required => 0, default => undef, ); diff --git a/lib/Percona/WebAPI/Resource/Run.pm b/lib/Percona/WebAPI/Resource/Run.pm index 81ec57d0..85c38eb1 100644 --- a/lib/Percona/WebAPI/Resource/Run.pm +++ b/lib/Percona/WebAPI/Resource/Run.pm @@ -40,9 +40,9 @@ has 'options' => ( required => 0, ); -has 'queries' => ( +has 'query' => ( is => 'ro', - isa => 'Maybe[ArrayRef]', + isa => 'Maybe[Str]', required => 0, default => undef, );