From c7579bf432c6ec7bab2e502725ce2e3c1f16eccb Mon Sep 17 00:00:00 2001 From: Daniel Friesel 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') 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