diff options
Diffstat (limited to 'lib/Travel/Status/DE/DBRIS/Formation/Carriage.pm')
| -rw-r--r-- | lib/Travel/Status/DE/DBRIS/Formation/Carriage.pm | 10 |
1 files changed, 5 insertions, 5 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}; |