summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--Changelog2
-rw-r--r--lib/Travel/Status/DE/DeutscheBahn.pm5
-rw-r--r--lib/Travel/Status/DE/DeutscheBahn/Result.pm6
3 files changed, 8 insertions, 5 deletions
diff --git a/Changelog b/Changelog
index cfd1e70..aac3ffc 100644
--- a/Changelog
+++ b/Changelog
@@ -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