add print option mainly for command line

Songmu · Oct 29, 2013 · 252fcd5 · 252fcd5
1 parent a9252d6
commit 252fcd5
Show file tree

Hide file tree

Showing 3 changed files with 9 additions and 1 deletion.
diff --git a/cpanfile b/cpanfile
@@ -4,6 +4,8 @@ requires 'parent';
 requires 'YAML::Tiny';
 requires 'perl', '5.008001';
 
+recommends 'PerlIO::Util';
+
 suggests 'Fluent::Logger';
 
 on configure => sub {

diff --git a/lib/App/RunCron.pm b/lib/App/RunCron.pm
@@ -12,7 +12,7 @@ use Sys::Hostname;
 
 use Class::Accessor::Lite (
     new => 1,
-    ro  => [qw/timestamp command reporter error_reporter common_reporter tag/],
+    ro  => [qw/timestamp command reporter error_reporter common_reporter tag print/],
     rw  => [qw/logfile logpos exit_code _finished/],
 );
 
@@ -82,8 +82,13 @@ sub _run {
     }
     else {
         close $logwh;
+        if ($self->print) {
+            require PerlIO::Util;
+            $self->_logfh->push_layer(tee => *STDOUT);
+        }
         $self->_log($_) while <$logrh>;
         close $logrh;
+        $self->_logfh->pop_layer if $self->print;
         while (wait == -1) {}
         $self->exit_code($?);
     }

diff --git a/lib/App/RunCron/CLI.pm b/lib/App/RunCron/CLI.pm
@@ -20,6 +20,7 @@ sub new {
     $p->getoptions(\my %opt, qw/
         logfile=s
         timestamp
+        print
         reporter=s
         error_reporter=s
         common_reporter=s