summaryrefslogtreecommitdiff
path: root/lib/Travel
diff options
context:
space:
mode:
authorDaniel Friesel <derf@finalrewind.org>2011-06-28 00:44:17 +0200
committerDaniel Friesel <derf@finalrewind.org>2011-06-28 00:44:17 +0200
commitc7579bf432c6ec7bab2e502725ce2e3c1f16eccb (patch)
treeea50fb314504e6d61a3ca845e45fe5d5d82474a0 /lib/Travel
parent65b228b6458b7b411d310e5c62e3b4fa3bf3d96f (diff)
DeutscheBahn/Result.pm: Add route_raw accessor
Diffstat (limited to 'lib/Travel')
-rw-r--r--lib/Travel/Status/DE/DeutscheBahn/Result.pm6
1 files changed, 5 insertions, 1 deletions
diff --git a/lib/Travel/Status/DE/DeutscheBahn/Result.pm b/lib/Travel/Status/DE/DeutscheBahn/Result.pm
index 95d166f..590be7e 100644
--- a/lib/Travel/Status/DE/DeutscheBahn/Result.pm
+++ b/lib/Travel/Status/DE/DeutscheBahn/Result.pm
@@ -9,7 +9,7 @@ use parent 'Class::Accessor';
our $VERSION = '0.01';
Travel::Status::DE::DeutscheBahn::Result->mk_ro_accessors(
- qw(time train route_end platform info));
+ qw(time train route_end route_raw platform info));
sub new {
my ( $obj, %conf ) = @_;
@@ -112,6 +112,10 @@ arrive.
Returns a list of station names the train will pass between the selected
station and its origin/destination.
+=item $result->route_raw
+
+Returns the raw string used to create the route array.
+
=item $result->time
Returns the arrival/departure time as string in "hh:mm" format.