Unverified Commit 42d5deb8 authored by Birte Kristina Friesel's avatar Birte Kristina Friesel
Browse files

Release v0.13

parent e38908a9

Changelog

+5 −0
Original line number Diff line number Diff line 
Travel::Status::DE::DBRIS 0.13 - Mon Aug 25 2025



    * Formation::Group: Update carriage name list (patch by Lili Chelsea Urban)

    * Formation::Carriage: Handle undefined start/end markers



Travel::Status::DE::DBRIS 0.12 - Sat Jul 05 2025



    * dbris-m: Fix --(raw-)json for carriage formation requests

bin/dbris-m

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

use 5.020;



our $VERSION = '0.12';

our $VERSION = '0.13';



use utf8;

use DateTime;
@@ -603,7 +603,7 @@ B<dbris-m> B<?>I<query>|I<lat>B<:>I<lon> 


=head1 VERSION



version 0.12

version 0.13



=head1 DESCRIPTION

lib/Travel/Status/DE/DBRIS.pm

+2 −2
Original line number Diff line number Diff line
@@ -19,7 +19,7 @@ use Travel::Status::DE::DBRIS::JourneyAtStop; 
use Travel::Status::DE::DBRIS::Journey;

use Travel::Status::DE::DBRIS::Location;



our $VERSION = '0.12';

our $VERSION = '0.13';



# {{{ Constructors
@@ -427,7 +427,7 @@ Non-blocking variant; 


=head1 VERSION



version 0.12

version 0.13



=head1 DESCRIPTION

lib/Travel/Status/DE/DBRIS/Formation.pm

+1 −1
Original line number Diff line number Diff line
@@ -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.12';

our $VERSION = '0.13';



Travel::Status::DE::DBRIS::Formation->mk_ro_accessors(

	qw(direction platform train_type));

lib/Travel/Status/DE/DBRIS/Formation/Carriage.pm

+5 −5
Original line number Diff line number Diff line
@@ -8,7 +8,7 @@ use utf8; 
use parent 'Class::Accessor';

use Carp qw(cluck);



our $VERSION = '0.12';

our $VERSION = '0.13';

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
@@ -96,9 +96,9 @@ sub new { 
	$ref->{start_meters} = $pos->{start};

	$ref->{end_meters}   = $pos->{end};

	$ref->{start_percent}

	  = ( $pos->{start} - $platform->{start} ) * 100 / $platform_length,

	  = ( $pos->{start} - $platform->{start} ) * 100 / $platform_length;

	$ref->{end_percent}

	  = ( $pos->{end} - $platform->{start} ) * 100 / $platform_length,

	  = ( $pos->{end} - $platform->{start} ) * 100 / $platform_length;

	if ( defined $pos->{start} and defined $pos->{end} ) {

		$ref->{length_meters} = $pos->{start} - $pos->{end};

	}