diff options
author | Daniel Friesel <derf@finalrewind.org> | 2015-05-07 21:55:42 +0200 |
---|---|---|
committer | Daniel Friesel <derf@finalrewind.org> | 2015-05-07 21:55:42 +0200 |
commit | a58a9a6c73057275e1b05e4196110864d6146e51 (patch) | |
tree | 277a3988266c4aa5fe8b6ec842a3f8a2fae330d5 | |
parent | 39c390518b75cd191aaeec3eadbffdf394c5d593 (diff) |
Result: Add is_cancelled accessor
-rw-r--r-- | Changelog | 4 | ||||
-rw-r--r-- | lib/Travel/Status/DE/DeutscheBahn/Result.pm | 14 |
2 files changed, 18 insertions, 0 deletions
@@ -1,3 +1,7 @@ +git HEAD + + * Result: Add is_cancelled accessor + Travel::Status::DE::DeutscheBahn 1.04 - Sun May 03 2015 * Result: Add type accessor diff --git a/lib/Travel/Status/DE/DeutscheBahn/Result.pm b/lib/Travel/Status/DE/DeutscheBahn/Result.pm index ca61194..6eb7450 100644 --- a/lib/Travel/Status/DE/DeutscheBahn/Result.pm +++ b/lib/Travel/Status/DE/DeutscheBahn/Result.pm @@ -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) = @_; @@ -207,6 +217,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 |