summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--Changelog3
-rwxr-xr-xbin/efa-m12
-rw-r--r--lib/Travel/Status/DE/EFA.pm4
-rw-r--r--lib/Travel/Status/DE/EFA/Line.pm4
-rw-r--r--lib/Travel/Status/DE/EFA/Result.pm11
-rw-r--r--lib/Travel/Status/DE/EFA/Stop.pm4
-rw-r--r--lib/Travel/Status/DE/VRR.pm4
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<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