+sub compare_to {
+ my ($self, $other) = @_;
+
+ return 1 if $self->execution_date && !$other->execution_date;
+ return -1 if !$self->execution_date && $other->execution_date;
+
+ my $result = 0;
+ $result = $self->execution_date <=> $other->execution_date if $self->execution_date;
+ return $result || ($self->sepa_export_id <=> $other->sepa_export_id) || ($self->id <=> $other->id);
+}
+