From 46af87f44e1dd92b90baab946735ffe4bae3fe63 Mon Sep 17 00:00:00 2001
From: Sebastian Riedel <sri@cpan.org>
Date: Thu, 4 Feb 2021 11:14:03 +0100
Subject: [PATCH] Add silent attribute to Mojo::Server::Morbo

---
 Changes                  |  3 ++-
 lib/Mojo/Server/Morbo.pm | 10 +++++++++-
 script/morbo             |  4 ++--
 3 files changed, 13 insertions(+), 4 deletions(-)

diff --git a/Changes b/Changes
index 17abe54be3..0791ea7ab4 100644
--- a/Changes
+++ b/Changes
@@ -1,5 +1,6 @@
 
-8.73  2021-01-27
+8.73  2021-02-04
+  - Added silent attribute to Mojo::Server::Morbo.
 
 8.72  2021-01-26
   - Deprecated Mojo::UserAgent::local_address in favor of Mojo::UserAgent::socket_options.
diff --git a/lib/Mojo/Server/Morbo.pm b/lib/Mojo/Server/Morbo.pm
index 8866999738..15c1f2e037 100644
--- a/lib/Mojo/Server/Morbo.pm
+++ b/lib/Mojo/Server/Morbo.pm
@@ -16,6 +16,7 @@ has backend => sub {
   die qq{Can't find Morbo backend class "$backend" in \@INC. (@INC)\n};
 };
 has daemon => sub { Mojo::Server::Daemon->new };
+has silent => 1;
 
 sub run {
   my ($self, $app) = @_;
@@ -42,7 +43,7 @@ sub _manage {
     say @files == 1
       ? qq{File "@{[$files[0]]}" changed, restarting.}
       : qq{@{[scalar @files]} files changed, restarting.}
-      if $ENV{MORBO_VERBOSE};
+      unless $self->silent;
     kill 'TERM', $self->{worker} if $self->{worker};
     $self->{modified} = 1;
   }
@@ -130,6 +131,13 @@ Backend, usually a L<Mojo::Server::Morbo::Backend::Poll> object.
 
 L<Mojo::Server::Daemon> object this server manages.
 
+=head2 silent
+
+  my $bool = $morbo->silent;
+  $morbo   = $morbo->silent($bool);
+
+Disable console messages, defaults to a true value.
+
 =head1 METHODS
 
 L<Mojo::Server::Morbo> inherits all methods from L<Mojo::Base> and implements the following new ones.
diff --git a/script/morbo b/script/morbo
index d8279c9462..011ac9f90d 100755
--- a/script/morbo
+++ b/script/morbo
@@ -9,11 +9,11 @@ getopt
   'h|help'      => \my $help,
   'l|listen=s'  => \my @listen,
   'm|mode=s'    => \$ENV{MOJO_MODE},
-  'v|verbose'   => \$ENV{MORBO_VERBOSE},
+  'v|verbose'   => \my $verbose,
   'w|watch=s'   => \my @watch;
 
 die extract_usage if $help || !(my $app = shift);
-my $morbo = Mojo::Server::Morbo->new;
+my $morbo = Mojo::Server::Morbo->new(silent => !$verbose);
 $morbo->daemon->listen(\@listen) if @listen;
 $morbo->backend->watch(\@watch)  if @watch;
 $morbo->run($app);