diff options
Diffstat (limited to 'lib/Travel')
| -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 |
5 files changed, 14 insertions, 13 deletions
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 |