Loading Changelog +1 −0 Original line number Diff line number Diff line Loading @@ -2,6 +2,7 @@ git HEAD * Result->route_interesting: Also consider airports * Result: Add route_info accessor * Result: Add is_cancelled accessor Travel::Status::DE::DeutscheBahn 1.04 - Sun May 03 2015 Loading lib/Travel/Status/DE/DeutscheBahn/Result.pm +14 −0 Original line number Diff line number Diff line Loading @@ -62,6 +62,16 @@ sub delay { return; } sub is_cancelled { my ($self) = @_; my $info = $self->info_raw; if ( $info =~ m{ Fahrt \s f.llt \s aus }ox ) { return 1; } return 0; } sub origin { my ($self) = @_; Loading Loading @@ -218,6 +228,10 @@ Returns the train's delay in minutes, or undef if it is unknown. Returns additional information, for instance the reason why the train is delayed. May be an empty string if no (useful) information is available. =item $result->is_cancelled True if the train was cancelled, false otherwise. =item $result->line =item $result->train Loading Loading
Changelog +1 −0 Original line number Diff line number Diff line Loading @@ -2,6 +2,7 @@ git HEAD * Result->route_interesting: Also consider airports * Result: Add route_info accessor * Result: Add is_cancelled accessor Travel::Status::DE::DeutscheBahn 1.04 - Sun May 03 2015 Loading
lib/Travel/Status/DE/DeutscheBahn/Result.pm +14 −0 Original line number Diff line number Diff line Loading @@ -62,6 +62,16 @@ sub delay { return; } sub is_cancelled { my ($self) = @_; my $info = $self->info_raw; if ( $info =~ m{ Fahrt \s f.llt \s aus }ox ) { return 1; } return 0; } sub origin { my ($self) = @_; Loading Loading @@ -218,6 +228,10 @@ Returns the train's delay in minutes, or undef if it is unknown. Returns additional information, for instance the reason why the train is delayed. May be an empty string if no (useful) information is available. =item $result->is_cancelled True if the train was cancelled, false otherwise. =item $result->line =item $result->train Loading