diff options
| author | Daniel Friesel <derf@finalrewind.org> | 2011-06-28 00:44:17 +0200 |
|---|---|---|
| committer | Daniel Friesel <derf@finalrewind.org> | 2011-06-28 00:44:17 +0200 |
| commit | c7579bf432c6ec7bab2e502725ce2e3c1f16eccb (patch) | |
| tree | ea50fb314504e6d61a3ca845e45fe5d5d82474a0 | |
| parent | 65b228b6458b7b411d310e5c62e3b4fa3bf3d96f (diff) | |
DeutscheBahn/Result.pm: Add route_raw accessor
| -rw-r--r-- | lib/Travel/Status/DE/DeutscheBahn/Result.pm | 6 |
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. |