From 6e3ba2ce24d27528a414045503f96987deb60444 Mon Sep 17 00:00:00 2001 From: Daniel Nichter Date: Sun, 9 Jun 2013 20:05:54 -0700 Subject: [PATCH] Make Logger data_ts and service attribs rw. --- bin/pt-agent | 16 ++++++++++++---- lib/Percona/Agent/Logger.pm | 10 ++++++---- 2 files changed, 18 insertions(+), 8 deletions(-) diff --git a/bin/pt-agent b/bin/pt-agent index 2fab98d9..5099da13 100755 --- a/bin/pt-agent +++ b/bin/pt-agent @@ -1493,6 +1493,12 @@ package Percona::WebAPI::Resource::LogEntry; use Lmo; +has 'pid' => ( + is => 'ro', + isa => 'Int', + required => 1, +); + has 'service' => ( is => 'ro', isa => 'Str', @@ -4835,15 +4841,17 @@ has 'pid' => ( ); has 'service' => ( - is => 'ro', - isa => 'Str', + is => 'rw', + isa => 'Maybe[Str]', required => 0, + default => sub { return; }, ); has 'data_ts' => ( - is => 'ro', - isa => 'Int', + is => 'rw', + isa => 'Maybe[Int]', required => 0, + default => sub { return; }, ); has 'online_logging' => ( diff --git a/lib/Percona/Agent/Logger.pm b/lib/Percona/Agent/Logger.pm index 76596716..6c659a0e 100644 --- a/lib/Percona/Agent/Logger.pm +++ b/lib/Percona/Agent/Logger.pm @@ -46,15 +46,17 @@ has 'pid' => ( ); has 'service' => ( - is => 'ro', - isa => 'Str', + is => 'rw', + isa => 'Maybe[Str]', required => 0, + default => sub { return; }, ); has 'data_ts' => ( - is => 'ro', - isa => 'Int', + is => 'rw', + isa => 'Maybe[Int]', required => 0, + default => sub { return; }, ); has 'online_logging' => (