summaryrefslogtreecommitdiff
path: root/lib/Travel/Status/DE/DeutscheBahn
diff options
context:
space:
mode:
Diffstat (limited to 'lib/Travel/Status/DE/DeutscheBahn')
-rw-r--r--lib/Travel/Status/DE/DeutscheBahn/Result.pm18
1 files changed, 17 insertions, 1 deletions
diff --git a/lib/Travel/Status/DE/DeutscheBahn/Result.pm b/lib/Travel/Status/DE/DeutscheBahn/Result.pm
index 00bfb96..bf300ed 100644
--- a/lib/Travel/Status/DE/DeutscheBahn/Result.pm
+++ b/lib/Travel/Status/DE/DeutscheBahn/Result.pm
@@ -11,7 +11,7 @@ use parent 'Class::Accessor';
our $VERSION = '1.04';
Travel::Status::DE::DeutscheBahn::Result->mk_ro_accessors(
- qw(date time train route_end route_raw platform info_raw));
+ qw(date time train route_end route_raw platform info_raw routeinfo_raw));
sub new {
my ( $obj, %conf ) = @_;
@@ -75,6 +75,17 @@ sub route {
return @stops;
}
+sub route_info {
+ my ($self) = @_;
+
+ my $route_info = $self->routeinfo_raw;
+
+ $route_info =~ s{ ^ [\s\n]+ }{}x;
+ $route_info =~ s{ [\s\n]+ $ }{}x;
+
+ return $route_info;
+}
+
sub route_interesting {
my ( $self, $max_parts ) = @_;
@@ -264,6 +275,11 @@ B<route_raw>.
Similar to B<route>. however, this function returns a list of array
references of the form C<< [ arrival time, station name ] >>.
+=item $result->route_info
+
+Returns a string containing information related to the train's route, such as
+"landslide between X and Y, expect delays".
+
=item $result->time
Returns the arrival/departure time as string in "hh:mm" format.