diff options
| -rw-r--r-- | perllib/Open311.pm | 11 |
1 files changed, 9 insertions, 2 deletions
diff --git a/perllib/Open311.pm b/perllib/Open311.pm index 078263320..d97b61f90 100644 --- a/perllib/Open311.pm +++ b/perllib/Open311.pm @@ -21,6 +21,13 @@ has debug_details => ( is => 'rw', 'isa' => 'Str', default => '' ); has success => ( is => 'rw', 'isa' => 'Bool', default => 0 ); has error => ( is => 'rw', 'isa' => 'Str', default => '' ); +before [ + qw/get_service_list get_service_meta_info get_service_requests get_service_request_updates + send_service_request post_service_request_update/ + ] => sub { + shift->debug_details(''); + }; + sub get_service_list { my $self = shift; @@ -221,7 +228,7 @@ sub post_service_request_update { } } - warn sprintf( "Failed to submit comment %s over Open311, response - %s\n%s", $comment->id, $response, $self->debug_details ); + warn sprintf( "Failed to submit comment %s over Open311, response - %s\n%s\n", $comment->id, $response, $self->debug_details ); return 0; } } @@ -330,7 +337,7 @@ sub _post { } else { $self->success(0); $self->error( sprintf( - "request failed: %s\nerror: %s\n%s", + "request failed: %s\nerror: %s\n%s\n", $res->status_line, $self->_process_error( $res->decoded_content ), $self->debug_details |