JourneyAtStop: Add train, train_{short,mid,long}, maybe_{train,line}_no accessors (fb5c3b48) · Commits · derf / Travel-Status-DE-DBRIS

lib/Travel/Status/DE/DBRIS/JourneyAtStop.pm

+10 −1

Original line number	Diff line number	Diff line
		@@ -9,7 +9,9 @@ use parent 'Class::Accessor';
		our $VERSION = '0.01';

		Travel::Status::DE::DBRIS::JourneyAtStop->mk_ro_accessors(
		qw(type dep sched_dep rt_dep delay is_cancelled line stop_eva id platform rt_platform destination via via_last)
		qw(type dep sched_dep rt_dep delay is_cancelled line stop_eva id platform rt_platform destination via via_last
		train_short train_mid train_long train maybe_train_no maybe_line_no
		)
		);

		sub new {
		@@ -21,6 +23,10 @@ sub new {
		my $ref = {
		type => $json->{verkehrmittel}{kurzText},
		line => $json->{verkehrmittel}{mittelText},
		train => $json->{verkehrmittel}{name},
		train_short => $json->{verkehrmittel}{kurzText},
		train_mid => $json->{verkehrmittel}{mittelText},
		train_long => $json->{verkehrmittel}{langText},
		id => $json->{journeyId},
		stop_eva => $json->{bahnhofsId},
		destination => $json->{terminus},
		@@ -30,6 +36,9 @@ sub new {
		via_last => ( $json->{ueber} // [] )->[-1],
		};

		$ref->{maybe_train_no} = $ref->{train} =~ s{^.* ++}{}r;
		$ref->{maybe_line_no} = $ref->{train_mid} =~ s{^.* ++}{}r;

		bless( $ref, $obj );

		if ( $json->{zeit} ) {