Changeset 2399 for trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Cli/Context.pm

Timestamp:

06/13/20 18:55:42 (4 years ago)

Author:

nanardon

Message:

la-cli: add | and > feature (act like in shell)

File:

• trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Cli/Context.pm (modified) (3 diffs)

trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Cli/Context.pm

@@ -37 +37 @@
 has La => ( is => 'ro' );
 has Out => ( is => 'ro' );
+has TempOut => ( is => 'rw' );
 has Interractive => ( is => 'rw', isa => 'Bool', default => 1 );
 
@@ -69 +70 @@
 sub print {
     my ( $self, @args ) = @_;
-    my $out = $self->Out;
+    my $out = $self->TempOut || $self->Out;
 
     print $out @args;
@@ -80 +81 @@
 sub printf {
     my ( $self, $str, @args ) = @_;
-    my $out = $self->Out;
+    my $out = $self->TempOut || $self->Out;
 
     printf $out $str, @args;