diff options
author | Birte Kristina Friesel <derf@finalrewind.org> | 2025-09-19 20:27:01 +0200 |
---|---|---|
committer | Birte Kristina Friesel <derf@finalrewind.org> | 2025-09-19 20:27:01 +0200 |
commit | bda32eb142cb0ae5dbc52de3f7074afacdeb8461 (patch) | |
tree | b988dd7a204ff1069f4438b28e108b098e1cf23c /lib/Travel/Status/DE/DBRIS | |
parent | 52c8c8f4195039702cb9ca43b0a9289b64652910 (diff) |
Diffstat (limited to 'lib/Travel/Status/DE/DBRIS')
-rw-r--r-- | lib/Travel/Status/DE/DBRIS/Formation.pm | 2 | ||||
-rw-r--r-- | lib/Travel/Status/DE/DBRIS/Formation/Carriage.pm | 2 | ||||
-rw-r--r-- | lib/Travel/Status/DE/DBRIS/Formation/Group.pm | 5 | ||||
-rw-r--r-- | lib/Travel/Status/DE/DBRIS/Formation/Sector.pm | 2 | ||||
-rw-r--r-- | lib/Travel/Status/DE/DBRIS/Journey.pm | 4 | ||||
-rw-r--r-- | lib/Travel/Status/DE/DBRIS/JourneyAtStop.pm | 2 | ||||
-rw-r--r-- | lib/Travel/Status/DE/DBRIS/Location.pm | 2 |
7 files changed, 11 insertions, 8 deletions
diff --git a/lib/Travel/Status/DE/DBRIS/Formation.pm b/lib/Travel/Status/DE/DBRIS/Formation.pm index 309656d..dbde764 100644 --- a/lib/Travel/Status/DE/DBRIS/Formation.pm +++ b/lib/Travel/Status/DE/DBRIS/Formation.pm @@ -12,7 +12,7 @@ use Travel::Status::DE::DBRIS::Formation::Group; use Travel::Status::DE::DBRIS::Formation::Sector; use Travel::Status::DE::DBRIS::Formation::Carriage; -our $VERSION = '0.13'; +our $VERSION = '0.14'; Travel::Status::DE::DBRIS::Formation->mk_ro_accessors( qw(direction platform train_type)); diff --git a/lib/Travel/Status/DE/DBRIS/Formation/Carriage.pm b/lib/Travel/Status/DE/DBRIS/Formation/Carriage.pm index c99d706..4e9590b 100644 --- a/lib/Travel/Status/DE/DBRIS/Formation/Carriage.pm +++ b/lib/Travel/Status/DE/DBRIS/Formation/Carriage.pm @@ -8,7 +8,7 @@ use utf8; use parent 'Class::Accessor'; use Carp qw(cluck); -our $VERSION = '0.13'; +our $VERSION = '0.14'; Travel::Status::DE::DBRIS::Formation::Carriage->mk_ro_accessors( qw(class_type is_closed is_dosto is_locomotive is_powercar number model section uic_id type diff --git a/lib/Travel/Status/DE/DBRIS/Formation/Group.pm b/lib/Travel/Status/DE/DBRIS/Formation/Group.pm index 47178a1..4ddbb3a 100644 --- a/lib/Travel/Status/DE/DBRIS/Formation/Group.pm +++ b/lib/Travel/Status/DE/DBRIS/Formation/Group.pm @@ -8,7 +8,7 @@ use utf8; use parent 'Class::Accessor'; use List::Util qw(uniq); -our $VERSION = '0.13'; +our $VERSION = '0.14'; Travel::Status::DE::DBRIS::Formation::Group->mk_ro_accessors( qw(designation name train_no train_type description desc_short destination has_sectors model series start_percent end_percent) @@ -424,6 +424,9 @@ sub parse_powertype { sub parse_model { my ($self) = @_; + # TODO also consider power type (91/94) and country, + # see https://github.com/derf/travelynx/issues/294 + my %ml = ( '011' => 0, '023' => 0, diff --git a/lib/Travel/Status/DE/DBRIS/Formation/Sector.pm b/lib/Travel/Status/DE/DBRIS/Formation/Sector.pm index a3247bb..51e5b35 100644 --- a/lib/Travel/Status/DE/DBRIS/Formation/Sector.pm +++ b/lib/Travel/Status/DE/DBRIS/Formation/Sector.pm @@ -7,7 +7,7 @@ use utf8; use parent 'Class::Accessor'; -our $VERSION = '0.13'; +our $VERSION = '0.14'; Travel::Status::DE::DBRIS::Formation::Sector->mk_ro_accessors( qw(name start_percent end_percent length_percent start_meters end_meters length_meters cube_meters cube_percent) diff --git a/lib/Travel/Status/DE/DBRIS/Journey.pm b/lib/Travel/Status/DE/DBRIS/Journey.pm index 29e8b6d..6dad9ba 100644 --- a/lib/Travel/Status/DE/DBRIS/Journey.pm +++ b/lib/Travel/Status/DE/DBRIS/Journey.pm @@ -8,7 +8,7 @@ use parent 'Class::Accessor'; use Travel::Status::DE::DBRIS::Location; -our $VERSION = '0.13'; +our $VERSION = '0.14'; # ->number is deprecated # TODO: Rename ->train, ->train_no to ->trip, ->trip_no @@ -201,7 +201,7 @@ journey received by Travel::Status::DE::DBRIS =head1 VERSION -version 0.13 +version 0.14 =head1 DESCRIPTION diff --git a/lib/Travel/Status/DE/DBRIS/JourneyAtStop.pm b/lib/Travel/Status/DE/DBRIS/JourneyAtStop.pm index 8ebd463..992e45e 100644 --- a/lib/Travel/Status/DE/DBRIS/JourneyAtStop.pm +++ b/lib/Travel/Status/DE/DBRIS/JourneyAtStop.pm @@ -6,7 +6,7 @@ use 5.020; use parent 'Class::Accessor'; -our $VERSION = '0.13'; +our $VERSION = '0.14'; Travel::Status::DE::DBRIS::JourneyAtStop->mk_ro_accessors( qw(type dep sched_dep rt_dep delay is_cancelled line stop_eva id platform rt_platform destination via_last diff --git a/lib/Travel/Status/DE/DBRIS/Location.pm b/lib/Travel/Status/DE/DBRIS/Location.pm index 7d59fc2..e607ce1 100644 --- a/lib/Travel/Status/DE/DBRIS/Location.pm +++ b/lib/Travel/Status/DE/DBRIS/Location.pm @@ -6,7 +6,7 @@ use 5.020; use parent 'Class::Accessor'; -our $VERSION = '0.13'; +our $VERSION = '0.14'; Travel::Status::DE::DBRIS::Location->mk_ro_accessors( qw(eva id lat lon name products type is_cancelled is_additional is_separation display_priority |