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