use re '/saa';
use utf8;
-our $VERSION = '0.001';
+our $VERSION = '0.003';
use Encode qw/encode/;
use File::Slurp;
}
sub run {
- my ($user_or_path) = @_;
+ my ($args, $user_or_path) = @_;
my $stats;
if ($user_or_path =~ /^\w+$/) { # Looks like a user
- $stats = naodash_user $user_or_path
+ $stats = naodash_user $args, $user_or_path
} else {
- $stats = naodash_xlog read_file $user_or_path
+ $stats = naodash_xlog $args, read_file $user_or_path
}
print encode 'UTF-8', naodash_to_ansi $stats ## no critic (RequireCheckedSyscalls)
}
=item B<naodash_to_ansi>(I<$stats>)
Takes the result of B<naodash_user> or B<naodash_xlog> and presents it
-in a text form, using ANSI color escape sequences and unicode ticks
-(✓) and X marks (✗) to indicate the presence/absence of checks.
+in a text form, using ANSI escape sequences to indicate the
+presence/absence of checks.
=item B<run>(I<$user_or_path>)