New --install output: quieter, more consistent.

lib/Percona/Agent/Logger.pm

@@ -73,6 +73,13 @@ has 'online_logging_enabled' => (
    default  => sub { return 0 },
 );
 
+has 'quiet' => (
+   is       => 'rw',
+   isa      => 'Int',
+   required => 0,
+   default  => sub { return 0 },
+);
+
 has '_buffer' => (
    is       => 'rw',
    isa      => 'ArrayRef',
@@ -262,6 +269,8 @@ sub _log {
    my $ts = ts(time, 1);  # 1=UTC
    my $level_number = level_number($level);
 
+   return if $self->quiet && $level_number < $self->quiet;
+
    chomp($msg);
    my $n_lines = 1;
    $n_lines++ while $msg =~ m/\n/g;