From c7579bf432c6ec7bab2e502725ce2e3c1f16eccb Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@finalrewind.org>
Date: Tue, 28 Jun 2011 00:44:17 +0200
Subject: DeutscheBahn/Result.pm: Add route_raw accessor
---
lib/Travel/Status/DE/DeutscheBahn/Result.pm | 6 +++++-
1 file changed, 5 insertions(+), 1 deletion(-)
(limited to 'lib/Travel/Status/DE/DeutscheBahn/Result.pm')
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.
--
cgit v1.2.3