1 files changed, 30 insertions, 0 deletions
diff --git a/lib/Travel/Status/DE/IRIS/Result.pm b/lib/Travel/Status/DE/IRIS/Result.pm
index 63e0c40..153db87 100644
--- a/lib/Travel/Status/DE/IRIS/Result.pm
+++ b/lib/Travel/Status/DE/IRIS/Result.pm
@@ -305,6 +305,14 @@ sub set_messages {
 	return $self;
 }
 
+sub set_track_messages {
+	my ( $self, %track_messages ) = @_;
+
+	$self->{track_messages} = \%track_messages;
+
+	return $self;
+}
+
 sub set_realtime {
 	my ( $self, $xmlobj ) = @_;
 
@@ -469,6 +477,28 @@ sub delay_messages {
 	return @ret;
 }
 
+sub track_messages {
+	my ($self) = @_;
+
+	my @keys = reverse sort keys %{ $self->{track_messages} };
+	my @msgs = map { $self->{track_messages}{$_} } @keys;
+	my @ret;
+
+	for my $msg (@msgs) {
+		push(
+			@ret,
+			[
+				$self->parse_ts( $msg->[0] ),
+				$self->parse_ts( $msg->[1] ),
+				$self->parse_ts( $msg->[2] ),
+				$msg->[4]
+			]
+		);
+	}
+
+	return @ret;
+}
+
 sub arrival_wings {
 	my ($self) = @_;