diff --git a/lib/Travel/Status/DE/DeutscheBahn/Result.pm b/lib/Travel/Status/DE/DeutscheBahn/Result.pm index 0c0d9dcc9cfb8d6b447e47982f5c43309062e883..0175e0352bc534aedc0af6529baa9f98ba98a1b9 100644 --- a/lib/Travel/Status/DE/DeutscheBahn/Result.pm +++ b/lib/Travel/Status/DE/DeutscheBahn/Result.pm @@ -25,6 +25,12 @@ sub destination { return $self->{route_end}; } +sub line { + my ($self) = @_; + + return $self->{train}; +} + sub info { my ($self) = @_; @@ -191,6 +197,13 @@ Returns the train's delay in minutes, or undef if it is unknown. Returns additional information, for instance the reason why the train is delayed. May be an empty string if no (useful) information is available. +=item $result->line + +=item $result->train + +Returns the line / train name, either in a format like "S 1" (S-Bahn line 1) +or "RE 10111" (RegionalExpress train 10111, no line information). + =item $result->platform Returns the platform from which the train will depart / at which it will @@ -233,11 +246,6 @@ references of the form C<< [ arrival time, station name ] >>. Returns the arrival/departure time as string in "hh:mm" format. -=item $result->train - -Returns the line / train name, either in a format like "S 1" (S-Bahn line 1) -or "RE 10111" (RegionalExpress train 10111, no line information). - =back =head2 INTERNAL