add support for canceled / additional stops. untested at the moment

1 files changed, 20 insertions, 1 deletions

diff --git a/lib/Travel/Status/DE/IRIS/Result.pm b/lib/Travel/Status/DE/IRIS/Result.pm
index 85abee7..69ed01a 100644
--- a/lib/Travel/Status/DE/IRIS/Result.pm
+++ b/lib/Travel/Status/DE/IRIS/Result.pm
@@ -11,6 +11,7 @@ use parent 'Class::Accessor';
 use Carp qw(cluck);
 use DateTime;
 use DateTime::Format::Strptime;
+use List::Compare;
 use List::MoreUtils qw(none uniq firstval);
 
 our $VERSION = '0.05';
@@ -189,6 +190,24 @@ sub add_tl {
 	return $self;
 }
 
+sub additional_stops {
+	my ($self) = @_;
+
+	$self->{comparator}
+	  //= List::Compare->new( $self->{sched_route_post}, $self->{route_post} );
+
+	return $self->{comparator}->get_complement;
+}
+
+sub canceled_stops {
+	my ($self) = @_;
+
+	$self->{comparator}
+	  //= List::Compare->new( $self->{sched_route_post}, $self->{route_post} );
+
+	return $self->{comparator}->get_unique;
+}
+
 sub merge_with_departure {
 	my ( $self, $result ) = @_;
 
@@ -475,7 +494,7 @@ sub translate_msg {
 		64 => 'Weichenstörung',
 		55 => 'Technische Störung an einem anderen Zug',        # ?
 		57 => 'Zusätzlicher Halt',                              # ?
-		58 => 'Umleitung(?)',                                   # ?
+		58 => 'Umleitung(?)',                                    # ?
 		63 => 'Technische Untersuchung am Zug',
 		80 => 'Abweichende Wagenreihung',
 		82 => 'Mehrere Wagen fehlen',