diff options
Diffstat (limited to 'lib/Travel/Status/DE/HAFAS/Journey.pm')
| -rw-r--r-- | lib/Travel/Status/DE/HAFAS/Journey.pm | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/lib/Travel/Status/DE/HAFAS/Journey.pm b/lib/Travel/Status/DE/HAFAS/Journey.pm index 696841e..7933551 100644 --- a/lib/Travel/Status/DE/HAFAS/Journey.pm +++ b/lib/Travel/Status/DE/HAFAS/Journey.pm @@ -11,7 +11,7 @@ use DateTime::Format::Strptime; use List::Util qw(any uniq); use Travel::Status::DE::HAFAS::Stop; -our $VERSION = '6.02'; +our $VERSION = '6.03'; Travel::Status::DE::HAFAS::Journey->mk_ro_accessors( qw(datetime sched_datetime rt_datetime tz_offset @@ -66,8 +66,7 @@ sub new { my ( $date_ref, $parse_fmt ); if ( $jid =~ /#/ ) { - # ÖBB Journey ID - technically we ought to use Europe/Vienna tz - # but let's not get into that... + # modern trip ID, used e.g. by DB and ÖBB $date_ref = ( split( /#/, $jid ) )[12]; $parse_fmt = '%d%m%y'; if ( length($date_ref) < 5 ) { @@ -80,7 +79,7 @@ sub new { } } else { - # DB Journey ID + # old (legacy?) trip ID $date_ref = ( split( qr{[|]}, $jid ) )[4]; $parse_fmt = '%d%m%Y'; if ( length($date_ref) < 7 ) { @@ -429,7 +428,7 @@ journey received by Travel::Status::DE::HAFAS =head1 VERSION -version 6.02 +version 6.03 =head1 DESCRIPTION |