diff options
| author | Daniel Friesel <derf@finalrewind.org> | 2021-03-27 11:34:29 +0100 |
|---|---|---|
| committer | Daniel Friesel <derf@finalrewind.org> | 2021-03-27 11:34:29 +0100 |
| commit | 4b1936b7b0ef3985014ab322197e5ec3a61a6055 (patch) | |
| tree | 668770ebed3518e3849312bc18387003895c036a | |
| parent | b0a353ccae0f4543e71aa1bfbc9d809bc3a4739d (diff) | |
Result: Add train_no accessor
| -rw-r--r-- | lib/Travel/Status/DE/EFA.pm | 2 | ||||
| -rw-r--r-- | lib/Travel/Status/DE/EFA/Result.pm | 10 |
2 files changed, 9 insertions, 3 deletions
diff --git a/lib/Travel/Status/DE/EFA.pm b/lib/Travel/Status/DE/EFA.pm index 1c75c40..92fb193 100644 --- a/lib/Travel/Status/DE/EFA.pm +++ b/lib/Travel/Status/DE/EFA.pm @@ -443,6 +443,7 @@ sub results { my $countdown = $e->getAttribute('countdown'); my $occupancy = $e->getAttribute('occupancy'); my $line = $e_line->getAttribute('number'); + my $train_no = $e_line->getAttribute('trainNum'); my $dest = $e_line->getAttribute('direction'); my $info = $e_info->textContent; my $key = $e_line->getAttribute('key'); @@ -501,6 +502,7 @@ sub results { key => $key, lineref => $line_obj[0] // undef, line => $line, + train_no => $train_no, destination => $dest, occupancy => $occupancy, countdown => $countdown, diff --git a/lib/Travel/Status/DE/EFA/Result.pm b/lib/Travel/Status/DE/EFA/Result.pm index 2e1fdb0..a072b1e 100644 --- a/lib/Travel/Status/DE/EFA/Result.pm +++ b/lib/Travel/Status/DE/EFA/Result.pm @@ -12,7 +12,7 @@ our $VERSION = '1.18'; Travel::Status::DE::EFA::Result->mk_ro_accessors( qw(countdown date delay destination is_cancelled info key line lineref - mot occupancy operator platform platform_db platform_name sched_date sched_time time type) + mot occupancy operator platform platform_db platform_name sched_date sched_time time train_no type) ); my @mot_mapping = qw{ @@ -236,12 +236,12 @@ object. =item $departure->route_pre -List of stations the train passed (or will have passed) befoe this stop. +List of stations the vehicle passed (or will have passed) before this stop. Each station is a Travel::Status::DE::EFA::Stop(3pm) object. =item $departure->route_post -List of stations the train will pass after this stop. +List of stations the vehicle will pass after this stop. Each station is a Travel::Status::DE::EFA::Stop(3pm) object. =item $departure->sched_date @@ -256,6 +256,10 @@ Scheduled departure time (HH:MM). Actual departure time (HH:MM). +=item $departure->train_no + +Train number. Only defined if departure is a train. + =item $departure->type Type of the departure. Note that efa.vrr.de sometimes puts bogus data in this |