projects
/
nethack-naodash.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Bump version and update Changes
[nethack-naodash.git]
/
lib
/
App
/
NAOdash.pm
diff --git
a/lib/App/NAOdash.pm
b/lib/App/NAOdash.pm
index f80a0fd0e60f397e628789e71d659dd692341ce4..5bf8b7a4584addd07d82037cfe9f5b06d841e3cc 100644
(file)
--- a/
lib/App/NAOdash.pm
+++ b/
lib/App/NAOdash.pm
@@
-6,7
+6,7
@@
use warnings;
use re '/saa';
use utf8;
use re '/saa';
use utf8;
-our $VERSION = '0.00
1
';
+our $VERSION = '0.00
3
';
use Encode qw/encode/;
use File::Slurp;
use Encode qw/encode/;
use File::Slurp;
@@
-94,12
+94,12
@@
EOF
}
sub run {
}
sub run {
- my ($user_or_path) = @_;
+ my ($
args, $
user_or_path) = @_;
my $stats;
if ($user_or_path =~ /^\w+$/) { # Looks like a user
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 {
} 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)
}
}
print encode 'UTF-8', naodash_to_ansi $stats ## no critic (RequireCheckedSyscalls)
}
@@
-130,8
+130,8
@@
It defines two functions:
=item B<naodash_to_ansi>(I<$stats>)
Takes the result of B<naodash_user> or B<naodash_xlog> and presents it
=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>)
=item B<run>(I<$user_or_path>)
This page took
0.010096 seconds
and
4
git commands to generate.