projects
/
nethack-naodash.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Support filtering by version in App::NAOdash
[nethack-naodash.git]
/
lib
/
App
/
NAOdash.pm
diff --git
a/lib/App/NAOdash.pm
b/lib/App/NAOdash.pm
index 0938a4b26b1bd61ef27de3d491c9691441d5d293..d6df6bef999c6238b71c7a65bff732aa4d436912 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
2
';
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)
}
This page took
0.010035 seconds
and
4
git commands to generate.