diff options
Diffstat (limited to 'lib/Travel/Status/DE/DBRIS/Formation')
| -rw-r--r-- | lib/Travel/Status/DE/DBRIS/Formation/Carriage.pm | 10 | ||||
| -rw-r--r-- | lib/Travel/Status/DE/DBRIS/Formation/Group.pm | 2 | ||||
| -rw-r--r-- | lib/Travel/Status/DE/DBRIS/Formation/Sector.pm | 2 |
3 files changed, 7 insertions, 7 deletions
diff --git a/lib/Travel/Status/DE/DBRIS/Formation/Carriage.pm b/lib/Travel/Status/DE/DBRIS/Formation/Carriage.pm index a73bcc4..c99d706 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.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,10 +96,10 @@ sub new { $ref->{start_meters} = $pos->{start}; $ref->{end_meters} = $pos->{end}; $ref->{start_percent} - = ( $pos->{start} - $platform->{start} ) * 100 / $platform_length, - $ref->{end_percent} - = ( $pos->{end} - $platform->{start} ) * 100 / $platform_length, - if ( defined $pos->{start} and defined $pos->{end} ) { + = ( $pos->{start} - $platform->{start} ) * 100 / $platform_length; + $ref->{end_percent} + = ( $pos->{end} - $platform->{start} ) * 100 / $platform_length; + if ( defined $pos->{start} and defined $pos->{end} ) { $ref->{length_meters} = $pos->{start} - $pos->{end}; } $ref->{length_percent} = $ref->{end_percent} - $ref->{start_percent}; diff --git a/lib/Travel/Status/DE/DBRIS/Formation/Group.pm b/lib/Travel/Status/DE/DBRIS/Formation/Group.pm index 4a708bf..47178a1 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.12'; +our $VERSION = '0.13'; 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) diff --git a/lib/Travel/Status/DE/DBRIS/Formation/Sector.pm b/lib/Travel/Status/DE/DBRIS/Formation/Sector.pm index 5324071..a3247bb 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.12'; +our $VERSION = '0.13'; 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) |