Loading Changelog +2 −1 Original line number Diff line number Diff line 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 Loading bin/efa-m +8 −4 Original line number Diff line number Diff line Loading @@ -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)' ); Loading Loading @@ -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); Loading @@ -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)'; Loading Loading @@ -290,7 +294,7 @@ I<city> [I<type>B<:>]I<name> =head1 VERSION version 1.10 version 1.11 =head1 DESCRIPTION Loading lib/Travel/Status/DE/EFA.pm +2 −2 Original line number Diff line number Diff line Loading @@ -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); Loading Loading @@ -508,7 +508,7 @@ Travel::Status::DE::EFA - unofficial EFA departure monitor =head1 VERSION version 1.10 version 1.11 =head1 DESCRIPTION Loading lib/Travel/Status/DE/EFA/Line.pm +2 −2 Original line number Diff line number Diff line Loading @@ -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)); Loading Loading @@ -46,7 +46,7 @@ requested station =head1 VERSION version 1.10 version 1.11 =head1 DESCRIPTION Loading lib/Travel/Status/DE/EFA/Result.pm +6 −5 Original line number Diff line number Diff line Loading @@ -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 Loading Loading @@ -85,6 +85,7 @@ 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; Loading Loading @@ -123,7 +124,7 @@ departure received by Travel::Status::DE::EFA =head1 VERSION version 1.10 version 1.11 =head1 DESCRIPTION Loading Loading
Changelog +2 −1 Original line number Diff line number Diff line 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 Loading
bin/efa-m +8 −4 Original line number Diff line number Diff line Loading @@ -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)' ); Loading Loading @@ -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); Loading @@ -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)'; Loading Loading @@ -290,7 +294,7 @@ I<city> [I<type>B<:>]I<name> =head1 VERSION version 1.10 version 1.11 =head1 DESCRIPTION Loading
lib/Travel/Status/DE/EFA.pm +2 −2 Original line number Diff line number Diff line Loading @@ -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); Loading Loading @@ -508,7 +508,7 @@ Travel::Status::DE::EFA - unofficial EFA departure monitor =head1 VERSION version 1.10 version 1.11 =head1 DESCRIPTION Loading
lib/Travel/Status/DE/EFA/Line.pm +2 −2 Original line number Diff line number Diff line Loading @@ -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)); Loading Loading @@ -46,7 +46,7 @@ requested station =head1 VERSION version 1.10 version 1.11 =head1 DESCRIPTION Loading
lib/Travel/Status/DE/EFA/Result.pm +6 −5 Original line number Diff line number Diff line Loading @@ -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 Loading Loading @@ -85,6 +85,7 @@ 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; Loading Loading @@ -123,7 +124,7 @@ departure received by Travel::Status::DE::EFA =head1 VERSION version 1.10 version 1.11 =head1 DESCRIPTION Loading