diff options
Diffstat (limited to 'lib/Travel/Status')
| -rw-r--r-- | lib/Travel/Status/DE/IRIS.pm | 2 | ||||
| -rw-r--r-- | lib/Travel/Status/DE/IRIS/Result.pm | 8 |
2 files changed, 9 insertions, 1 deletions
diff --git a/lib/Travel/Status/DE/IRIS.pm b/lib/Travel/Status/DE/IRIS.pm index 223a3c9..5776452 100644 --- a/lib/Travel/Status/DE/IRIS.pm +++ b/lib/Travel/Status/DE/IRIS.pm @@ -157,6 +157,8 @@ sub get_realtime { next; } + $result->add_realtime($s); + if ($e_tl) { $result->add_tl( class => $e_tl->getAttribute('f'), # D N S F diff --git a/lib/Travel/Status/DE/IRIS/Result.pm b/lib/Travel/Status/DE/IRIS/Result.pm index e637564..de59a2a 100644 --- a/lib/Travel/Status/DE/IRIS/Result.pm +++ b/lib/Travel/Status/DE/IRIS/Result.pm @@ -15,7 +15,7 @@ our $VERSION = '0.00'; Travel::Status::DE::IRIS::Result->mk_ro_accessors( qw(arrival date datetime delay departure line_no platform raw_id - route_start route_end + realtime_xml route_start route_end sched_arrival sched_departure start stop_no time train_id train_no type unknown_t unknown_o) ); @@ -102,6 +102,12 @@ sub add_dp { } } +sub add_realtime { + my ($self, $xmlobj) = @_; + + $self->{realtime_xml} = $xmlobj; +} + sub add_tl { my ( $self, %attrib ) = @_; |