diff options
| author | Daniel Friesel <derf@finalrewind.org> | 2015-05-27 08:35:32 +0200 |
|---|---|---|
| committer | Daniel Friesel <derf@finalrewind.org> | 2015-05-27 08:35:32 +0200 |
| commit | 843388f82ba323965e1bff926d785a60d45f5590 (patch) | |
| tree | 70502c5657cd210f2b828f2d7d83e71b691cf731 /lib/Travel/Status/DE/EFA/Result.pm | |
| parent | 2cdd2e22c42385fd4ca2aa75569756ea17a601c4 (diff) | |
return a delay of undef when no delay information is available
Diffstat (limited to 'lib/Travel/Status/DE/EFA/Result.pm')
| -rw-r--r-- | lib/Travel/Status/DE/EFA/Result.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/Travel/Status/DE/EFA/Result.pm b/lib/Travel/Status/DE/EFA/Result.pm index e0d6ad4..95e35cd 100644 --- a/lib/Travel/Status/DE/EFA/Result.pm +++ b/lib/Travel/Status/DE/EFA/Result.pm @@ -18,7 +18,7 @@ sub new { my $ref = \%conf; - if ( $ref->{delay} eq '-9999' ) { + if ( defined $ref->{delay} and $ref->{delay} eq '-9999' ) { $ref->{delay} = 0; $ref->{is_cancelled} = 1; } @@ -86,7 +86,7 @@ Actual departure date (DD.MM.YYYY). =item $departure->delay Expected delay from scheduled departure time in minutes. A delay of 0 -indicates either departure on time or that no delay information is available. +indicates departure on time. undef when no realtime information is available. =item $departure->destination |