We now output verbose information on issues/repos as we iterate them

Author: stevieb9

Changes

@@ -7,6 +7,8 @@ Revision history for Github-Backup
     - Added --list, prints to STDOUT the full list of available repository
       objects for the given user
     - Changed github_backup to github-backup
+    - We now output information on what repo/issue we're working on
+    - Added Hook::Output::Tiny to hide STDERR messages when cloning
 
 1.02    2018-02-12
     - fix missing newline backslash in SYNOPSIS

Makefile.PL

@@ -33,10 +33,11 @@ WriteMakefile(
         'Test::More' => 0,
     },
     PREREQ_PM => {
-        'JSON'            => 0,
-        'LWP::UserAgent'  => 6.19,
-        'Moo'             => 2.003000,
-        'Pithub'          => 0.01033,
+        'Hook::Output::Tiny'    => 0,
+        'JSON'                  => 0,
+        'LWP::UserAgent'        => 6.19,
+        'Moo'                   => 2.003000,
+        'Pithub'                => 0.01033,
     },
     dist  => { COMPRESS => 'gzip -9f', SUFFIX => 'gz', },
     clean => { FILES => 'Github-Backup-*' },

lib/Github/Backup.pm

@@ -6,6 +6,7 @@ use warnings;
 use Carp qw(croak);
 use Data::Dumper;
 use Git::Repository;
+use Hook::Output::Tiny;
 use File::Copy;
 use File::Path;
 use JSON;
@@ -113,10 +114,12 @@ sub repos {
     my $repos = $self->list;
 
     for my $repo (@$repos){
-        my $stg = $self->stg . "/$repo->{name}";
+        $self->_trap->hook('stderr');
 
         print "Cloning $repo->{name}\n";
 
+        my $stg = $self->stg . "/$repo->{name}";
+
         if (! $self->forks){
             if (! exists $repo->{parent}){
                 Git::Repository->run(
@@ -131,6 +134,7 @@ sub repos {
                 { quiet => 0 }
             );
         }
+        $self->_trap->unhook('stderr');
     }
 }
 sub issues {
@@ -164,6 +168,14 @@ sub issues {
         }
     }
 }
+sub _trap {
+    my ($self) = @_;
+    if (! $self->{trap}) {
+        $self->{trap} = Hook::Output::Tiny->new;
+    }
+
+    return $self->{trap};
+}
 sub DESTROY {
     my $self = shift;