diff options
| -rw-r--r-- | Changelog | 2 | ||||
| -rw-r--r-- | lib/Travel/Status/DE/DeutscheBahn.pm | 5 | ||||
| -rw-r--r-- | lib/Travel/Status/DE/DeutscheBahn/Result.pm | 6 |
3 files changed, 8 insertions, 5 deletions
@@ -2,6 +2,8 @@ git HEAD * Detect ambiguous input errors (available via errstr) * Add language switch for additional information (german/english) + + [Travel::Status::DE::DeutscheBahn::Result] * Result: Add line (== train) and date accessors [db-ris] diff --git a/lib/Travel/Status/DE/DeutscheBahn.pm b/lib/Travel/Status/DE/DeutscheBahn.pm index 780d05d..8377894 100644 --- a/lib/Travel/Status/DE/DeutscheBahn.pm +++ b/lib/Travel/Status/DE/DeutscheBahn.pm @@ -274,7 +274,7 @@ arrival/departure monitor printf( "At %s: %s to %s from platform %s\n", $departure->time, - $departure->train, + $departure->line, $departure->destination, $departure->platform, ); @@ -310,7 +310,8 @@ Supported I<opts> are: =item B<station> => I<station> -The train station to report for, e.g. "Essen HBf". Mandatory. +The train station to report for, e.g. "Essen HBf" or +"Alfredusbad, Essen (Ruhr)". Mandatory. =item B<date> => I<dd>.I<mm>.I<yyyy> diff --git a/lib/Travel/Status/DE/DeutscheBahn/Result.pm b/lib/Travel/Status/DE/DeutscheBahn/Result.pm index 4860810..af858c6 100644 --- a/lib/Travel/Status/DE/DeutscheBahn/Result.pm +++ b/lib/Travel/Status/DE/DeutscheBahn/Result.pm @@ -144,7 +144,7 @@ arrival/departure received by Travel::Status::DE::DeutscheBahn printf( "At %s: %s to %s from platform %s\n", $departure->time, - $departure->train, + $departure->line, $departure->destination, $departure->platform, ); @@ -155,7 +155,7 @@ arrival/departure received by Travel::Status::DE::DeutscheBahn printf( "At %s: %s from %s on platform %s\n", $arrival->time, - $arrival->train, + $arrival->line, $arrival->origin, $arrival->platform, ); @@ -194,7 +194,7 @@ delayed. May be an empty string if no (useful) information is available. =item $result->train -Returns the line / train name, either in a format like "S 1" (S-Bahn line 1) +Returns the line name, either in a format like "S 1" (S-Bahn line 1) or "RE 10111" (RegionalExpress train 10111, no line information). =item $result->platform |