|
Lines 42-48
sub manaRequest {
Link Here
|
| 42 |
|
42 |
|
| 43 |
my $response = $userAgent->request($mana_request); |
43 |
my $response = $userAgent->request($mana_request); |
| 44 |
|
44 |
|
| 45 |
eval { $result = from_json( $response->decoded_content ); }; |
45 |
eval { $result = from_json( $response->decoded_content, { utf8 => 1} ); }; |
| 46 |
$result->{code} = $response->code; |
46 |
$result->{code} = $response->code; |
| 47 |
if ( $@ ){ |
47 |
if ( $@ ){ |
| 48 |
$result->{msg} = $response->{_msg}; |
48 |
$result->{msg} = $response->{_msg}; |
| 49 |
- |
|
|