From bded16f9e8f83c9dd6bd89dd8539565c486381cc Mon Sep 17 00:00:00 2001
From: Antonio <antoniogamiz10@gmail.com>
Date: Mon, 26 Aug 2019 11:33:17 +0200
Subject: [PATCH] Add -v support for update option, fix #105

---
 lib/Perl6/Documentable/CLI.pm6 | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/lib/Perl6/Documentable/CLI.pm6 b/lib/Perl6/Documentable/CLI.pm6
index e8f86a3..c0bd022 100644
--- a/lib/Perl6/Documentable/CLI.pm6
+++ b/lib/Perl6/Documentable/CLI.pm6
@@ -195,13 +195,15 @@ package Perl6::Documentable::CLI {
     #| Check which pod files have changed and regenerate its HTML files.
     multi MAIN (
         "update",
-        Str  :$topdir = "doc",      #= Directory where the pod collection is stored
-        Str  :$conf = "config.json" #= Configuration file
+        Str  :$topdir = "doc",       #= Directory where the pod collection is stored
+        Str  :$conf = "config.json", #= Configuration file
+        Bool :v(:verbose($v))      = False,             #= Prints progress information
+
     ) {
         DEBUG("Checking for changes...");
         my $now = now;
 
-        my $cache = Pod::To::Cached.new(:path(".cache-{$topdir}"), :verbose, :source($topdir));
+        my $cache = Pod::To::Cached.new(:path(".cache-{$topdir}"), :verbose($v), :source($topdir));
         my @files = $cache.list-files(<Valid>);
 
         if (! @files) {