diff options
Diffstat (limited to 'bin/dbris')
-rwxr-xr-x | bin/dbris | 4 |
1 files changed, 3 insertions, 1 deletions
@@ -16,7 +16,7 @@ use Travel::Routing::DE::DBRIS; my ( $date, $time, $from, $to, $language ); my $mots; -my $discounts; +my ( $first_class, $discounts ); my $developer_mode; my ( $json_output, $raw_json_output ); my $use_cache = 1; @@ -38,6 +38,7 @@ GetOptions( 'D|discounts=s' => \$discounts, 'h|help' => sub { show_help(0) }, 'f|full-route' => \$show_full_route, + 'first-class!' => \$first_class, 'm|modes-of-transit=s' => \$mots, 'l|language=s' => \$language, 't|time=s' => \$time, @@ -115,6 +116,7 @@ my %opt = ( to => get_stop( $to_raw, 0 ), via => [ map { get_stop( $_, 1 ) } @via_raw ], language => $language, + first_class => $first_class, cache => $cache, developer_mode => $developer_mode, ); |