diff options
| -rw-r--r-- | lib/Travel/Status/DE/IRIS/Result.pm | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/lib/Travel/Status/DE/IRIS/Result.pm b/lib/Travel/Status/DE/IRIS/Result.pm index ea96c55..daeb4b6 100644 --- a/lib/Travel/Status/DE/IRIS/Result.pm +++ b/lib/Travel/Status/DE/IRIS/Result.pm @@ -726,6 +726,12 @@ sub translate_msg { sub TO_JSON { my ($self) = @_; + my %copy = %{$self}; + delete $copy{arrival_wings}; + delete $copy{departure_wings}; + delete $copy{replaced_by}; + delete $copy{replacement_for}; + return { %{$self} }; } |