Unverified Commit 4c9056d8 authored by Birte Kristina Friesel's avatar Birte Kristina Friesel
Browse files

Release v6.04

parent 2c48152c

Changelog

+5 −0
Original line number Diff line number Diff line 
Travel::Status::DE::DeutscheBahn 6.04 - Sat Aug 10 2024



    * hafas-m: Add -n / --num-results option

    * HAFAS: Add BVG and VOS service definitions



Travel::Status::DE::DeutscheBahn 6.03 - Mon Apr 15 2024



    * Journey: Add product_at accessor

bin/hafas-m

+2 −2
Original line number Diff line number Diff line
@@ -3,7 +3,7 @@ use strict; 
use warnings;

use 5.014;



our $VERSION = '6.03';

our $VERSION = '6.04';



use utf8;

use DateTime;
@@ -684,7 +684,7 @@ B<hafas-m> [B<-s> I<service>] [B<-l> I<language>] B<!>I<query>|I<journeyID> 


=head1 VERSION



version 6.03

version 6.04



=head1 DESCRIPTION

lib/Travel/Status/DE/DeutscheBahn.pm

+2 −2
Original line number Diff line number Diff line
@@ -6,7 +6,7 @@ use 5.014; 


use parent 'Travel::Status::DE::HAFAS';



our $VERSION = '6.03';

our $VERSION = '6.04';



sub new {

	my ( $class, %opt ) = @_;
@@ -49,7 +49,7 @@ monitor operated by Deutsche Bahn 


=head1 VERSION



version 6.03

version 6.04



=head1 DESCRIPTION

lib/Travel/Status/DE/HAFAS.pm

+2 −2
Original line number Diff line number Diff line
@@ -21,7 +21,7 @@ use Travel::Status::DE::HAFAS::Polyline qw(decode_polyline); 
use Travel::Status::DE::HAFAS::Product;

use Travel::Status::DE::HAFAS::StopFinder;



our $VERSION = '6.03';

our $VERSION = '6.04';



# {{{ Endpoint Definition
@@ -1269,7 +1269,7 @@ monitors 


=head1 VERSION



version 6.03

version 6.04



=head1 DESCRIPTION

lib/Travel/Status/DE/HAFAS/Journey.pm

+3 −3
Original line number Diff line number Diff line
@@ -11,7 +11,7 @@ use DateTime::Format::Strptime; 
use List::Util qw(any uniq);

use Travel::Status::DE::HAFAS::Stop;



our $VERSION = '6.03';

our $VERSION = '6.04';



Travel::Status::DE::HAFAS::Journey->mk_ro_accessors(

	qw(datetime sched_datetime rt_datetime tz_offset
@@ -226,7 +226,7 @@ sub new { 
			my $load = $tco_kv->{rRT} // $tco_kv->{r};



			# BVG uses 11 .. 13 rather than 1 .. 4

			if ( $load > 10 ) {

			if ( defined $load and $load > 10 ) {

				$load -= 10;

			}
@@ -437,7 +437,7 @@ journey received by Travel::Status::DE::HAFAS 


=head1 VERSION



version 6.03

version 6.04



=head1 DESCRIPTION