diff options
| -rw-r--r-- | lib/Travel/Status/DE/HAFAS.pm | 2 | ||||
| -rw-r--r-- | lib/Travel/Status/DE/HAFAS/Result.pm | 11 |
2 files changed, 11 insertions, 2 deletions
diff --git a/lib/Travel/Status/DE/HAFAS.pm b/lib/Travel/Status/DE/HAFAS.pm index e14587b..884b006 100644 --- a/lib/Travel/Status/DE/HAFAS.pm +++ b/lib/Travel/Status/DE/HAFAS.pm @@ -318,6 +318,7 @@ sub results { my $delay = $tr->getAttribute('delay'); my $e_delay = $tr->getAttribute('e_delay'); my $info = $tr->getAttribute('delayReason'); + my $operator = $tr->getAttribute('operator'); my @messages; if ( not( $time and $dest ) ) { @@ -360,6 +361,7 @@ sub results { messages => \@messages, sched_time => $time, train => $train, + operator => $operator, route_end => $dest, platform => $platform, new_platform => $new_platform, diff --git a/lib/Travel/Status/DE/HAFAS/Result.pm b/lib/Travel/Status/DE/HAFAS/Result.pm index fc56091..71f9d1e 100644 --- a/lib/Travel/Status/DE/HAFAS/Result.pm +++ b/lib/Travel/Status/DE/HAFAS/Result.pm @@ -11,8 +11,8 @@ use parent 'Class::Accessor'; our $VERSION = '3.01'; Travel::Status::DE::HAFAS::Result->mk_ro_accessors( - qw(sched_date date sched_datetime datetime info raw_e_delay raw_delay - sched_time time train route_end) + qw(sched_date date sched_datetime datetime info operator raw_e_delay + raw_delay sched_time time train route_end) ); sub new { @@ -279,6 +279,13 @@ Returns the line/train number, for instance "SB16" (bus line SB16), Note that this may not be a number at all: Some transport services also use single-letter characters or words (e.g. "AIR") as line numbers. +=item $result->operator + +Returns the operator responsible for this arrival/departure. Returns undef +if the backend does not provide an operator. + +Note that E<Ouml>BB is the only known backend providing this information. + =item $result->platform Returns the arrival/departure platform. |