diff options
| author | Birte Kristina Friesel <derf@finalrewind.org> | 2024-09-21 20:53:30 +0200 |
|---|---|---|
| committer | Birte Kristina Friesel <derf@finalrewind.org> | 2024-09-21 20:53:30 +0200 |
| commit | f35418a52ef93aeedf1a2ae314c3e18b62a680c5 (patch) | |
| tree | 45022bcd9f1fc9571b7bb4a931596527ddb0041c | |
| parent | ac225f7814ba98cb36089127b516ead937ce91f8 (diff) | |
devmode: print request
| -rw-r--r-- | lib/Travel/Status/DE/EFA.pm | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/lib/Travel/Status/DE/EFA.pm b/lib/Travel/Status/DE/EFA.pm index bbb25b7..3b05cc1 100644 --- a/lib/Travel/Status/DE/EFA.pm +++ b/lib/Travel/Status/DE/EFA.pm @@ -284,6 +284,13 @@ sub new { return $self; } + if ( $self->{developer_mode} ) { + say 'POST ' . $self->{efa_url}; + while ( my ( $key, $value ) = each %{ $self->{post} } ) { + printf( "%30s = %s\n", $key, $value ); + } + } + my $response = $self->{ua}->post( $self->{efa_url}, $self->{post} ); if ( $response->is_error ) { |