diff options
| -rwxr-xr-x | bin/db-iris | 29 | ||||
| -rw-r--r-- | lib/Travel/Status/DE/IRIS.pm | 2 |
2 files changed, 17 insertions, 14 deletions
diff --git a/bin/db-iris b/bin/db-iris index ecbf376..3278c0f 100755 --- a/bin/db-iris +++ b/bin/db-iris @@ -22,6 +22,7 @@ my ( $date, $time, $lookahead ); my $datetime = DateTime->now( time_zone => 'Europe/Berlin' ); my $developer_mode = 0; my $realtime = 0; +my $with_related = 1; my ( $filter_via, $track_via, $status_via ); my ( @grep_class, @grep_type, @grep_platform ); my ( %edata, @edata_pre ); @@ -33,19 +34,20 @@ binmode( STDOUT, ':encoding(utf-8)' ); @ARGV = map { decode( 'UTF-8', $_ ) } @ARGV; GetOptions( - 'c|class=s@' => \@grep_class, - 'd|date=s' => \$date, - 'h|help' => sub { show_help(0) }, - 'l|lookahead=i' => \$lookahead, - 'o|output=s@' => \@edata_pre, - 'p|platform=s@' => \@grep_platform, - 'r|realtime' => \$realtime, - 't|time=s' => \$time, - 'T|type=s' => \@grep_type, - 'v|via=s' => \$filter_via, - 'V|track-via=s' => \$track_via, - 'devmode' => \$developer_mode, - 'version' => \&show_version, + 'c|class=s@' => \@grep_class, + 'd|date=s' => \$date, + 'h|help' => sub { show_help(0) }, + 'l|lookahead=i' => \$lookahead, + 'o|output=s@' => \@edata_pre, + 'p|platform=s@' => \@grep_platform, + 'r|realtime' => \$realtime, + 't|time=s' => \$time, + 'T|type=s' => \@grep_type, + 'v|via=s' => \$filter_via, + 'V|track-via=s' => \$track_via, + 'x|exact|no-related' => sub { $with_related = 0 }, + 'devmode' => \$developer_mode, + 'version' => \&show_version, ) or show_help(1); @@ -105,6 +107,7 @@ my $status = Travel::Status::DE::IRIS->new( developer_mode => $developer_mode, lookahead => $lookahead, station => $station, + with_related => $with_related, ); if ($track_via) { diff --git a/lib/Travel/Status/DE/IRIS.pm b/lib/Travel/Status/DE/IRIS.pm index ff146d8..4fbc511 100644 --- a/lib/Travel/Status/DE/IRIS.pm +++ b/lib/Travel/Status/DE/IRIS.pm @@ -37,7 +37,7 @@ sub new { serializable => $opt{serializable}, station => $opt{station}, user_agent => $ua, - with_related => $opt{with_related} // 1, + with_related => $opt{with_related}, }; bless( $self, $class ); |