|
Lines 104-110
sub with_json_request {
Link Here
|
| 104 |
my $method = shift || 'post'; |
104 |
my $method = shift || 'post'; |
| 105 |
|
105 |
|
| 106 |
my $req_builder = "HTTP::Request::Common::".uc( $method ); |
106 |
my $req_builder = "HTTP::Request::Common::".uc( $method ); |
| 107 |
no strict 'refs'; |
107 |
no strict 'refs'; ## no critic (ProhibitNoStrict) |
| 108 |
my $request = $req_builder->( $url ); |
108 |
my $request = $req_builder->( $url ); |
| 109 |
$self->_json_request_content($request, $post_params); |
109 |
$self->_json_request_content($request, $post_params); |
| 110 |
my $response = $self->_request_with_auth($request); |
110 |
my $response = $self->_request_with_auth($request); |