diff options
| author | Birte Kristina Friesel <derf@finalrewind.org> | 2024-09-21 19:14:58 +0200 |
|---|---|---|
| committer | Birte Kristina Friesel <derf@finalrewind.org> | 2024-09-21 19:14:58 +0200 |
| commit | f67c404380f89e3aadd44286758bcabb4de9f42f (patch) | |
| tree | af56df52ff1b9d8e34dcdee4b05f3bd73bd239fc /lib/Travel/Routing/DE/EFA.pm | |
| parent | 3a90f52e15f81a6e8caf4ea943e2e845db2bb5a4 (diff) | |
Diffstat (limited to 'lib/Travel/Routing/DE/EFA.pm')
| -rw-r--r-- | lib/Travel/Routing/DE/EFA.pm | 7 |
1 files changed, 7 insertions, 0 deletions
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} ); |