FHEM/mod-LGTV_WebOS
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

add try/catch for error handling

Browse Source 
add try/catch for error handling
must installed Try::Tiny package

[Ticket: no]
This commit is contained in:
Marko Oldenburg
2022-02-02 14:31:46 +01:00
parent cd4015330e
commit 302ad14dda
3 changed files with 41 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

47
lib/FHEM/Devices/LGTV/LGTVWebOS.pm
View File

@@ -34,6 +34,13 @@ use strict;
use warnings;
use experimental qw /switch/;
## try / catch
use Try::Tiny;
# use Carp;
use autodie qw /:io/;
##
use GPUtils qw(GP_Import);
use FHEM::Meta;
@@ -982,12 +989,23 @@ sub ResponseProcessing {
return;
}
my $decode_json = eval { decode_json( encode_utf8($json) ) };
if ($@) {
Log3( $name, 3,
"LGTV_WebOS ($name) - JSON error while request: $@" );
return;
my $decode_json;
try {
$decode_json = decode_json( encode_utf8($json) );
}
catch {
if ( $_->isa('autodie::exception') && $_->matches(':io') ) {
Log3( $name, 3,
"LGTV_WebOS ($name) autodie - JSON error while request: $_"
);
return;
}
else {
Log3( $name, 3,
"LGTV_WebOS ($name) - JSON error while request: $_" );
return;
}
}; # Note semicolon.
WriteReadings( $hash, $decode_json );
@@ -1418,11 +1436,22 @@ sub CreateSendCommand {
#::Log3( $name, 5, "LGTV_WebOS ($name) - Payload Message: $command->{payload}{message}" );
my $cmd = eval { encode_json($command) };
if ($@) {
Log3( $name, 3, "LGTV_WebOS ($name) - can't $cmd encode to json: $@" );
return;
my $cmd;
try {
$cmd = encode_json($command);
}
catch {
if ( $_->isa('autodie::exception') && $_->matches(':io') ) {
Log3( $name, 3,
"LGTV_WebOS ($name) - can't $cmd encode to json: $_" );
return;
}
else {
Log3( $name, 3,
"LGTV_WebOS ($name) - can't $cmd encode to json: $_" );
return;
}
};
::Log3( $name, 5, "LGTV_WebOS ($name) - Sending command: $cmd" );