Skip to content

Commit

Permalink
Release v1.49
Browse files Browse the repository at this point in the history
  • Loading branch information
perlancar committed Aug 17, 2015
1 parent d693d98 commit 2ac1bcc
Show file tree
Hide file tree
Showing 3 changed files with 21 additions and 14 deletions.
7 changes: 7 additions & 0 deletions Changes
@@ -1,5 +1,12 @@
Revision history for App-dux

1.49 2015-08-17 (PERLANCAR)

- No functional changes.

- Switch from Log::Any to Log::Any::IfLOG.


1.48 2014-12-27 (PERLANCAR)

- Replace Module::Path with Module::Path::More.
Expand Down
2 changes: 1 addition & 1 deletion dist.ini
@@ -1,4 +1,4 @@
version=1.48
version=1.49

name=App-dux

Expand Down
26 changes: 13 additions & 13 deletions lib/Perinci/CmdLine/dux.pm
Expand Up @@ -82,19 +82,19 @@ sub hook_format_result {
$self->SUPER::hook_format_result($r);
}

sub hook_display_result {
my ($self, $r) = @_;

use experimental 'smartmatch';
my $res = $r->{res};
my $x = $res->[2];
my $i = 0;
while (~~(@$x) > 0) {
$log->tracef("[pericmd] Running hook_format_row ...") unless $i;
$i++;
print $handle $self->hook_format_row($r, shift(@$x));
}
}
#sub hook_display_result {
# my ($self, $r) = @_;
#
# use experimental 'smartmatch';
# my $res = $r->{res};
# my $x = $res->[2];
# my $i = 0;
# while (~~(@$x) > 0) {
# $log->tracef("[pericmd] Running hook_format_row ...") unless $i;
# $i++;
# print $handle $self->hook_format_row($r, shift(@$x));
# }
#}

1;
# ABSTRACT: Perinci::CmdLine subclass for dux cli
Expand Down

0 comments on commit 2ac1bcc

Please sign in to comment.