diff options
| -rw-r--r-- | Changelog | 2 | ||||
| -rwxr-xr-x | bin/db-ris | 4 | ||||
| -rw-r--r-- | lib/Travel/Status/DE/DeutscheBahn/Result.pm | 27 |
3 files changed, 22 insertions, 11 deletions
@@ -3,8 +3,8 @@ git HEAD [Travel::Status::DE::DeutscheBahn::Result] * The info accessor now strips the mostly useless "k.A." / "pünktlich" (train on time) text parts - * Use the new info_raw accessor to get the old info results * Add (slightly experimental) route_interesting accessor + * Add delay accessor Travel::Status::DE::DeutscheBahn 0.03 - Wed Jul 13 2011 @@ -88,15 +88,13 @@ for my $d ( $status->results() ) { my @via; - my $re_late = qr{ (?: ^ | , ) ca[.] \s \d+ \s Minuten \s sp.ter}ox; - @via = $d->route; if ( $filter_via and not( first { $_ =~ m{$filter_via}io } @via ) ) { next; } - if ( $ignore_late and $d->info =~ $re_late ) { + if ( $ignore_late and $d->delay ) { next; } diff --git a/lib/Travel/Status/DE/DeutscheBahn/Result.pm b/lib/Travel/Status/DE/DeutscheBahn/Result.pm index 5c2e9e1..79cf5d4 100644 --- a/lib/Travel/Status/DE/DeutscheBahn/Result.pm +++ b/lib/Travel/Status/DE/DeutscheBahn/Result.pm @@ -38,6 +38,21 @@ sub info { return $info; } +sub delay { + my ($self) = @_; + + my $info = $self->info_raw; + + if ( $info =~ m{ p.nktlich }ox ) { + return 0; + } + if ( $info =~ m{ ca[.] \s (?<delay> \d+ ) \s Minuten \s sp.ter }ox ) { + return $+{delay}; + } + + return; +} + sub origin { my ($self) = @_; @@ -156,16 +171,14 @@ either the train's destination or its origin station. Convenience aliases for $result->route_end. -=item $result->info +=item $result->delay -Returns additional information, for instance in case the train is delayed. May -be an empty string if no (useful) information is available. +Returns the train's delay in steps of 5 minutes, or undef if it is unknown. -=item $result->info_raw +=item $result->info -Returns the raw info string. B<info> only tells you about delays, platform -changes and such, B<info_raw> also explicitly states wether a train is on time -or no information is available. +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->platform |