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;
 
-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)
 }