hafas-m: add -n / --num-results option

1 files changed, 22 insertions, 15 deletions

diff --git a/bin/hafas-m b/bin/hafas-m
index ea8471f..43ad111 100755
--- a/bin/hafas-m
+++ b/bin/hafas-m
@@ -17,7 +17,8 @@ use Travel::Status::DE::HAFAS;
 my ( $date, $time, $language );
 my $arrivals;
 my $show_jid;
-my $types = q{};
+my $num_results = 30;
+my $types       = q{};
 my $developer_mode;
 my $via;
 my ( $json_output,   $raw_json_output );
@@ -35,20 +36,21 @@ my $output_bold  = -t STDOUT ? "\033[1m" : q{};
 my $output_reset = -t STDOUT ? "\033[0m" : q{};
 
 GetOptions(
-	'a|arrivals'   => \$arrivals,
-	'd|date=s'     => \$date,
-	'h|help'       => sub { show_help(0) },
-	'j|with-jid'   => \$show_jid,
-	'l|language=s' => \$language,
-	'm|mot=s'      => \$types,
-	's|service=s'  => \$service,
-	't|time=s'     => \$time,
-	'v|via=s'      => \$via,
-	'V|version'    => \&show_version,
-	'devmode'      => \$developer_mode,
-	'json'         => \$json_output,
-	'raw-json'     => \$raw_json_output,
-	'list'         => \$list_services,
+	'a|arrivals'      => \$arrivals,
+	'd|date=s'        => \$date,
+	'h|help'          => sub { show_help(0) },
+	'j|with-jid'      => \$show_jid,
+	'l|language=s'    => \$language,
+	'm|mot=s'         => \$types,
+	'n|num-results=s' => \$num_results,
+	's|service=s'     => \$service,
+	't|time=s'        => \$time,
+	'v|via=s'         => \$via,
+	'V|version'       => \&show_version,
+	'devmode'         => \$developer_mode,
+	'json'            => \$json_output,
+	'raw-json'        => \$raw_json_output,
+	'list'            => \$list_services,
 
 ) or show_help(1);
 
@@ -79,6 +81,7 @@ my %opt = (
 	developer_mode => $developer_mode,
 	service        => $service,
 	language       => $language,
+	results        => $num_results,
 );
 
 if ( $opt{station} =~ m{ ^ (?<lat> [0-9.]+ ) : (?<lon> [0-9].+ ) $ }x ) {
@@ -785,6 +788,10 @@ To show them exclusively, set I<motlist> to I<mot1>,I<mot2>,...
 
 The I<mot> types depend on the used service. Use C<< -m help >> to list them.
 
+=item B<-n>, B<--num-results> I<count>
+
+Request up to I<count> results. Default: 30.
+
 =item B<--raw-json>
 
 Print unprocessed HAFAS response as JSON and exit.