diff options
-rw-r--r-- | lib/TUWF.pm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lib/TUWF.pm b/lib/TUWF.pm index 6818f9e..3d87ddb 100644 --- a/lib/TUWF.pm +++ b/lib/TUWF.pm @@ -487,7 +487,10 @@ sub _handle_error { "HTTP Request Headers:\n". join('', map sprintf(" %s: %s\n", $_, $self->reqHeader($_)), $self->reqHeader). "POST dump:\n". - join('', map sprintf(" %s: %s\n", $_, join "\n ", $self->reqPosts($_)), $self->reqPosts). + ($self->reqJSON() + ? JSON::XS->new->pretty->encode($self->reqJSON()) + : join('', map sprintf(" %s: %s\n", $_, join "\n ", $self->reqPosts($_)), $self->reqPosts) + ). "Error:\n $err\n" ) if ref $err ne 'TUWF::Exception'; } |