Commit c7579bf4 authored by Birte Kristina Friesel's avatar Birte Kristina Friesel
Browse files

DeutscheBahn/Result.pm: Add route_raw accessor

parent 65b228b6

lib/Travel/Status/DE/DeutscheBahn/Result.pm

+5 −1
Original line number Diff line number Diff line
@@ -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.