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 f80a0fd0e60f397e628789e71d659dd692341ce4..d6df6bef999c6238b71c7a65bff732aa4d436912 100644 (file)
--- a/lib/App/NAOdash.pm
+++ b/lib/App/NAOdash.pm
@@ -6,7 +6,7 @@ use warnings;
 use re '/saa';
 use utf8;
 
-our $VERSION = '0.001';
+our $VERSION = '0.002';
 
 use Encode qw/encode/;
 use File::Slurp;
@@ -94,12 +94,12 @@ EOF
 }
 
 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)
 }
@@ -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
-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>)