From c1f88f417a7eb91683aca7868f471ed84b06d2ec Mon Sep 17 00:00:00 2001 From: Daniel Friesel Date: Sun, 10 Jan 2021 12:19:33 +0100 Subject: add train_descriptions accessor --- lib/Travel/Status/DE/DBWagenreihung/Wagon.pm | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'lib/Travel/Status/DE/DBWagenreihung/Wagon.pm') diff --git a/lib/Travel/Status/DE/DBWagenreihung/Wagon.pm b/lib/Travel/Status/DE/DBWagenreihung/Wagon.pm index 319c919..060f303 100644 --- a/lib/Travel/Status/DE/DBWagenreihung/Wagon.pm +++ b/lib/Travel/Status/DE/DBWagenreihung/Wagon.pm @@ -13,7 +13,8 @@ Travel::Status::DE::DBWagenreihung::Wagon->mk_ro_accessors( qw(attributes class_type has_ac has_accessibility has_bahn_comfort has_bike_storage has_bistro has_compartments has_family_area has_phone_area has_quiet_area is_dosto is_interregio is_locomotive - is_powercar number model multipurpose section train_no type uic_id) + is_powercar number model multipurpose section train_no train_subtype type + uic_id) ); our %type_attributes = ( @@ -197,6 +198,8 @@ sub parse_type { sub set_traintype { my ( $self, $tt ) = @_; + $self->{train_subtype} = $tt; + if ( not $self->{number} or not exists( $type_attributes{$tt} ) ) { return; } -- cgit v1.2.3