From 9231b5cfa20b46cc16e4edf86654a955380a973a Mon Sep 17 00:00:00 2001 From: Daniel Friesel Date: Tue, 30 Jun 2015 12:47:12 +0200 Subject: release v1.11 --- Changelog | 3 ++- bin/efa-m | 12 ++++++++---- lib/Travel/Status/DE/EFA.pm | 4 ++-- lib/Travel/Status/DE/EFA/Line.pm | 4 ++-- lib/Travel/Status/DE/EFA/Result.pm | 11 ++++++----- lib/Travel/Status/DE/EFA/Stop.pm | 4 ++-- lib/Travel/Status/DE/VRR.pm | 4 ++-- 7 files changed, 24 insertions(+), 18 deletions(-) diff --git a/Changelog b/Changelog index 200b1ff..2aeeacd 100644 --- a/Changelog +++ b/Changelog @@ -1,5 +1,6 @@ -git HEAD +Travel::Status::DE::VRR 1.11 - Tue Jun 30 2015 + * efa-m: Remove -V alias for --version * efa-m: Add -V / --track-via option * efa-m: Add -O / --output option with outputtypes route_after, route_before, fullroute and route diff --git a/bin/efa-m b/bin/efa-m index 7c17472..8c527a4 100755 --- a/bin/efa-m +++ b/bin/efa-m @@ -6,7 +6,7 @@ use utf8; no if $] >= 5.018, warnings => "experimental::smartmatch"; -our $VERSION = '1.10'; +our $VERSION = '1.11'; binmode( STDOUT, ':encoding(utf-8)' ); @@ -179,7 +179,8 @@ sub show_lines { } push( @output, - [ $l->type, $l->name, $l->direction // q{}, q{}, $l->route // q{} ] ); + [ $l->type, $l->name, $l->direction // q{}, q{}, $l->route // q{} ] + ); } display_result(@output); @@ -195,7 +196,10 @@ sub show_results { my @output_line; my $platform = $d->platform; my $dtime = ( - $relative_times ? sprintf( '%2d min', $d->countdown ) : $d->sched_time ); + $relative_times + ? sprintf( '%2d min', $d->countdown ) + : $d->sched_time + ); if ( $d->platform_db ) { $platform .= ' (DB)'; @@ -290,7 +294,7 @@ I [IB<:>]I =head1 VERSION -version 1.10 +version 1.11 =head1 DESCRIPTION diff --git a/lib/Travel/Status/DE/EFA.pm b/lib/Travel/Status/DE/EFA.pm index 9013772..df79cca 100644 --- a/lib/Travel/Status/DE/EFA.pm +++ b/lib/Travel/Status/DE/EFA.pm @@ -6,7 +6,7 @@ use 5.010; no if $] >= 5.018, warnings => 'experimental::smartmatch'; -our $VERSION = '1.10'; +our $VERSION = '1.11'; use Carp qw(confess cluck); use Encode qw(encode decode); @@ -508,7 +508,7 @@ Travel::Status::DE::EFA - unofficial EFA departure monitor =head1 VERSION -version 1.10 +version 1.11 =head1 DESCRIPTION diff --git a/lib/Travel/Status/DE/EFA/Line.pm b/lib/Travel/Status/DE/EFA/Line.pm index d259a1f..35560b2 100644 --- a/lib/Travel/Status/DE/EFA/Line.pm +++ b/lib/Travel/Status/DE/EFA/Line.pm @@ -6,7 +6,7 @@ use 5.010; use parent 'Class::Accessor'; -our $VERSION = '1.10'; +our $VERSION = '1.11'; Travel::Status::DE::EFA::Line->mk_ro_accessors( qw(direction name operator route type valid)); @@ -46,7 +46,7 @@ requested station =head1 VERSION -version 1.10 +version 1.11 =head1 DESCRIPTION diff --git a/lib/Travel/Status/DE/EFA/Result.pm b/lib/Travel/Status/DE/EFA/Result.pm index 8c625d9..d516e25 100644 --- a/lib/Travel/Status/DE/EFA/Result.pm +++ b/lib/Travel/Status/DE/EFA/Result.pm @@ -8,7 +8,7 @@ no if $] >= 5.018, warnings => 'experimental::smartmatch'; use parent 'Class::Accessor'; -our $VERSION = '1.10'; +our $VERSION = '1.11'; Travel::Status::DE::EFA::Result->mk_ro_accessors( qw(countdown date delay destination is_cancelled info key line lineref @@ -85,10 +85,11 @@ sub route_interesting { while ( @via_show < $max_parts and @via_main ) { my $stop = shift(@via_main); + # FIXME cannot smartmatch $stop since it became an object -# if ( $stop ~~ \@via_show or $stop == $last_stop ) { -# next; -# } + # if ( $stop ~~ \@via_show or $stop == $last_stop ) { + # next; + # } push( @via_show, $stop ); } } @@ -123,7 +124,7 @@ departure received by Travel::Status::DE::EFA =head1 VERSION -version 1.10 +version 1.11 =head1 DESCRIPTION diff --git a/lib/Travel/Status/DE/EFA/Stop.pm b/lib/Travel/Status/DE/EFA/Stop.pm index 1ec25cb..940272e 100644 --- a/lib/Travel/Status/DE/EFA/Stop.pm +++ b/lib/Travel/Status/DE/EFA/Stop.pm @@ -8,7 +8,7 @@ no if $] >= 5.018, warnings => 'experimental::smartmatch'; use parent 'Class::Accessor'; -our $VERSION = '1.10'; +our $VERSION = '1.11'; Travel::Status::DE::EFA::Stop->mk_ro_accessors( qw(arr_date arr_time dep_date dep_time name name_suf platform)); @@ -48,7 +48,7 @@ in a Travel::Status::DE::EFA::Result's route =head1 VERSION -version 1.10 +version 1.11 =head1 DESCRIPTION diff --git a/lib/Travel/Status/DE/VRR.pm b/lib/Travel/Status/DE/VRR.pm index 363fc8c..620eaf7 100644 --- a/lib/Travel/Status/DE/VRR.pm +++ b/lib/Travel/Status/DE/VRR.pm @@ -6,7 +6,7 @@ use 5.010; no if $] >= 5.018, warnings => "experimental::smartmatch"; -our $VERSION = '1.10'; +our $VERSION = '1.11'; use parent 'Travel::Status::DE::EFA'; @@ -44,7 +44,7 @@ Travel::Status::DE::VRR - unofficial VRR departure monitor. =head1 VERSION -version 1.10 +version 1.11 =head1 DESCRIPTION -- cgit v1.2.3