Added output of request JSON content when 'verbose' is enabled

jpinkham · Jun 9, 2013 · a9f25ea · a9f25ea
1 parent 71d0c24
commit a9f25ea
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/lib/Business/SiteCatalyst.pm b/lib/Business/SiteCatalyst.pm
@@ -251,6 +251,8 @@ sub send_request
 
 	$request->content_type('application/json');
 	$request->content( $json_in );
+
+	carp "Request content: >$json_in<" if $verbose;
 
 	my $user_agent = LWP::UserAgent->new();
 	my $response = $user_agent->request($request);