From 7f73d668ac162af723bbc80b2bb35b7419715c5b Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@finalrewind.org>
Date: Fri, 3 Jan 2014 15:10:39 +0100
Subject: add debug helper script

---
 lib/Travel/Status/DE/IRIS/Result.pm | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

(limited to 'lib/Travel/Status/DE/IRIS')

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 ) = @_;
 
-- 
cgit v1.2.3