Unverified Commit bac92f91 authored by Birte Kristina Friesel's avatar Birte Kristina Friesel
Browse files

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

parent c81c7d4d

bin/hafas-m

+22 −15
Original line number Diff line number Diff line
@@ -17,6 +17,7 @@ use Travel::Status::DE::HAFAS; 
my ( $date, $time, $language );

my $arrivals;

my $show_jid;

my $num_results = 30;

my $types       = q{};

my $developer_mode;

my $via;
@@ -41,6 +42,7 @@ GetOptions( 
	'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,
@@ -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.