diff options
Diffstat (limited to 'lib/Travel/Status/DE/DBWagenreihung/Group.pm')
| -rw-r--r-- | lib/Travel/Status/DE/DBWagenreihung/Group.pm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lib/Travel/Status/DE/DBWagenreihung/Group.pm b/lib/Travel/Status/DE/DBWagenreihung/Group.pm index 5cd2b24..b6848ab 100644 --- a/lib/Travel/Status/DE/DBWagenreihung/Group.pm +++ b/lib/Travel/Status/DE/DBWagenreihung/Group.pm @@ -11,7 +11,7 @@ use List::Util qw(uniq); our $VERSION = '0.14'; Travel::Status::DE::DBWagenreihung::Group->mk_ro_accessors( - qw(train_no train_type description desc_short destination has_sectors model series) + qw(train_no train_type description desc_short destination has_sectors model series start_percent end_percent) ); # {{{ Rolling Stock Models @@ -97,6 +97,9 @@ sub new { $ref->{has_sectors} = 1; } + $ref->{start_percent} = $ref->{carriages}[0]->start_percent; + $ref->{end_percent} = $ref->{carriages}[-1]->end_percent; + bless( $ref, $obj ); $ref->parse_description; |