add has_compartments accessor (59bf31e9) · Commits · derf / Travel-Status-DE-DBWagenreihung

lib/Travel/Status/DE/DBWagenreihung/Wagon.pm

+27 −24

Original line number	Diff line number	Diff line
		@@ -11,9 +11,10 @@ use Carp qw(cluck);
		our $VERSION = '0.00';

		Travel::Status::DE::DBWagenreihung::Wagon->mk_ro_accessors(
		qw(attributes class_type has_ac has_accessibility has_bistro
		qw(attributes class_type has_ac has_accessibility has_bistro has_compartments
		has_multipurpose is_dosto is_interregio is_locomotive is_powercar number
		section type));
		section type)
		);

		sub new {
		my ( $obj, %opt ) = @_;
		@@ -100,6 +101,7 @@ sub parse_type {
		}

		if ( $type =~ m{m} ) {

		# ?
		}

		@@ -111,6 +113,7 @@ sub parse_type {

		if ( $type =~ m{v} ) {
		$self->{has_ac} = 1;
		$self->{has_compartments} = 1;
		push( @desc, 'klimatisiert' );
		push( @desc, 'Abteilwagen' );
		}