diff options
author | Daniel Friesel <derf@finalrewind.org> | 2015-06-30 12:47:12 +0200 |
---|---|---|
committer | Daniel Friesel <derf@finalrewind.org> | 2015-06-30 12:47:12 +0200 |
commit | 9231b5cfa20b46cc16e4edf86654a955380a973a (patch) | |
tree | 3a2b9cc9f6267bbdf431149259f315687b2bf89e | |
parent | f6799c2bf46e45b240567b7376526e4b529ea2b3 (diff) |
release v1.111.11
-rw-r--r-- | Changelog | 3 | ||||
-rwxr-xr-x | bin/efa-m | 12 | ||||
-rw-r--r-- | lib/Travel/Status/DE/EFA.pm | 4 | ||||
-rw-r--r-- | lib/Travel/Status/DE/EFA/Line.pm | 4 | ||||
-rw-r--r-- | lib/Travel/Status/DE/EFA/Result.pm | 11 | ||||
-rw-r--r-- | lib/Travel/Status/DE/EFA/Stop.pm | 4 | ||||
-rw-r--r-- | lib/Travel/Status/DE/VRR.pm | 4 |
7 files changed, 24 insertions, 18 deletions
@@ -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 @@ -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<city> [I<type>B<:>]I<name> =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 |