From f67c404380f89e3aadd44286758bcabb4de9f42f Mon Sep 17 00:00:00 2001
From: Birte Kristina Friesel <derf@finalrewind.org>
Date: Sat, 21 Sep 2024 19:14:58 +0200
Subject: --devmode: print request

---
 lib/Travel/Routing/DE/EFA.pm | 7 +++++++
 1 file changed, 7 insertions(+)

(limited to 'lib/Travel/Routing/DE/EFA.pm')

diff --git a/lib/Travel/Routing/DE/EFA.pm b/lib/Travel/Routing/DE/EFA.pm
index 80bfb68..35c289b 100644
--- a/lib/Travel/Routing/DE/EFA.pm
+++ b/lib/Travel/Routing/DE/EFA.pm
@@ -508,6 +508,13 @@ sub submit {
 	$self->{ua} = LWP::UserAgent->new(%conf);
 	$self->{ua}->env_proxy;
 
+	if ( $self->{config}{developer_mode} ) {
+		say 'POST ' . $self->{config}{efa_url};
+		while ( my ( $key, $value ) = each %{ $self->{post} } ) {
+			printf( "%30s = %s\n", $key, $value );
+		}
+	}
+
 	my $response
 	  = $self->{ua}->post( $self->{config}->{efa_url}, $self->{post} );
 
-- 
cgit v1.2.3