diff options
| author | Birte Kristina Friesel <derf@finalrewind.org> | 2023-11-24 20:16:26 +0100 |
|---|---|---|
| committer | Birte Kristina Friesel <derf@finalrewind.org> | 2023-11-24 20:16:26 +0100 |
| commit | 2dbe21db0ea19499ae6518491627110feb433428 (patch) | |
| tree | b26a73194cbd754959cc6d01728453efe0b4bfaf /lib/Travel/Status/DE/EFA.pm | |
| parent | c7f5e1dc46fb37635dbe106fe93fa62a07b1d1fb (diff) | |
EFA, Result: parse and expose trainType and trainName fields
Diffstat (limited to 'lib/Travel/Status/DE/EFA.pm')
| -rw-r--r-- | lib/Travel/Status/DE/EFA.pm | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/lib/Travel/Status/DE/EFA.pm b/lib/Travel/Status/DE/EFA.pm index 75900c6..124410e 100644 --- a/lib/Travel/Status/DE/EFA.pm +++ b/lib/Travel/Status/DE/EFA.pm @@ -443,6 +443,8 @@ sub results { my $countdown = $e->getAttribute('countdown'); my $occupancy = $e->getAttribute('occupancy'); my $line = $e_line->getAttribute('number'); + my $train_type = $e_line->getAttribute('trainType'); + my $train_name = $e_line->getAttribute('trainName'); my $train_no = $e_line->getAttribute('trainNum'); my $dest = $e_line->getAttribute('direction'); my $info = $e_info->textContent; @@ -502,6 +504,8 @@ sub results { key => $key, lineref => $line_obj[0] // undef, line => $line, + train_type => $train_type, + train_name => $train_name, train_no => $train_no, destination => $dest, occupancy => $occupancy, |