summaryrefslogtreecommitdiff
path: root/lib/Travel/Status/DE/IRIS/Result.pm
diff options
context:
space:
mode:
authorDaniel Friesel <derf@finalrewind.org>2014-01-03 15:10:39 +0100
committerDaniel Friesel <derf@finalrewind.org>2014-01-03 15:10:39 +0100
commit7f73d668ac162af723bbc80b2bb35b7419715c5b (patch)
tree5221468cb8ef6da30a12e4fbc06e7a0fa1689852 /lib/Travel/Status/DE/IRIS/Result.pm
parent99af8a8a7577b151e9fe6593a5241ac88773d48c (diff)
add debug helper script
Diffstat (limited to 'lib/Travel/Status/DE/IRIS/Result.pm')
-rw-r--r--lib/Travel/Status/DE/IRIS/Result.pm8
1 files changed, 7 insertions, 1 deletions
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 ) = @_;