From f2d5e9ddca8856a80ed2979f971b8ed44a1f4608 Mon Sep 17 00:00:00 2001
From: Marko Oldenburg <fhemdevelopment@cooltux.net>
Date: Wed, 2 Feb 2022 12:30:42 +0100
Subject: [PATCH 01/11] full perl packages support

full perl packages support and BPB module directory structure

[Ticket: no]
---
 FHEM/82_LGTV_WebOS.pm                         |  366 ++++++
 controls_LGTV_WebOS.txt                       |    2 +
 hooks/pre-commit                              |   39 +
 .../FHEM/Devices/LGTV/LGTVWebOS.pm            | 1083 ++++++-----------
 4 files changed, 789 insertions(+), 701 deletions(-)
 create mode 100644 FHEM/82_LGTV_WebOS.pm
 create mode 100644 controls_LGTV_WebOS.txt
 create mode 100755 hooks/pre-commit
 rename 82_LGTV_WebOS.pm => lib/FHEM/Devices/LGTV/LGTVWebOS.pm (51%)

diff --git a/FHEM/82_LGTV_WebOS.pm b/FHEM/82_LGTV_WebOS.pm
new file mode 100644
index 0000000..f01629f
--- /dev/null
+++ b/FHEM/82_LGTV_WebOS.pm
@@ -0,0 +1,366 @@
+###############################################################################
+#
+# Developed with VSCodium and richterger perl plugin.
+#
+#  (c) 2017-2022 Copyright: Marko Oldenburg (fhemdevelopment at cooltux dot net)
+#  All rights reserved
+#
+#   Special thanks goes to comitters:
+#       - Vitolinker / Commandref
+#
+#
+#  This script is free software; you can redistribute it and/or modify
+#  it under the terms of the GNU General Public License as published by
+#  the Free Software Foundation; either version 2 of the License, or
+#  any later version.
+#
+#  The GNU General Public License can be found at
+#  http://www.gnu.org/copyleft/gpl.html.
+#  A copy is found in the textfile GPL.txt and important notices to the license
+#  from the author is found in LICENSE.txt distributed with these scripts.
+#
+#  This script is distributed in the hope that it will be useful,
+#  but WITHOUT ANY WARRANTY; without even the implied warranty of
+#  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+#  GNU General Public License for more details.
+#
+#
+# $Id:
+#
+###############################################################################
+package FHEM::LGTV_WebOS;
+
+use strict;
+use warnings;
+
+require FHEM::Devices::LGTV::LGTVWebOS;
+
+use FHEM::Meta;
+
+1;
+
+=pod
+=item device
+=item summary       Controls LG SmartTVs run with WebOS Operating System
+=item summary_DE    Steuert LG SmartTVs mit WebOS Betriebssystem
+
+=begin html
+
+<a name="LGTV_WebOS"></a>
+<h3>LGTV_WebOS</h3>
+
+<ul>
+    This module controls SmartTVs from LG based on WebOS as operation system via network. It offers to swtich the TV channel, start and switch applications, send remote control commands, as well as to query the actual status.<p><br /><br />
+    
+    <strong>Definition </strong><code>define &lt;name&gt; LGTV_WebOS &lt;IP-Address&gt;</code>
+    </p>
+    <ul>
+        <ul>
+            When an LGTV_WebOS-Module is defined, an internal routine is triggered which queries the TV's status every 15s and triggers respective Notify / FileLog Event definitions.
+        </ul>
+    </ul>
+    </p>
+    <ul>
+        <ul>
+            Example:
+        </ul>
+        <ul>
+            <code>define TV LGTV_WebOS 192.168.0.10 <br /></code><br /><br /></p>
+        </ul>
+    </ul>
+        <p><code><strong>Set-Commands </strong><code>set &lt;Name&gt; &lt;Command&gt; [&lt;Parameter&gt;]</code></code></p>
+    <ul>
+        <ul>
+            The following commands are supported in the actual version:
+        </ul>
+    </ul>
+    <ul>
+        <ul>
+            <ul>
+                <li><strong>connect&nbsp;</strong> -&nbsp; Connects to the TV at the defined address. When triggered the first time, a pairing is conducted</li>
+                <li><strong>pairing&nbsp;</strong> -&nbsp;&nbsp; Sends a pairing request to the TV which needs to be confirmed by the user with remote control</li>
+                <li><strong>screenMsg</strong> &lt;Text&gt;&nbsp;&nbsp;-&nbsp;&nbsp; Displays a message for 3-5s on the TV in the top right corner of the screen</li>
+                <li><strong>mute</strong> on, off&nbsp; -&nbsp; Turns volume to mute. Depending on the audio connection, this needs to be set on the AV Receiver (see volume) </li>
+                <li><strong>volume </strong>0-100, Slider -&nbsp;&nbsp; Sets the volume. Depending on the audio connection, this needs to be set on the AV Receiver (see mute)</li>
+                <li><strong>volumeUp</strong>&nbsp; -&nbsp;&nbsp; Increases the volume by 1</li>
+                <li><strong>volumeDown</strong>&nbsp; -&nbsp;&nbsp; Decreases the volume by 1</li>
+                <li><strong>channelUp</strong> &nbsp;&nbsp;-&nbsp;&nbsp; Switches the channel to the next one</li>
+                <li><strong>channelDown</strong> &nbsp;&nbsp;-&nbsp;&nbsp; Switches the channel to the previous one</li>
+                <li><strong>getServiceList&nbsp;</strong> -&nbsp; Queries the running services on WebOS (in beta phase)</li>
+                <li><strong>on</strong> - Turns the TV on, depending on type of device. Only working when LAN or Wifi connection remains active during off state.</li>
+                <li><strong>off</strong> - Turns the TV off, when an active connection is established</li>
+                <li><strong>launchApp</strong> &lt;Application&gt;&nbsp;&nbsp;-&nbsp;&nbsp; Activates an application out of the following list (Maxdome, AmazonVideo, YouTube, Netflix, TV, GooglePlay, Browser, Chili, TVCast, Smartshare, Scheduler, Miracast, TV)&nbsp; <br />Note: TV is an application in LG's terms and not an input connection</li>
+                <li><strong>3D</strong> on,off&nbsp; -&nbsp; 3D Mode is turned on and off. Depending on type of TV there might be different modes (e.g. Side-by-Side, Top-Bottom)</li>
+                <li><strong>stop</strong>&nbsp; -&nbsp;&nbsp; Stop command (depending on application)</li>
+                <li><strong>play&nbsp; </strong>-&nbsp;&nbsp; Play command (depending on application)</li>
+                <li><strong>pause&nbsp; </strong>-&nbsp;&nbsp; Pause command (depending on application)</li>
+                <li><strong>rewind&nbsp; </strong>-&nbsp;&nbsp; Rewind command (depending on application)</li>
+                <li><strong>fastForward&nbsp; </strong>-&nbsp;&nbsp; Fast Forward command (depending on application)</li>
+                <li><strong>clearInputList&nbsp;</strong> -&nbsp;&nbsp; Clears list of Inputs</li>
+                <li><strong>input&nbsp;</strong> - Selects the input connection (depending on the actual TV type and connected devices) <br />e.g.: extInput_AV-1, extInput_HDMI-1, extInput_HDMI-2, extInput_HDMI-3)</li>
+            </ul>
+        </ul>
+    </ul><br /><br /></p>
+        <p><strong>Get-Command</strong> <code>get &lt;Name&gt; &lt;Readingname&gt;</code><br /></p>
+    <ul>
+        <ul>
+            Currently, GET reads back the values of the current readings. Please see below for a list of Readings / Generated Events.
+        </ul>
+    </ul>
+    <p><br /><strong>Attributes</strong></p>
+    <ul>
+        <ul>
+            <li>disable</li>
+            Optional attribute to deactivate the recurring status updates. Manual trigger of update is alsways possible.</br>
+            Valid Values: 0 =&gt; recurring status updates, 1 =&gt; no recurring status updates.</p>
+        </ul>
+    </ul>
+    <ul>
+        <ul>
+            <li>channelGuide</li>
+            Optional attribute to deactivate the recurring TV Guide update. Depending on TV and FHEM host, this causes significant network traffic and / or CPU load</br>
+            Valid Values: 0 =&gt; no recurring TV Guide updates, 1 =&gt; recurring TV Guide updates.
+        </ul>
+    </ul>
+    <ul>
+        <ul>
+            <li>pingPresence</li>
+            current state of ping presence from TV. create a reading presence with values absent or present.
+        </ul>
+    </ul>
+    <ul>
+        <ul>
+            <li>keepAliveCheckTime</li>
+            value in seconds - keepAliveCheck is check read data input from tcp socket and prevented FHEM freeze.
+        </ul>
+    </ul>
+    <ul>
+        <ul>
+            <li>wakeOnLanMAC</li>
+            Network MAC Address of the LG TV Networkdevice.
+        </ul>
+    </ul>
+    <ul>
+        <ul>
+            <li>wakeOnLanBroadcast</li>
+            Broadcast Address of the Network - wakeOnLanBroadcast &lt;network&gt;.255
+        </ul>
+    </ul>
+    <ul>
+        <ul>
+            <li>wakeupCmd</li>
+            Set a command to be executed when turning on an absent device. Can be an FHEM command or Perl command in {}.
+        </ul>
+    </ul> 
+</ul>
+
+=end html
+
+=begin html_DE
+
+<a name="LGTV_WebOS"></a>
+<h3>LGTV_WebOS</h3>
+<ul>
+    <ul>
+        Dieses Modul steuert SmartTV's des Herstellers LG mit dem Betriebssystem WebOS &uuml;ber die Netzwerkschnittstelle. Es bietet die M&ouml;glichkeit den aktuellen TV Kanal zu steuern, sowie Apps zu starten, Fernbedienungsbefehle zu senden, sowie den aktuellen Status abzufragen.
+    </ul>
+    <p><br /><br /><strong>Definition </strong><code>define &lt;name&gt; LGTV_WebOS &lt;IP-Addresse&gt;</code> <br /><br /></p>
+    <ul>
+        <ul>
+            <ul>Bei der Definition eines LGTV_WebOS-Moduls wird eine interne Routine in Gang gesetzt, welche regelm&auml;&szlig;ig alle 15s den Status des TV abfragt und entsprechende Notify-/FileLog-Definitionen triggert.</ul>
+        </ul>
+    </ul>
+    <ul>
+        <ul>
+            <ul>Beispiel: <code>define TV LGTV_WebOS 192.168.0.10 <br /></code><br /><br /></ul>
+        </ul>
+    </ul>
+    <strong>Set-Kommandos </strong><code>set &lt;Name&gt; &lt;Kommando&gt; [&lt;Parameter&gt;]</code>
+    <ul>
+        <ul>
+            <ul>Aktuell werden folgende Kommandos unterst&uuml;tzt.</ul>
+        </ul>
+    </ul>
+    <ul>
+        <ul>
+            <ul>
+                <ul>
+                    <li><strong>connect&nbsp;</strong> -&nbsp; Verbindet sich zum Fernseher unter der IP wie definiert, f&uuml;hrt beim ersten mal automatisch ein pairing durch</li>
+                    <li><strong>pairing&nbsp;</strong> -&nbsp;&nbsp; Berechtigungsanfrage an den Fernseher, hier muss die Anfrage mit der Fernbedienung best&auml;tigt werden</li>
+                    <li><strong>screenMsg</strong> &lt;Text&gt;&nbsp;&nbsp;-&nbsp;&nbsp; zeigt f&uuml;r ca 3-5s eine Nachricht auf dem Fernseher oben rechts an</li>
+                    <li><strong>mute</strong> on, off&nbsp; -&nbsp; Schaltet den Fernseher Stumm, je nach Anschluss des Audiosignals, muss dieses am Verst&auml;rker (AV Receiver) geschehen (siehe Volume)</li>
+                    <li><strong>volume </strong>0-100, Schieberegler&nbsp; -&nbsp;&nbsp; Setzt die Lautst&auml;rke des Fernsehers, je nach Anschluss des Audiosignals, muss dieses am Verst&auml;rker (AV Receiver) geschehen (siehe mute)</li>
+                    <li><strong>volumeUp</strong>&nbsp; -&nbsp;&nbsp; Erh&ouml;ht die Lautst&auml;rke um den Wert 1</li>
+                    <li><strong>volumeDown</strong>&nbsp; -&nbsp;&nbsp; Verringert die Lautst&auml;rke um den Wert 1</li>
+                    <li><strong>channelUp</strong> &nbsp;&nbsp;-&nbsp;&nbsp; Schaltet auf den n&auml;chsten Kanal um</li>
+                    <li><strong>channelDown</strong> &nbsp;&nbsp;-&nbsp;&nbsp; Schaltet auf den vorherigen Kanal um</li>
+                    <li><strong>getServiceList&nbsp;</strong> -&nbsp; Fragrt die Laufenden Dienste des Fernsehers an (derzeit noch in Beta-Phase)</li>
+                    <li><strong>on</strong>&nbsp; -&nbsp;&nbsp; Schaltet den Fernseher ein, wenn WLAN oder LAN ebenfalls im Aus-Zustand aktiv ist (siehe Bedienungsanleitung da Typabh&auml;ngig)</li>
+                    <li><strong>off</strong> - Schaltet den Fernseher aus, wenn eine Connection aktiv ist</li>
+                    <li><strong>launchApp</strong> &lt;Anwendung&gt;&nbsp;&nbsp;-&nbsp;&nbsp; Aktiviert eine Anwendung aus der Liste (Maxdome, AmazonVideo, YouTube, Netflix, TV, GooglePlay, Browser, Chili, TVCast, Smartshare, Scheduler, Miracast, TV)&nbsp; <br />Achtung: TV ist hier eine Anwendung, und kein Ger&auml;teeingang</li>
+                    <li><strong>3D</strong> on,off&nbsp; -&nbsp; 3D Modus kann hier ein- und ausgeschaltet werden, je nach Fernseher k&ouml;nnen mehrere 3D Modi unterst&uuml;tzt werden (z.B. Side-by-Side, Top-Bottom)</li>
+                    <li><strong>stop</strong>&nbsp; -&nbsp;&nbsp; Stop-Befehl (anwendungsabh&auml;ngig)</li>
+                    <li><strong>play&nbsp; </strong>-&nbsp;&nbsp; Play-Befehl (anwendungsabh&auml;ngig)</li>
+                    <li><strong>pause&nbsp; </strong>-&nbsp;&nbsp; Pause-Befehl (anwendungsabh&auml;ngig)</li>
+                    <li><strong>rewind&nbsp; </strong>-&nbsp;&nbsp; Zur&uuml;ckspulen-Befehl (anwendungsabh&auml;ngig)</li>
+                    <li><strong>fastForward&nbsp; </strong>-&nbsp;&nbsp; Schneller-Vorlauf-Befehl (anwendungsabh&auml;ngig)</li>
+                    <li><strong>clearInputList&nbsp;</strong> -&nbsp;&nbsp; L&ouml;scht die Liste der Ger&auml;teeing&auml;nge</li>
+                    <li><strong>input&nbsp;</strong> - W&auml;hlt den Ger&auml;teeingang aus (Abh&auml;ngig von Typ und angeschossenen Ger&auml;ten) <br />Beispiele: extInput_AV-1, extInput_HDMI-1, extInput_HDMI-2, extInput_HDMI-3)</li>
+                </ul>
+            </ul
+        </ul>
+    </ul>
+    <p><strong>Get-Kommandos</strong> <code>get &lt;Name&gt; &lt;Readingname&gt;</code><br /><br /></p>
+    <ul>
+        <ul>
+            <ul>Aktuell stehen via GET lediglich die Werte der Readings zur Verf&uuml;gung. Eine genaue Auflistung aller m&ouml;glichen Readings folgen unter "Generierte Readings/Events".</ul>
+        </ul>
+    </ul>
+    <p><br /><br /><strong>Attribute</strong></p>
+    <ul>
+        <ul>
+            <ul>
+                <li>disable</li>
+                Optionales Attribut zur Deaktivierung des zyklischen Status-Updates. Ein manuelles Update via statusRequest-Befehl ist dennoch m&ouml;glich.
+            </ul>
+        </ul>
+    </ul>
+    <ul>
+        <ul>
+            <ul>M&ouml;gliche Werte: 0 =&gt; zyklische Status-Updates, 1 =&gt; keine zyklischen Status-Updates.</ul>
+        </ul>
+    </ul>
+    <ul>
+        <ul>
+            <ul>
+                <li>channelGuide</li>
+                Optionales Attribut zur Deaktivierung der zyklischen Updates des TV-Guides, dieses beansprucht je nach Hardware einigen Netzwerkverkehr und Prozessorlast
+            </ul>
+        </ul>
+    </ul>
+    <ul>
+        <ul>
+            <ul>M&ouml;gliche Werte: 0 =&gt; keine zyklischen TV-Guide-Updates, 1 =&gt; zyklische TV-Guide-Updates</ul>
+        </ul>
+    </ul>
+    <ul>
+        <ul>
+            <ul>
+                <li>wakeOnLanMAC</li>
+                MAC Addresse der Netzwerkkarte vom LG TV
+            </ul>
+        </ul>        
+    </ul>    
+    <ul>
+        <ul>
+            <ul>
+                <li>wakeOnLanBroadcast</li>
+                Broadcast Netzwerkadresse - wakeOnLanBroadcast &lt;netzwerk&gt;.255
+            </ul>
+        </ul>
+    </ul>
+    <ul>
+        <ul>
+            <ul>
+                <li>pingPresence</li>
+                M&ouml;gliche Werte: 0 =&gt; presence via ping deaktivert, 1 =&gt; presence via ping aktiviert
+            </ul>
+        </ul>
+    </ul>
+    <ul>
+        <ul>
+            <ul>
+                <li>keepAliveCheckTime</li>
+                Wert in Sekunden - keepAliveCheckTime
+ kontrolliert in einer bestimmten Zeit ob noch Daten über die TCP Schnittstelle kommen und verhindert somit FHEM Freezes
+            </ul>
+        </ul>
+    </ul>
+    <ul>
+        <ul>
+            <ul>
+                <li>wakeupCmd</li>
+                Befehl zum Einschalten des LG TV. M&ouml;glich ist ein FHEM Befehl oder Perl in {}.
+            </ul>
+        </ul>        
+    </ul>
+    <p><br /><br /><strong>Generierte Readings/Events:</strong></p>
+    <ul>
+        <ul>
+            <li><strong>3D</strong> - Status des 3D-Wiedergabemodus ("on" =&gt; 3D Wiedergabemodus aktiv, "off" =&gt; 3D Wiedergabemodus nicht aktiv)</li>
+            <li><strong>3DMode</strong> - Anzeigemodus (2d, 2dto3d, side_side_half, line_interleave_half, column_interleave, check_board)</li>
+            <li><strong>channel</strong> - Die Nummer des aktuellen TV-Kanals</li>
+            <li><strong>channelName</strong> - Der Name des aktuellen TV-Kanals</li>
+            <li><strong>channelMedia</strong> - Senderinformation</li>
+            <li><strong>channelCurrentEndTime </strong>- Ende der laufenden Sendung (Beta)</li>
+            <li><strong>channelCurrentStartTime </strong>- Start der laufenden Sendung (Beta)</li>
+            <li><strong>channelCurrentTitle</strong> - Der Name der laufenden Sendung (Beta)</li>
+            <li><strong>channelNextEndTime </strong>- Ende der n&auml;chsten Sendung (Beta)</li>
+            <li><strong>channelNextStartTime </strong>- Start der n&auml;chsten Sendung (Beta)</li>
+            <li><strong>channelNextTitle</strong> - Der Name der n&auml;chsten Sendung (Beta)</li>
+            <li><strong>extInput_&lt;Ger&auml;teeingang</strong>&gt; - Status der Eingangsquelle (connect_true, connect_false)</li>
+            <li><strong>input</strong> - Derzeit aktiver Ger&auml;teeingang</li>
+            <li><strong>lastResponse </strong>- Status der letzten Anfrage (ok, error &lt;Fehlertext&gt;)</li>
+            <li><strong>launchApp</strong> &lt;Anwendung&gt; - Gegenw&auml;rtige aktive Anwendung</li>
+            <li><strong>lgKey</strong> - Der Client-Key, der f&uuml;r die Verbindung verwendet wird</li>
+            <li><strong>mute</strong> on,off - Der aktuelle Stumm-Status ("on" =&gt; Stumm, "off" =&gt; Laut)</li>
+            <li><strong>pairing</strong> paired, unpaired - Der Status des Pairing</li>
+            <li><strong>presence </strong>absent, present - Der aktuelle Power-Status ("present" =&gt; eingeschaltet, "absent" =&gt; ausgeschaltet)</li>
+            <li><strong>state</strong> on, off - Status des Fernsehers (&auml;hnlich presence)</li>
+            <li><strong>volume</strong> - Der aktuelle Lautst&auml;rkepegel -1, 0-100 (-1 invalider Wert)</li>
+        </ul>
+    </ul>
+</ul>
+=end html_DE
+
+=for :application/json;q=META.json 82_LGTV_WebOS.pm
+{
+  "abstract": "Module for Controls LG SmartTVs run with WebOS Operating System",
+  "x_lang": {
+    "de": {
+      "abstract": "Modul zur Steuerung von LG SmartTVs mit WebOS Betriebssystem"
+    }
+  },
+  "keywords": [
+    "fhem-mod-device",
+    "fhem-core",
+    "Multimedia",
+    "TV",
+    "LG"
+  ],
+  "release_status": "stable",
+  "license": "GPL_2",
+  "version": "v3.4.2",
+  "author": [
+    "Marko Oldenburg <fhemdevelopment@cooltux.net>"
+  ],
+  "x_fhem_maintainer": [
+    "CoolTux"
+  ],
+  "x_fhem_maintainer_github": [
+    "LeonGaultier"
+  ],
+  "prereqs": {
+    "runtime": {
+      "requires": {
+        "FHEM": 5.00918799,
+        "perl": 5.016, 
+        "Meta": 1,
+        "JSON": 1,
+        "Date::Parse": 0
+      },
+      "recommends": {
+        "JSON": 0
+      },
+      "suggests": {
+        "Cpanel::JSON::XS": 0,
+        "JSON::XS": 0
+      }
+    }
+  }
+}
+=end :application/json;q=META.json
+
+=cut
+
+__END__
diff --git a/controls_LGTV_WebOS.txt b/controls_LGTV_WebOS.txt
new file mode 100644
index 0000000..6a2b046
--- /dev/null
+++ b/controls_LGTV_WebOS.txt
@@ -0,0 +1,2 @@
+UPD 2022-02-02_12:25:53 18011 FHEM/82_LGTV_WebOS.pm
+UPD 2022-02-02_12:25:53 54234 lib/FHEM/Devices/LGTV/LGTVWebOS.pm
diff --git a/hooks/pre-commit b/hooks/pre-commit
new file mode 100755
index 0000000..c009d1c
--- /dev/null
+++ b/hooks/pre-commit
@@ -0,0 +1,39 @@
+#!/usr/bin/perl -w
+
+use File::Basename;
+use POSIX qw(strftime);
+use strict;
+
+my @filenames =
+  ( 'FHEM/82_LGTV_WebOS.pm', 'lib/FHEM/Devices/LGTV/LGTVWebOS.pm' );
+
+my $controlsfile = 'controls_LGTV_WebOS.txt';
+
+open( FH, ">$controlsfile" ) || return ("Can't open $controlsfile: $!");
+
+for my $filename (@filenames) {
+    my @statOutput = stat($filename);
+
+    if ( scalar @statOutput != 13 ) {
+        printf 'error: stat has unexpected return value for '
+          . $filename . "\n";
+        next;
+    }
+
+    my $mtime    = $statOutput[9];
+    my $date     = POSIX::strftime( "%Y-%m-%d", localtime($mtime) );
+    my $time     = POSIX::strftime( "%H:%M:%S", localtime($mtime) );
+    my $filetime = $date . "_" . $time;
+
+    my $filesize = $statOutput[7];
+
+    printf FH 'UPD ' . $filetime . ' ' . $filesize . ' ' . $filename . "\n";
+}
+
+close(FH);
+
+system("git add $controlsfile");
+
+print 'Create controls File succesfully' . "\n";
+
+exit 0;
diff --git a/82_LGTV_WebOS.pm b/lib/FHEM/Devices/LGTV/LGTVWebOS.pm
similarity index 51%
rename from 82_LGTV_WebOS.pm
rename to lib/FHEM/Devices/LGTV/LGTVWebOS.pm
index 372275e..6d607e6 100644
--- a/82_LGTV_WebOS.pm
+++ b/lib/FHEM/Devices/LGTV/LGTVWebOS.pm
@@ -25,30 +25,59 @@
 #  GNU General Public License for more details.
 #
 #
-# $Id: 82_LGTV_WebOS.pm 25389 2021-12-30 15:48:41Z CoolTux $
+# $Id:
 #
 ###############################################################################
-
-#################################
-######### Wichtige Hinweise und Links #################
-#
-## Das JSON Modul immer in einem eval aufrufen
-# $data = eval{decode_json($data)};
-#
-##
-##
-##
-#
-
-################################
-
-package main;
+package FHEM::Devices::LGTV::LGTVWebOS;
 
 use strict;
 use warnings;
 use experimental qw /switch/;
 
+use GPUtils qw(GP_Import);
+
 use FHEM::Meta;
+use GPUtils qw(GP_Import);
+
+#-- Run before package compilation
+BEGIN {
+    #-- Export to main context with different name
+    GP_Import(
+        qw( readingFnAttributes
+          modules
+          init_done
+          selectlist
+          defs
+          )
+    );
+}
+
+sub ::LGTV_WebOS_Initialize { goto &Initialize }
+
+sub Initialize {
+    my $hash = shift;
+
+    # Provider
+    $hash->{ReadFn}  = \&FHEM::Devices::LGTV::LGTVWebOS::Read;
+    $hash->{WriteFn} = \&FHEM::Devices::LGTV::LGTVWebOS::Write;
+
+    # Consumer
+    $hash->{SetFn}   = \&FHEM::Devices::LGTV::LGTVWebOS::Set;
+    $hash->{DefFn}   = \&FHEM::Devices::LGTV::LGTVWebOS::Define;
+    $hash->{UndefFn} = \&FHEM::Devices::LGTV::LGTVWebOS::Undef;
+    $hash->{AttrFn}  = \&FHEM::Devices::LGTV::LGTVWebOS::Attr;
+    $hash->{AttrList} =
+        "disable:1 "
+      . "channelGuide:1 "
+      . "pingPresence:1 "
+      . "wakeOnLanMAC "
+      . "wakeOnLanBroadcast "
+      . "wakeupCmd "
+      . "keepAliveCheckTime "
+      . $readingFnAttributes;
+
+    return FHEM::Meta::InitMod( __FILE__, $hash );
+}
 
 my $missingModul = "";
 
@@ -194,33 +223,9 @@ my %openApps = (
 
 my %openAppsPackageName = reverse %openApps;
 
-sub LGTV_WebOS_Initialize {
-    my ($hash) = @_;
-
-    # Provider
-    $hash->{ReadFn}  = "LGTV_WebOS_Read";
-    $hash->{WriteFn} = "LGTV_WebOS_Write";
-
-    # Consumer
-    $hash->{SetFn}   = "LGTV_WebOS_Set";
-    $hash->{DefFn}   = "LGTV_WebOS_Define";
-    $hash->{UndefFn} = "LGTV_WebOS_Undef";
-    $hash->{AttrFn}  = "LGTV_WebOS_Attr";
-    $hash->{AttrList} =
-        "disable:1 "
-      . "channelGuide:1 "
-      . "pingPresence:1 "
-      . "wakeOnLanMAC "
-      . "wakeOnLanBroadcast "
-      . "wakeupCmd "
-      . "keepAliveCheckTime "
-      . $readingFnAttributes;
-
-    return FHEM::Meta::InitMod( __FILE__, $hash );
-}
-
-sub LGTV_WebOS_Define {
-    my ( $hash, $def ) = @_;
+sub Define {
+    my $hash = shift;
+    my $def  = shift;
     my $version;
 
     return $@ unless ( FHEM::Meta::SetInternals($hash) );
@@ -245,44 +250,48 @@ sub LGTV_WebOS_Define {
     $hash->{helper}{device}{registered}            = 0;
     $hash->{helper}{device}{runsetcmd}             = 0;
 
-    Log3( $name, 3, "LGTV_WebOS ($name) - defined with host $host" );
+    ::Log3( $name, 3, "LGTV_WebOS ($name) - defined with host $host" );
 
-    $attr{$name}{devStateIcon} = 'on:10px-kreis-gruen:off off:10px-kreis-rot:on'
-      if ( !defined( $attr{$name}{devStateIcon} ) );
-    $attr{$name}{room} = 'LGTV' if ( !defined( $attr{$name}{room} ) );
-    CommandDeleteReading( undef, $name . ' presence' )
-      if ( AttrVal( $name, 'pingPresence', 0 ) == 0 );
+    ::CommandAttr( undef,
+        $name . ' devStateIcon on:10px-kreis-gruen:off off:10px-kreis-rot:on' )
+      if ( ::AttrVal( $name, 'devStateIcon', 'none' ) eq 'none' );
+    ::CommandAttr( undef, $name . ' room LGTV' )
+      if ( ::AttrVal( $name, 'room', 'none' ) eq 'none' );
+
+    ::CommandDeleteReading( undef, $name . ' presence' )
+      if ( ::AttrVal( $name, 'pingPresence', 0 ) == 0 );
 
     $modules{LGTV_WebOS}{defptr}{ $hash->{HOST} } = $hash;
 
     if ($init_done) {
-        LGTV_WebOS_TimerStatusRequest($hash);
+        TimerStatusRequest($hash);
     }
     else {
-        InternalTimer( gettimeofday() + 15,
-            "LGTV_WebOS_TimerStatusRequest", $hash );
+        ::InternalTimer( ::gettimeofday() + 15,
+            \&FHEM::Devices::LGTV::LGTVWebOS::TimerStatusRequest, $hash );
     }
 
     $hash->{helper}->{lastResponse} =
-      int( gettimeofday() );    # Check Socket KeepAlive
+      int( ::gettimeofday() );    # Check Socket KeepAlive
 
     return;
 }
 
-sub LGTV_WebOS_Undef {
-    my ( $hash, $arg ) = @_;
+sub Undef {
+    my $hash = shift;
+    my $arg  = shift;
 
     my $host = $hash->{HOST};
     my $name = $hash->{NAME};
 
-    RemoveInternalTimer($hash);
+    ::RemoveInternalTimer($hash);
     delete $modules{LGTV_WebOS}{defptr}{ $hash->{HOST} };
-    Log3( $name, 3, "LGTV_WebOS ($name) - device $name deleted" );
+    ::Log3( $name, 3, "LGTV_WebOS ($name) - device $name deleted" );
 
     return;
 }
 
-sub LGTV_WebOS_Attr {
+sub Attr {
     my ( $cmd, $name, $attrName, $attrVal ) = @_;
     my $hash = $defs{$name};
 
@@ -290,29 +299,29 @@ sub LGTV_WebOS_Attr {
 
     if ( $attrName eq "disable" ) {
         if ( $cmd eq "set" && $attrVal eq "1" ) {
-            RemoveInternalTimer($hash);
-            readingsSingleUpdate( $hash, "state", "disabled", 1 );
+            ::RemoveInternalTimer($hash);
+            ::readingsSingleUpdate( $hash, "state", "disabled", 1 );
             $hash->{PARTIAL} = '';
-            Log3( $name, 3, "LGTV_WebOS ($name) - disabled" );
+            ::Log3( $name, 3, "LGTV_WebOS ($name) - disabled" );
         }
 
         elsif ( $cmd eq "del" ) {
-            readingsSingleUpdate( $hash, "state", "active", 1 );
-            Log3( $name, 3, "LGTV_WebOS ($name) - enabled" );
-            LGTV_WebOS_TimerStatusRequest($hash);
+            ::readingsSingleUpdate( $hash, "state", "active", 1 );
+            ::Log3( $name, 3, "LGTV_WebOS ($name) - enabled" );
+            TimerStatusRequest($hash);
         }
     }
 
     if ( $attrName eq "disabledForIntervals" ) {
         if ( $cmd eq "set" ) {
-            Log3( $name, 3,
+            ::Log3( $name, 3,
                 "LGTV_WebOS ($name) - enable disabledForIntervals" );
-            readingsSingleUpdate( $hash, "state", "Unknown", 1 );
+            ::readingsSingleUpdate( $hash, "state", "Unknown", 1 );
         }
 
         elsif ( $cmd eq "del" ) {
-            readingsSingleUpdate( $hash, "state", "active", 1 );
-            Log3( $name, 3,
+            ::readingsSingleUpdate( $hash, "state", "active", 1 );
+            ::Log3( $name, 3,
                 "LGTV_WebOS ($name) - delete disabledForIntervals" );
         }
     }
@@ -320,93 +329,92 @@ sub LGTV_WebOS_Attr {
     return;
 }
 
-sub LGTV_WebOS_TimerStatusRequest {
+sub TimerStatusRequest {
     my $hash = shift;
     my $name = $hash->{NAME};
 
-    RemoveInternalTimer( $hash, 'LGTV_WebOS_TimerStatusRequest' );
+    ::RemoveInternalTimer( $hash, \&TimerStatusRequest );
 
-    readingsBeginUpdate($hash);
+    ::readingsBeginUpdate($hash);
 
-    if (   !IsDisabled($name)
+    if (   !::IsDisabled($name)
         && $hash->{CD}
         && $hash->{helper}{device}{registered} == 1 )
     {
 
-        Log3( $name, 4, "LGTV_WebOS ($name) - run get functions" );
+        ::Log3( $name, 4, "LGTV_WebOS ($name) - run get functions" );
 
-        LGTV_WebOS_Presence($hash)
-          if ( AttrVal( $name, 'pingPresence', 0 ) == 1 );
+        Presence($hash)
+          if ( ::AttrVal( $name, 'pingPresence', 0 ) == 1 );
 
         if (   $hash->{helper}{device}{channelguide}{counter} > 2
-            && AttrVal( $name, 'channelGuide', 0 ) == 1
-            && ReadingsVal( $name, 'launchApp', 'TV' ) eq 'TV' )
+            && ::AttrVal( $name, 'channelGuide', 0 ) == 1
+            && ::ReadingsVal( $name, 'launchApp', 'TV' ) eq 'TV' )
         {
 
-            LGTV_WebOS_GetChannelProgramInfo($hash);
+            GetChannelProgramInfo($hash);
             $hash->{helper}{device}{channelguide}{counter} = 0;
 
         }
         else {
 
-            LGTV_WebOS_GetAudioStatus($hash);
-            InternalTimer( gettimeofday() + 2,
-                'LGTV_WebOS_GetCurrentChannel', $hash )
-              if ( ReadingsVal( $name, 'launchApp', 'TV' ) eq 'TV' );
-            InternalTimer( gettimeofday() + 4,
-                'LGTV_WebOS_GetForgroundAppInfo', $hash );
-            InternalTimer( gettimeofday() + 6, 'LGTV_WebOS_Get3DStatus',
-                $hash );
-            InternalTimer( gettimeofday() + 8,
-                'LGTV_WebOS_GetExternalInputList', $hash );
+            GetAudioStatus($hash);
+            ::InternalTimer( ::gettimeofday() + 2,
+                \&FHEM::Devices::LGTV::LGTVWebOS::GetCurrentChannel, $hash )
+              if ( ::ReadingsVal( $name, 'launchApp', 'TV' ) eq 'TV' );
+            ::InternalTimer( ::gettimeofday() + 4,
+                \&FHEM::Devices::LGTV::LGTVWebOS::GetForgroundAppInfo, $hash );
+            ::InternalTimer( ::gettimeofday() + 6,
+                \&FHEM::Devices::LGTV::LGTVWebOS::Get3DStatus, $hash );
+            ::InternalTimer( ::gettimeofday() + 8,
+                \&FHEM::Devices::LGTV::LGTVWebOS::GetExternalInputList, $hash );
         }
 
     }
-    elsif ( IsDisabled($name) ) {
+    elsif ( ::IsDisabled($name) ) {
 
-        LGTV_WebOS_Close($hash);
-        LGTV_WebOS_Presence($hash)
-          if ( AttrVal( $name, 'pingPresence', 0 ) == 1 );
+        Close($hash);
+        Presence($hash)
+          if ( ::AttrVal( $name, 'pingPresence', 0 ) == 1 );
         $hash->{helper}{device}{runsetcmd} = 0;
-        readingsBulkUpdateIfChanged( $hash, 'state', 'disabled' );
+        ::readingsBulkUpdateIfChanged( $hash, 'state', 'disabled' );
 
     }
     else {
 
-        LGTV_WebOS_Presence($hash)
-          if ( AttrVal( $name, 'pingPresence', 0 ) == 1 );
+        Presence($hash)
+          if ( ::AttrVal( $name, 'pingPresence', 0 ) == 1 );
 
-        readingsBulkUpdateIfChanged( $hash, 'channel',                 '-' );
-        readingsBulkUpdateIfChanged( $hash, 'channelName',             '-' );
-        readingsBulkUpdateIfChanged( $hash, 'channelMedia',            '-' );
-        readingsBulkUpdateIfChanged( $hash, 'channelCurrentTitle',     '-' );
-        readingsBulkUpdateIfChanged( $hash, 'channelCurrentStartTime', '-' );
-        readingsBulkUpdateIfChanged( $hash, 'channelCurrentEndTime',   '-' );
-        readingsBulkUpdateIfChanged( $hash, 'channelNextTitle',        '-' );
-        readingsBulkUpdateIfChanged( $hash, 'channelNextStartTime',    '-' );
-        readingsBulkUpdateIfChanged( $hash, 'channelNextEndTime',      '-' );
+        ::readingsBulkUpdateIfChanged( $hash, 'channel',                 '-' );
+        ::readingsBulkUpdateIfChanged( $hash, 'channelName',             '-' );
+        ::readingsBulkUpdateIfChanged( $hash, 'channelMedia',            '-' );
+        ::readingsBulkUpdateIfChanged( $hash, 'channelCurrentTitle',     '-' );
+        ::readingsBulkUpdateIfChanged( $hash, 'channelCurrentStartTime', '-' );
+        ::readingsBulkUpdateIfChanged( $hash, 'channelCurrentEndTime',   '-' );
+        ::readingsBulkUpdateIfChanged( $hash, 'channelNextTitle',        '-' );
+        ::readingsBulkUpdateIfChanged( $hash, 'channelNextStartTime',    '-' );
+        ::readingsBulkUpdateIfChanged( $hash, 'channelNextEndTime',      '-' );
 
         $hash->{helper}{device}{runsetcmd} = 0;
     }
 
-    readingsEndUpdate( $hash, 1 );
+    ::readingsEndUpdate( $hash, 1 );
 
-    LGTV_WebOS_Open($hash) if ( !IsDisabled($name) && !$hash->{CD} );
+    Open($hash) if ( !::IsDisabled($name) && !$hash->{CD} );
 
     $hash->{helper}{device}{channelguide}{counter} =
       $hash->{helper}{device}{channelguide}{counter} + 1;
-    InternalTimer( gettimeofday() + 10, "LGTV_WebOS_TimerStatusRequest",
-        $hash );
+    ::InternalTimer( ::gettimeofday() + 10,
+        \&FHEM::Devices::LGTV::LGTVWebOS::TimerStatusRequest, $hash );
 
-    LGTV_WebOS_SocketKeepAlive($hash)
-      if ( AttrVal( $name, 'keepAliveCheckTime', 0 ) > 0 )
+    SocketKeepAlive($hash)
+      if ( ::AttrVal( $name, 'keepAliveCheckTime', 0 ) > 0 )
       ;    # Check Socket KeepAlive
 
     return;
 }
 
-sub LGTV_WebOS_Set
-{          ## no critic (Subroutine "LGTV_WebOS_Set" with high complexity score)
+sub Set {    ## no critic (Subroutine "Set" with high complexity score)
     my ( $hash, $name, $cmd, @args ) = @_;
     my ( $arg, @params ) = @args;
 
@@ -417,7 +425,7 @@ sub LGTV_WebOS_Set
         when ('connect') {
             return "usage: connect" if ( @args != 0 );
 
-            LGTV_WebOS_Open($hash);
+            Open($hash);
 
             return;
 
@@ -434,7 +442,7 @@ sub LGTV_WebOS_Set
         when ('pairing') {
             return "usage: pairing" if ( @args != 0 );
 
-            LGTV_WebOS_Pairing($hash);
+            Pairing($hash);
 
             return;
 
@@ -453,22 +461,22 @@ sub LGTV_WebOS_Set
             $uri = $lgCommands{powerOff};
         }
         when ('on') {
-            if ( AttrVal( $name, 'wakeOnLanMAC', 'none' ) ne 'none' ) {
-                LGTV_WebOS_WakeUp_Udp(
+            if ( ::AttrVal( $name, 'wakeOnLanMAC', 'none' ) ne 'none' ) {
+                WakeUp_Udp(
                     $hash,
-                    AttrVal( $name, 'wakeOnLanMAC',       0 ),
-                    AttrVal( $name, 'wakeOnLanBroadcast', '255.255.255.255' )
+                    ::AttrVal( $name, 'wakeOnLanMAC',       0 ),
+                    ::AttrVal( $name, 'wakeOnLanBroadcast', '255.255.255.255' )
                 );
                 return;
             }
-            elsif ( AttrVal( $name, 'wakeupCmd', 'none' ) ne 'none' ) {
-                my $wakeupCmd = AttrVal( $name, 'wakeupCmd', 'none' );
+            elsif ( ::AttrVal( $name, 'wakeupCmd', 'none' ) ne 'none' ) {
+                my $wakeupCmd = ::AttrVal( $name, 'wakeupCmd', 'none' );
                 if ( $wakeupCmd =~ s/^[ \t]*\{|\}[ \t]*$//xg ) {
-                    Log3( $name, 4,
+                    ::Log3( $name, 4,
 "LGTV_WebOS executing wake-up command (Perl): $wakeupCmd"
                     );
                     eval { $wakeupCmd } or do {
-                        Log3( $name, 2,
+                        ::Log3( $name, 2,
 "LGTV_WebOS executing wake-up command (Perl): $wakeupCmd failed"
                         );
                         return;
@@ -476,10 +484,10 @@ sub LGTV_WebOS_Set
                     return;
                 }
                 else {
-                    Log3( $name, 4,
+                    ::Log3( $name, 4,
 "LGTV_WebOS executing wake-up command (fhem): $wakeupCmd"
                     );
-                    fhem $wakeupCmd;
+                    ::fhem $wakeupCmd;
                     return;
                 }
             }
@@ -636,7 +644,7 @@ sub LGTV_WebOS_Set
                 ## no critic (Expression form of map. See page 169 of PBP)
                 => map qq{$_} => keys %{ $hash->{helper}{device}{inputs} }
               )
-              if ( defined( $hash->{helper}{device}{inputs} )
+              if ( exists( $hash->{helper}{device}{inputs} )
                 && ref( $hash->{helper}{device}{inputs} ) eq "HASH" );
 
             return "Unknown argument $cmd, choose one of $list";
@@ -644,17 +652,17 @@ sub LGTV_WebOS_Set
     }
 
     $hash->{helper}{device}{runsetcmd} = $hash->{helper}{device}{runsetcmd} + 1;
-    return LGTV_WebOS_CreateSendCommand( $hash, $uri, \%payload );
+    return CreateSendCommand( $hash, $uri, \%payload );
 }
 
-sub LGTV_WebOS_Open {
+sub Open {
     my $hash    = shift;
     my $name    = $hash->{NAME};
     my $host    = $hash->{HOST};
     my $port    = 3000;
     my $timeout = 0.1;
 
-    Log3( $name, 4, "LGTV_WebOS ($name) - Baue Socket Verbindung auf" );
+    ::Log3( $name, 4, "LGTV_WebOS ($name) - Baue Socket Verbindung auf" );
 
     my $socket = IO::Socket::INET->new(
         PeerHost  => $host,
@@ -663,7 +671,7 @@ sub LGTV_WebOS_Open {
         KeepAlive => 1,
         Timeout   => $timeout
       )
-      or return Log3( $name, 4,
+      or return ::Log3( $name, 4,
         "LGTV_WebOS ($name) Couldn't connect to $host:$port" );    # open Socket
 
     $hash->{FD} = $socket->fileno();
@@ -671,17 +679,17 @@ sub LGTV_WebOS_Open {
     $selectlist{$name} = $hash;
 
     $hash->{helper}->{lastResponse} =
-      int( gettimeofday() );           # Check Socket KeepAlive
+      int( ::gettimeofday() );         # Check Socket KeepAlive
 
-    Log3( $name, 4, "LGTV_WebOS ($name) - Socket Connected" );
+    ::Log3( $name, 4, "LGTV_WebOS ($name) - Socket Connected" );
 
-    LGTV_WebOS_Handshake($hash);
-    Log3( $name, 4, "LGTV_WebOS ($name) - start Handshake" );
+    Handshake($hash);
+    ::Log3( $name, 4, "LGTV_WebOS ($name) - start Handshake" );
 
     return;
 }
 
-sub LGTV_WebOS_Close {
+sub Close {
     my $hash = shift;
     my $name = $hash->{NAME};
 
@@ -695,38 +703,39 @@ sub LGTV_WebOS_Close {
     delete( $selectlist{$name} );
     delete( $hash->{FD} );
 
-    readingsSingleUpdate( $hash, 'state', 'off', 1 );
+    ::readingsSingleUpdate( $hash, 'state', 'off', 1 );
 
-    Log3( $name, 4, "LGTV_WebOS ($name) - Socket Disconnected" );
+    ::Log3( $name, 4, "LGTV_WebOS ($name) - Socket Disconnected" );
 
     return;
 }
 
-sub LGTV_WebOS_Write {
+sub Write {
+    my $hash   = shift;
+    my $string = shift;
 
-    my ( $hash, $string ) = @_;
     my $name = $hash->{NAME};
 
-    Log3( $name, 4, "LGTV_WebOS ($name) - WriteFn called" );
+    ::Log3( $name, 4, "LGTV_WebOS ($name) - WriteFn called" );
 
-    return Log3( $name, 4, "LGTV_WebOS ($name) - socket not connected" )
+    return ::Log3( $name, 4, "LGTV_WebOS ($name) - socket not connected" )
       unless ( $hash->{CD} );
 
-    Log3( $name, 4, "LGTV_WebOS ($name) - $string" );
+    ::Log3( $name, 4, "LGTV_WebOS ($name) - $string" );
     syswrite( $hash->{CD}, $string );
     return;
 }
 
-sub LGTV_WebOS_SocketKeepAlive {
+sub SocketKeepAlive {
     my $hash = shift;
     my $name = $hash->{NAME};
 
     if (
-        int( gettimeofday() ) - int( $hash->{helper}->{lastResponse} ) >
-        AttrVal( $name, 'keepAliveCheckTime', 0 ) )
+        int( ::gettimeofday() ) - int( $hash->{helper}->{lastResponse} ) >
+        ::AttrVal( $name, 'keepAliveCheckTime', 0 ) )
     {
-        LGTV_WebOS_SocketClosePresenceAbsent( $hash, 'absent' );
-        Log3( $name, 4,
+        SocketClosePresenceAbsent( $hash, 'absent' );
+        ::Log3( $name, 4,
 "LGTV_WebOS ($name) - KeepAlive It looks like there no Data more response"
         );
     }
@@ -734,28 +743,28 @@ sub LGTV_WebOS_SocketKeepAlive {
     return;
 }
 
-sub LGTV_WebOS_Read {
+sub Read {
     my $hash = shift;
     my $name = $hash->{NAME};
 
     my $len;
     my $buf;
 
-    Log3( $name, 4, "LGTV_WebOS ($name) - ReadFn started" );
+    ::Log3( $name, 4, "LGTV_WebOS ($name) - ReadFn started" );
 
     $hash->{helper}->{lastResponse} =
-      int( gettimeofday() );    # Check Socket KeepAlive
+      int( ::gettimeofday() );    # Check Socket KeepAlive
     $len = sysread( $hash->{CD}, $buf, 10240 );
 
     if ( !defined($len) || !$len ) {
 
-        LGTV_WebOS_Close($hash);
+        Close($hash);
 
         return;
     }
 
     unless ( defined $buf ) {
-        Log3( $name, 3, "LGTV_WebOS ($name) - no data received" );
+        ::Log3( $name, 3, "LGTV_WebOS ($name) - no data received" );
         return;
     }
 
@@ -766,69 +775,74 @@ sub LGTV_WebOS_Read {
         $buf = $1;
         ## use critic
 
-        Log3( $name, 4,
+        ::Log3( $name, 4,
 "LGTV_WebOS ($name) - received correct JSON string, start response processing: $buf"
         );
-        LGTV_WebOS_ResponseProcessing( $hash, $buf );
+
+        ResponseProcessing( $hash, $buf );
 
     }
     elsif ( $buf =~ /HTTP\/1.1 101 Switching Protocols/x ) {
 
-        Log3( $name, 4,
+        ::Log3( $name, 4,
 "LGTV_WebOS ($name) - received HTTP data string, start response processing: $buf"
         );
-        LGTV_WebOS_ResponseProcessing( $hash, $buf );
+
+        ResponseProcessing( $hash, $buf );
 
     }
     else {
 
-        Log3( $name, 4,
+        ::Log3( $name, 4,
 "LGTV_WebOS ($name) - coruppted data found, run LGTV_WebOS_ProcessRead: $buf"
         );
-        LGTV_WebOS_ProcessRead( $hash, $buf );
+
+        ProcessRead( $hash, $buf );
     }
 
     return;
 }
 
-sub LGTV_WebOS_ProcessRead {
-    my ( $hash, $data ) = @_;
+sub ProcessRead {
+    my $hash = shift;
+    my $data = shift;
+
     my $name = $hash->{NAME};
 
     my $buffer = '';
 
-    Log3( $name, 4, "LGTV_WebOS ($name) - process read" );
+    ::Log3( $name, 4, "LGTV_WebOS ($name) - process read" );
 
-    if ( defined( $hash->{PARTIAL} ) && $hash->{PARTIAL} ) {
+    if ( exists( $hash->{PARTIAL} ) && $hash->{PARTIAL} ) {
 
-        Log3( $name, 5, "LGTV_WebOS ($name) - PARTIAL: " . $hash->{PARTIAL} );
+        ::Log3( $name, 5, "LGTV_WebOS ($name) - PARTIAL: " . $hash->{PARTIAL} );
         $buffer = $hash->{PARTIAL};
 
     }
     else {
 
-        Log3( $name, 4, "LGTV_WebOS ($name) - No PARTIAL buffer" );
+        ::Log3( $name, 4, "LGTV_WebOS ($name) - No PARTIAL buffer" );
     }
 
-    Log3( $name, 5, "LGTV_WebOS ($name) - Incoming data: " . $data );
+    ::Log3( $name, 5, "LGTV_WebOS ($name) - Incoming data: " . $data );
 
     $buffer = $buffer . $data;
-    Log3( $name, 5,
+    ::Log3( $name, 5,
 "LGTV_WebOS ($name) - Current processing buffer (PARTIAL + incoming data): "
           . $buffer );
 
-    my ( $json, $tail ) = LGTV_WebOS_ParseMsg( $hash, $buffer );
+    my ( $json, $tail ) = ParseMsg( $hash, $buffer );
 
     while ($json) {
 
         $hash->{LAST_RECV} = time();
 
-        Log3( $name, 5,
+        ::Log3( $name, 5,
                 "LGTV_WebOS ($name) - Decoding JSON message. Length: "
               . length($json)
               . " Content: "
               . $json );
-        Log3( $name, 5,
+        ::Log3( $name, 5,
                 "LGTV_WebOS ($name) - Vor Sub: Laenge JSON: "
               . length($json)
               . " Content: "
@@ -836,12 +850,12 @@ sub LGTV_WebOS_ProcessRead {
               . " Tail: "
               . $tail );
 
-        LGTV_WebOS_ResponseProcessing( $hash, $json )
+        ResponseProcessing( $hash, $json )
           if ( defined($tail) && ($tail) );
 
-        ( $json, $tail ) = LGTV_WebOS_ParseMsg( $hash, $tail );
+        ( $json, $tail ) = ParseMsg( $hash, $tail );
 
-        Log3( $name, 5,
+        ::Log3( $name, 5,
                 "LGTV_WebOS ($name) - Nach Sub: Laenge JSON: "
               . length($json)
               . " Content: "
@@ -853,19 +867,20 @@ sub LGTV_WebOS_ProcessRead {
     $tail = ''
       if ( length($tail) > 30000 );
     $hash->{PARTIAL} = $tail;
-    Log3( $name, 4, "LGTV_WebOS ($name) - PARTIAL lenght: " . length($tail) );
+    ::Log3( $name, 4, "LGTV_WebOS ($name) - PARTIAL lenght: " . length($tail) );
 
-    Log3( $name, 5, "LGTV_WebOS ($name) - Tail: " . $tail );
-    Log3( $name, 5, "LGTV_WebOS ($name) - PARTIAL: " . $hash->{PARTIAL} );
+    ::Log3( $name, 5, "LGTV_WebOS ($name) - Tail: " . $tail );
+    ::Log3( $name, 5, "LGTV_WebOS ($name) - PARTIAL: " . $hash->{PARTIAL} );
 
     return;
 }
 
-sub LGTV_WebOS_Handshake {
-    my $hash  = shift;
+sub Handshake {
+    my $hash = shift;
+
     my $name  = $hash->{NAME};
     my $host  = $hash->{HOST};
-    my $wsKey = encode_base64( gettimeofday() );
+    my $wsKey = ::encode_base64( ::gettimeofday() );
 
     my $wsHandshakeCmd = "";
     $wsHandshakeCmd .= "GET / HTTP/1.1\r\n";
@@ -876,22 +891,22 @@ sub LGTV_WebOS_Handshake {
     $wsHandshakeCmd .= "Sec-WebSocket-Version: 13\r\n";
     $wsHandshakeCmd .= "Sec-WebSocket-Key: " . $wsKey . "\r\n";
 
-    LGTV_WebOS_Write( $hash, $wsHandshakeCmd );
+    Write( $hash, $wsHandshakeCmd );
 
     $hash->{helper}{wsKey} = $wsKey;
 
-    Log3( $name, 4, "LGTV_WebOS ($name) - send Handshake to WriteFn" );
+    ::Log3( $name, 4, "LGTV_WebOS ($name) - send Handshake to WriteFn" );
 
-    LGTV_WebOS_TimerStatusRequest($hash);
-    Log3( $name, 4, "LGTV_WebOS ($name) - start timer status request" );
+    TimerStatusRequest($hash);
+    ::Log3( $name, 4, "LGTV_WebOS ($name) - start timer status request" );
 
-    LGTV_WebOS_Pairing($hash);
-    Log3( $name, 4, "LGTV_WebOS ($name) - start pairing routine" );
+    Pairing($hash);
+    ::Log3( $name, 4, "LGTV_WebOS ($name) - start pairing routine" );
 
     return;
 }
 
-sub LGTV_WebOS_ResponseProcessing {
+sub ResponseProcessing {
     my ( $hash, $response ) = @_;
     my $name = $hash->{NAME};
 
@@ -900,14 +915,14 @@ sub LGTV_WebOS_ResponseProcessing {
     if ( $response =~ /HTTP\/1.1 101 Switching Protocols/x ) {
 
         my $data   = $response;
-        my $header = LGTV_WebOS_Header2Hash($data);
+        my $header = Header2Hash($data);
 
         ################################
         ### Handshake for first Connect
-        if ( defined( $header->{'Sec-WebSocket-Accept'} ) ) {
+        if ( exists( $header->{'Sec-WebSocket-Accept'} ) ) {
 
             my $keyAccept = $header->{'Sec-WebSocket-Accept'};
-            Log3( $name, 5, "LGTV_WebOS ($name) - keyAccept: $keyAccept" );
+            ::Log3( $name, 5, "LGTV_WebOS ($name) - keyAccept: $keyAccept" );
 
             my $wsKey            = $hash->{helper}{wsKey};
             my $expectedResponse = trim(
@@ -924,15 +939,16 @@ sub LGTV_WebOS_ResponseProcessing {
 
             if ( $keyAccept eq $expectedResponse ) {
 
-                Log3( $name, 3,
+                ::Log3( $name, 3,
 "LGTV_WebOS ($name) - Sucessfull WS connection to $hash->{HOST}"
                 );
-                readingsSingleUpdate( $hash, 'state', 'on', 1 );
+                ::readingsSingleUpdate( $hash, 'state', 'on', 1 );
 
             }
             else {
-                LGTV_WebOS_Close($hash);
-                Log3( $name, 3,
+                Close($hash);
+
+                ::Log3( $name, 3,
 "LGTV_WebOS ($name) - ERROR: Unsucessfull WS connection to $hash->{HOST}"
                 );
             }
@@ -943,22 +959,22 @@ sub LGTV_WebOS_ResponseProcessing {
 
     elsif ( $response =~ m/^{"type":".+}}$/x ) {
 
-        return Log3( $name, 4,
+        return ::Log3( $name, 4,
             "LGTV_WebOS ($name) - garbage after JSON object" )
           if ( $response =~ m/^{"type":".+}}.+{"type":".+/x );
 
-        Log3( $name, 4,
+        ::Log3( $name, 4,
             "LGTV_WebOS ($name) - JSON detected, run LGTV_WebOS_WriteReadings"
         );
 
         my $json = $response;
 
-        Log3( $name, 4, "LGTV_WebOS ($name) - Corrected JSON String: $json" )
+        ::Log3( $name, 4, "LGTV_WebOS ($name) - Corrected JSON String: $json" )
           if ($json);
 
         if ( !defined($json) || !($json) ) {
 
-            Log3( $name, 4,
+            ::Log3( $name, 4,
                 "LGTV_WebOS ($name) - Corrected JSON String empty" );
             return;
         }
@@ -970,22 +986,22 @@ sub LGTV_WebOS_ResponseProcessing {
             return;
         }
 
-        LGTV_WebOS_WriteReadings( $hash, $decode_json );
+        WriteReadings( $hash, $decode_json );
 
         return;
     }
 
-    Log3( $name, 4, "LGTV_WebOS ($name) - no Match found" );
+    ::Log3( $name, 4, "LGTV_WebOS ($name) - no Match found" );
 
     return;
 }
 
-sub LGTV_WebOS_WriteServiceReadings {
+sub WriteServiceReadings {
     my $hash        = shift;
     my $decode_json = shift;
 
     for my $services ( @{ $decode_json->{payload}{services} } ) {
-        readingsBulkUpdateIfChanged(
+        ::readingsBulkUpdateIfChanged(
             $hash,
             'service_' . $services->{name},
             'v.' . $services->{version}
@@ -995,26 +1011,26 @@ sub LGTV_WebOS_WriteServiceReadings {
     return;
 }
 
-sub LGTV_WebOS_WriteDeviceReadings {
+sub WriteDeviceReadings {
     my $hash        = shift;
     my $decode_json = shift;
 
     for my $devices ( @{ $decode_json->{payload}{devices} } ) {
 
-        if (   !defined( $hash->{helper}{device}{inputs}{ $devices->{label} } )
+        if (   !exists( $hash->{helper}{device}{inputs}{ $devices->{label} } )
             || !
-            defined( $hash->{helper}{device}{inputapps}{ $devices->{appId} } ) )
+            exists( $hash->{helper}{device}{inputapps}{ $devices->{appId} } ) )
         {
 
             $hash->{helper}{device}{inputs}
-              { makeDeviceName( $devices->{label} ) } = $devices->{appId};
+              { ::makeDeviceName( $devices->{label} ) } = $devices->{appId};
             $hash->{helper}{device}{inputapps}{ $devices->{appId} } =
-              makeDeviceName( $devices->{label} );
+              ::makeDeviceName( $devices->{label} );
         }
 
-        readingsBulkUpdateIfChanged(
+        ::readingsBulkUpdateIfChanged(
             $hash,
-            'extInput_' . makeDeviceName( $devices->{label} ),
+            'extInput_' . ::makeDeviceName( $devices->{label} ),
             'connect_' . $devices->{connected}
         );
     }
@@ -1022,7 +1038,7 @@ sub LGTV_WebOS_WriteDeviceReadings {
     return;
 }
 
-sub LGTV_WebOS_WriteProgramlistReadings {
+sub WriteProgramlistReadings {
     my $hash        = shift;
     my $decode_json = shift;
 
@@ -1031,49 +1047,27 @@ sub LGTV_WebOS_WriteProgramlistReadings {
     for my $programList ( @{ $decode_json->{payload}{programList} } ) {
 
         if (
-            str2time(
-                LGTV_WebOS_FormartStartEndTime( $programList->{localEndTime} )
-            ) > time()
-          )
+            str2time( FormartStartEndTime( $programList->{localEndTime} ) ) >
+            time() )
         {
             if ( $count < 1 ) {
 
-                readingsBulkUpdateIfChanged( $hash, 'channelCurrentTitle',
+                ::readingsBulkUpdateIfChanged( $hash, 'channelCurrentTitle',
                     $programList->{programName} );
-                readingsBulkUpdateIfChanged(
-                    $hash,
-                    'channelCurrentStartTime',
-                    LGTV_WebOS_FormartStartEndTime(
-                        $programList->{localStartTime}
-                    )
-                );
-                readingsBulkUpdateIfChanged(
-                    $hash,
-                    'channelCurrentEndTime',
-                    LGTV_WebOS_FormartStartEndTime(
-                        $programList->{localEndTime}
-                    )
-                );
+                ::readingsBulkUpdateIfChanged( $hash, 'channelCurrentStartTime',
+                    FormartStartEndTime( $programList->{localStartTime} ) );
+                ::readingsBulkUpdateIfChanged( $hash, 'channelCurrentEndTime',
+                    FormartStartEndTime( $programList->{localEndTime} ) );
 
             }
             elsif ( $count < 2 ) {
 
-                readingsBulkUpdateIfChanged( $hash, 'channelNextTitle',
+                ::readingsBulkUpdateIfChanged( $hash, 'channelNextTitle',
                     $programList->{programName} );
-                readingsBulkUpdateIfChanged(
-                    $hash,
-                    'channelNextStartTime',
-                    LGTV_WebOS_FormartStartEndTime(
-                        $programList->{localStartTime}
-                    )
-                );
-                readingsBulkUpdateIfChanged(
-                    $hash,
-                    'channelNextEndTime',
-                    LGTV_WebOS_FormartStartEndTime(
-                        $programList->{localEndTime}
-                    )
-                );
+                ::readingsBulkUpdateIfChanged( $hash, 'channelNextStartTime',
+                    FormartStartEndTime( $programList->{localStartTime} ) );
+                ::readingsBulkUpdateIfChanged( $hash, 'channelNextEndTime',
+                    FormartStartEndTime( $programList->{localEndTime} ) );
             }
 
             $count++;
@@ -1084,53 +1078,53 @@ sub LGTV_WebOS_WriteProgramlistReadings {
     return;
 }
 
-sub LGTV_WebOS_WriteMuteReadings {
+sub WriteMuteReadings {
     my $hash        = shift;
     my $decode_json = shift;
 
     if (
-        defined( $decode_json->{payload}{'mute'} )
+        exists( $decode_json->{payload}{'mute'} )
         && (   $decode_json->{payload}{'mute'} eq 'true'
             || $decode_json->{payload}{'mute'} == 1 )
       )
     {
 
-        readingsBulkUpdateIfChanged( $hash, 'mute', 'on' );
+        ::readingsBulkUpdateIfChanged( $hash, 'mute', 'on' );
 
     }
-    elsif ( defined( $decode_json->{payload}{'mute'} ) ) {
+    elsif ( exists( $decode_json->{payload}{'mute'} ) ) {
         if (   $decode_json->{payload}{'mute'} eq 'false'
             || $decode_json->{payload}{'mute'} == 0 )
         {
 
-            readingsBulkUpdateIfChanged( $hash, 'mute', 'off' );
+            ::readingsBulkUpdateIfChanged( $hash, 'mute', 'off' );
         }
     }
 
     if (
-        defined( $decode_json->{payload}{'muted'} )
+        exists( $decode_json->{payload}{'muted'} )
         && (   $decode_json->{payload}{'muted'} eq 'true'
             || $decode_json->{payload}{'muted'} == 1 )
       )
     {
 
-        readingsBulkUpdateIfChanged( $hash, 'mute', 'on' );
+        ::readingsBulkUpdateIfChanged( $hash, 'mute', 'on' );
 
     }
     elsif (
-        defined( $decode_json->{payload}{'muted'} )
+        exists( $decode_json->{payload}{'muted'} )
         && (   $decode_json->{payload}{'muted'} eq 'false'
             || $decode_json->{payload}{'muted'} == 0 )
       )
     {
 
-        readingsBulkUpdateIfChanged( $hash, 'mute', 'off' );
+        ::readingsBulkUpdateIfChanged( $hash, 'mute', 'off' );
     }
 
     return;
 }
 
-sub LGTV_WebOS_Write3dReadings {
+sub Write3dReadings {
     my $hash        = shift;
     my $decode_json = shift;
 
@@ -1138,23 +1132,23 @@ sub LGTV_WebOS_Write3dReadings {
         || $decode_json->{payload}{status3D}{status} == 0 )
     {
 
-        readingsBulkUpdateIfChanged( $hash, '3D', 'off' );
+        ::readingsBulkUpdateIfChanged( $hash, '3D', 'off' );
 
     }
     elsif ($decode_json->{payload}{status3D}{status} eq 'true'
         || $decode_json->{payload}{status3D}{status} == 1 )
     {
 
-        readingsBulkUpdateIfChanged( $hash, '3D', 'on' );
+        ::readingsBulkUpdateIfChanged( $hash, '3D', 'on' );
     }
 
-    readingsBulkUpdateIfChanged( $hash, '3DMode',
+    ::readingsBulkUpdateIfChanged( $hash, '3DMode',
         $decode_json->{payload}{status3D}{pattern} );
 
     return;
 }
 
-sub LGTV_WebOS_WriteAppIdReadings {
+sub WriteAppIdReadings {
     my $hash        = shift;
     my $decode_json = shift;
 
@@ -1163,39 +1157,39 @@ sub LGTV_WebOS_WriteAppIdReadings {
                $decode_json->{payload}{appId} =~ /com.webos.app.externalinput/x
             || $decode_json->{payload}{appId} =~ /com.webos.app.hdmi/x
         )
-        && defined(
+        && exists(
             $hash->{helper}{device}{inputapps}{ $decode_json->{payload}{appId} }
         )
         && $hash->{helper}{device}{inputapps}{ $decode_json->{payload}{appId} }
       )
     {
 
-        readingsBulkUpdateIfChanged( $hash, 'input',
+        ::readingsBulkUpdateIfChanged( $hash, 'input',
             $hash->{helper}{device}{inputapps}{ $decode_json->{payload}{appId} }
         );
-        readingsBulkUpdateIfChanged( $hash, 'launchApp', '-' );
+        ::readingsBulkUpdateIfChanged( $hash, 'launchApp', '-' );
 
     }
-    elsif ( defined( $openAppsPackageName{ $decode_json->{payload}{appId} } )
+    elsif ( exists( $openAppsPackageName{ $decode_json->{payload}{appId} } )
         && $openAppsPackageName{ $decode_json->{payload}{appId} } )
     {
 
-        readingsBulkUpdateIfChanged( $hash, 'launchApp',
+        ::readingsBulkUpdateIfChanged( $hash, 'launchApp',
             $openAppsPackageName{ $decode_json->{payload}{appId} } );
-        readingsBulkUpdateIfChanged( $hash, 'input', '-' );
+        ::readingsBulkUpdateIfChanged( $hash, 'input', '-' );
     }
 
     return;
 }
 
-sub LGTV_WebOS_WriteTypeReadings {
+sub WriteTypeReadings {
     my $hash        = shift;
     my $decode_json = shift;
 
     my $response;
 
     if ( $decode_json->{type} eq 'registered'
-        && defined( $decode_json->{payload}{'client-key'} ) )
+        && exists( $decode_json->{payload}{'client-key'} ) )
     {
 
         $hash->{helper}{device}{registered} = 1;
@@ -1208,12 +1202,12 @@ sub LGTV_WebOS_WriteTypeReadings {
                 || $decode_json->{payload}{returnValue} == 1 )
         )
         || ( $decode_json->{type} eq 'registered' )
-        && defined( $decode_json->{payload}{'client-key'} )
+        && exists( $decode_json->{payload}{'client-key'} )
       )
     {
 
         $response = 'ok';
-        readingsBulkUpdateIfChanged( $hash, 'pairing', 'paired' );
+        ::readingsBulkUpdateIfChanged( $hash, 'pairing', 'paired' );
         $hash->{helper}{device}{runsetcmd} =
           $hash->{helper}{device}{runsetcmd} - 1
           if ( $hash->{helper}{device}{runsetcmd} > 0 );
@@ -1229,7 +1223,7 @@ sub LGTV_WebOS_WriteTypeReadings {
             '401 insufficient permissions (not registered)' )
         {
 
-            readingsBulkUpdateIfChanged( $hash, 'pairing', 'unpaired' );
+            ::readingsBulkUpdateIfChanged( $hash, 'pairing', 'unpaired' );
         }
 
         $hash->{helper}{device}{runsetcmd} =
@@ -1240,95 +1234,95 @@ sub LGTV_WebOS_WriteTypeReadings {
     return $response;
 }
 
-sub LGTV_WebOS_WriteReadings {
+sub WriteReadings {
     my ( $hash, $decode_json ) = @_;
 
     my $name = $hash->{NAME};
     my $response;
 
-    Log3( $name, 4, "LGTV_WebOS ($name) - Beginn Readings writing" );
+    ::Log3( $name, 4, "LGTV_WebOS ($name) - Beginn Readings writing" );
 
-    readingsBeginUpdate($hash);
+    ::readingsBeginUpdate($hash);
 
     if ( ref( $decode_json->{payload}{services} ) eq "ARRAY"
         && scalar( @{ $decode_json->{payload}{services} } ) > 0 )
     {
-        LGTV_WebOS_WriteServiceReadings( $hash, $decode_json );
+        WriteServiceReadings( $hash, $decode_json );
     }
     elsif ( ref( $decode_json->{payload}{devices} ) eq "ARRAY"
         && scalar( @{ $decode_json->{payload}{devices} } ) > 0 )
     {
-        LGTV_WebOS_WriteDeviceReadings( $hash, $decode_json );
+        WriteDeviceReadings( $hash, $decode_json );
     }
     elsif ( ref( $decode_json->{payload}{programList} ) eq "ARRAY"
         && scalar( @{ $decode_json->{payload}{programList} } ) > 0 )
     {
-        LGTV_WebOS_WriteProgramlistReadings( $hash, $decode_json );
+        WriteProgramlistReadings( $hash, $decode_json );
     }
 
-    if (   defined( $decode_json->{payload}{'mute'} )
-        || defined( $decode_json->{payload}{'muted'} ) )
+    if (   exists( $decode_json->{payload}{'mute'} )
+        || exists( $decode_json->{payload}{'muted'} ) )
     {
-        LGTV_WebOS_WriteMuteReadings( $hash, $decode_json );
+        WriteMuteReadings( $hash, $decode_json );
     }
-    elsif ( defined( $decode_json->{payload}{status3D}{status} ) ) {
-        LGTV_WebOS_Write3dReadings( $hash, $decode_json );
+    elsif ( exists( $decode_json->{payload}{status3D}{status} ) ) {
+        Write3dReadings( $hash, $decode_json );
     }
-    elsif ( defined( $decode_json->{payload}{appId} ) ) {
-        LGTV_WebOS_WriteAppIdReadings( $hash, $decode_json );
+    elsif ( exists( $decode_json->{payload}{appId} ) ) {
+        WriteAppIdReadings( $hash, $decode_json );
     }
 
-    if ( defined( $decode_json->{type} ) ) {
-        $response = LGTV_WebOS_WriteTypeReadings( $hash, $decode_json );
+    if ( exists( $decode_json->{type} ) ) {
+        $response = WriteTypeReadings( $hash, $decode_json );
     }
 
-    readingsBulkUpdateIfChanged( $hash, 'lgKey',
+    ::readingsBulkUpdateIfChanged( $hash, 'lgKey',
         $decode_json->{payload}{'client-key'} )
-      if ( defined( $decode_json->{payload}{'client-key'} ) );
-    readingsBulkUpdateIfChanged( $hash, 'volume',
+      if ( exists( $decode_json->{payload}{'client-key'} ) );
+    ::readingsBulkUpdateIfChanged( $hash, 'volume',
         $decode_json->{payload}{'volume'} )
-      if ( defined( $decode_json->{payload}{'volume'} ) );
-    readingsBulkUpdateIfChanged( $hash, 'lastResponse', $response )
+      if ( exists( $decode_json->{payload}{'volume'} ) );
+    ::readingsBulkUpdateIfChanged( $hash, 'lastResponse', $response )
       if ( defined($response) );
 
-    if ( ReadingsVal( $name, 'launchApp', 'none' ) eq 'TV' ) {
+    if ( ::ReadingsVal( $name, 'launchApp', 'none' ) eq 'TV' ) {
 
-        readingsBulkUpdateIfChanged( $hash, 'channel',
+        ::readingsBulkUpdateIfChanged( $hash, 'channel',
             $decode_json->{payload}{'channelNumber'} )
-          if ( defined( $decode_json->{payload}{'channelNumber'} ) );
-        readingsBulkUpdateIfChanged( $hash, 'channelName',
+          if ( exists( $decode_json->{payload}{'channelNumber'} ) );
+        ::readingsBulkUpdateIfChanged( $hash, 'channelName',
             $decode_json->{payload}{'channelName'} )
-          if ( defined( $decode_json->{payload}{'channelName'} ) );
-        readingsBulkUpdateIfChanged( $hash, 'channelMedia',
+          if ( exists( $decode_json->{payload}{'channelName'} ) );
+        ::readingsBulkUpdateIfChanged( $hash, 'channelMedia',
             $decode_json->{payload}{'channelTypeName'} )
-          if ( defined( $decode_json->{payload}{'channelTypeName'} ) );
+          if ( exists( $decode_json->{payload}{'channelTypeName'} ) );
 
     }
     else {
 
-        readingsBulkUpdateIfChanged( $hash, 'channelName',             '-' );
-        readingsBulkUpdateIfChanged( $hash, 'channel',                 '-' );
-        readingsBulkUpdateIfChanged( $hash, 'channelMedia',            '-' );
-        readingsBulkUpdateIfChanged( $hash, 'channelCurrentTitle',     '-' );
-        readingsBulkUpdateIfChanged( $hash, 'channelCurrentStartTime', '-' );
-        readingsBulkUpdateIfChanged( $hash, 'channelCurrentEndTime',   '-' );
-        readingsBulkUpdateIfChanged( $hash, 'channelNextTitle',        '-' );
-        readingsBulkUpdateIfChanged( $hash, 'channelNextStartTime',    '-' );
-        readingsBulkUpdateIfChanged( $hash, 'channelNextEndTime',      '-' );
+        ::readingsBulkUpdateIfChanged( $hash, 'channelName',             '-' );
+        ::readingsBulkUpdateIfChanged( $hash, 'channel',                 '-' );
+        ::readingsBulkUpdateIfChanged( $hash, 'channelMedia',            '-' );
+        ::readingsBulkUpdateIfChanged( $hash, 'channelCurrentTitle',     '-' );
+        ::readingsBulkUpdateIfChanged( $hash, 'channelCurrentStartTime', '-' );
+        ::readingsBulkUpdateIfChanged( $hash, 'channelCurrentEndTime',   '-' );
+        ::readingsBulkUpdateIfChanged( $hash, 'channelNextTitle',        '-' );
+        ::readingsBulkUpdateIfChanged( $hash, 'channelNextStartTime',    '-' );
+        ::readingsBulkUpdateIfChanged( $hash, 'channelNextEndTime',      '-' );
     }
 
-    readingsBulkUpdateIfChanged( $hash, 'state', 'on' );
+    ::readingsBulkUpdateIfChanged( $hash, 'state', 'on' );
 
-    readingsEndUpdate( $hash, 1 );
+    ::readingsEndUpdate( $hash, 1 );
 
     return;
 }
 
-sub LGTV_WebOS_Pairing {
+sub Pairing {
     my $hash = shift;
     my $name = $hash->{NAME};
 
-    Log3( $name, 4, "LGTV_WebOS ($name) - HASH handshakePayload" );
+    ::Log3( $name, 4, "LGTV_WebOS ($name) - HASH handshakePayload" );
 
     my %handshakePayload = (
         "pairingType" => "PROMPT",
@@ -1394,17 +1388,17 @@ sub LGTV_WebOS_Pairing {
 
     my $usedHandshake = \%handshakePayload;
 
-    my $key = ReadingsVal( $name, 'lgKey', '' );
+    my $key = ::ReadingsVal( $name, 'lgKey', '' );
 
     $usedHandshake->{'client-key'} = $key if ( defined($key) );
 
-    LGTV_WebOS_CreateSendCommand( $hash, undef, $usedHandshake, 'register' );
-    Log3( $name, 4, "LGTV_WebOS ($name) - Send pairing informations" );
+    CreateSendCommand( $hash, undef, $usedHandshake, 'register' );
+    ::Log3( $name, 4, "LGTV_WebOS ($name) - Send pairing informations" );
 
     return;
 }
 
-sub LGTV_WebOS_CreateSendCommand {
+sub CreateSendCommand {
     my ( $hash, $uri, $payload, $type ) = @_;
 
     my $name = $hash->{NAME};
@@ -1412,25 +1406,29 @@ sub LGTV_WebOS_CreateSendCommand {
     $type = 'request' if ( !defined($type) );
 
     my $command = {};
-    $command->{'client-key'} = ReadingsVal( $name, 'lgKey', '' )
+    $command->{'client-key'} = ::ReadingsVal( $name, 'lgKey', '' )
       if ( $type ne 'register' );
-    $command->{id}      = $type . "_" . gettimeofday();
+    $command->{id}      = $type . "_" . ::gettimeofday();
     $command->{type}    = $type;
     $command->{uri}     = $uri if ($uri);
     $command->{payload} = $payload if ( defined($payload) );
 
-#Log3( $name, 5, "LGTV_WebOS ($name) - Payload Message: $command->{payload}{message}" );
+#::Log3( $name, 5, "LGTV_WebOS ($name) - Payload Message: $command->{payload}{message}" );
 
-    my $cmd = encode_json($command);
+    my $cmd = eval { encode_json($command) };
+    if ($@) {
+        Log3( $name, 3, "LGTV_WebOS ($name) - can't $cmd encode to json: $@" );
+        return;
+    }
 
-    Log3( $name, 5, "LGTV_WebOS ($name) - Sending command: $cmd" );
+    ::Log3( $name, 5, "LGTV_WebOS ($name) - Sending command: $cmd" );
 
-    LGTV_WebOS_Write( $hash, LGTV_WebOS_Hybi10Encode( $cmd, "text", 1 ) );
+    Write( $hash, Hybi10Encode( $cmd, "text", 1 ) );
 
     return;
 }
 
-sub LGTV_WebOS_Hybi10Encode {
+sub Hybi10Encode {
     my $payload = shift;
     my $type    = shift // 'text';
     my $masked  = shift // 1;
@@ -1528,86 +1526,87 @@ sub LGTV_WebOS_Hybi10Encode {
     return $frame;
 }
 
-sub LGTV_WebOS_GetAudioStatus {
+sub GetAudioStatus {
     my $hash = shift;
     my $name = $hash->{NAME};
 
-    Log3( $name, 4,
+    ::Log3( $name, 4,
         "LGTV_WebOS ($name) - LGTV_WebOS_GetAudioStatus: "
           . $hash->{helper}{device}{runsetcmd} );
-    LGTV_WebOS_CreateSendCommand( $hash, $lgCommands{getAudioStatus}, undef )
+    CreateSendCommand( $hash, $lgCommands{getAudioStatus}, undef )
       if ( $hash->{helper}{device}{runsetcmd} == 0 );
 
     return;
 }
 
-sub LGTV_WebOS_GetCurrentChannel {
+sub GetCurrentChannel {
     my $hash = shift;
     my $name = $hash->{NAME};
 
-    RemoveInternalTimer( $hash, 'LGTV_WebOS_GetCurrentChannel' );
-    Log3( $name, 4,
+    ::RemoveInternalTimer( $hash,
+        \&FHEM::Devices::LGTV::LGTVWebOS::GetCurrentChannel );
+    ::Log3( $name, 4,
         "LGTV_WebOS ($name) - LGTV_WebOS_GetCurrentChannel: "
           . $hash->{helper}{device}{runsetcmd} );
-    LGTV_WebOS_CreateSendCommand( $hash, $lgCommands{getCurrentChannel}, undef )
+    CreateSendCommand( $hash, $lgCommands{getCurrentChannel}, undef )
       if ( $hash->{helper}{device}{runsetcmd} == 0 );
 
     return;
 }
 
-sub LGTV_WebOS_GetForgroundAppInfo {
+sub GetForgroundAppInfo {
     my $hash = shift;
     my $name = $hash->{NAME};
 
-    RemoveInternalTimer( $hash, 'LGTV_WebOS_GetForgroundAppInfo' );
-    Log3( $name, 4,
+    ::RemoveInternalTimer( $hash,
+        \&FHEM::Devices::LGTV::LGTVWebOS::GetForgroundAppInfo );
+    ::Log3( $name, 4,
         "LGTV_WebOS ($name) - LGTV_WebOS_GetForgroundAppInfo: "
           . $hash->{helper}{device}{runsetcmd} );
-    LGTV_WebOS_CreateSendCommand( $hash, $lgCommands{getForegroundAppInfo},
-        undef )
+    CreateSendCommand( $hash, $lgCommands{getForegroundAppInfo}, undef )
       if ( $hash->{helper}{device}{runsetcmd} == 0 );
 
     return;
 }
 
-sub LGTV_WebOS_GetExternalInputList {
+sub GetExternalInputList {
     my $hash = shift;
     my $name = $hash->{NAME};
 
-    RemoveInternalTimer( $hash, 'LGTV_WebOS_GetExternalInputList' );
-    Log3( $name, 4,
+    ::RemoveInternalTimer( $hash,
+        \&FHEM::Devices::LGTV::LGTVWebOS::GetExternalInputList );
+    ::Log3( $name, 4,
         "LGTV_WebOS ($name) - LGTV_WebOS_GetExternalInputList: "
           . $hash->{helper}{device}{runsetcmd} );
-    LGTV_WebOS_CreateSendCommand( $hash, $lgCommands{getExternalInputList},
-        undef )
+    CreateSendCommand( $hash, $lgCommands{getExternalInputList}, undef )
       if ( $hash->{helper}{device}{runsetcmd} == 0 );
 
     return;
 }
 
-sub LGTV_WebOS_Get3DStatus {
+sub Get3DStatus {
     my $hash = shift;
     my $name = $hash->{NAME};
 
-    RemoveInternalTimer( $hash, 'LGTV_WebOS_Get3DStatus' );
-    Log3( $name, 4,
+    ::RemoveInternalTimer( $hash,
+        \&FHEM::Devices::LGTV::LGTVWebOS::Get3DStatus );
+    ::Log3( $name, 4,
         "LGTV_WebOS ($name) - LGTV_WebOS_Get3DStatus: "
           . $hash->{helper}{device}{runsetcmd} );
-    LGTV_WebOS_CreateSendCommand( $hash, $lgCommands{get3DStatus}, undef )
+    CreateSendCommand( $hash, $lgCommands{get3DStatus}, undef )
       if ( $hash->{helper}{device}{runsetcmd} == 0 );
 
     return;
 }
 
-sub LGTV_WebOS_GetChannelProgramInfo {
+sub GetChannelProgramInfo {
     my $hash = shift;
     my $name = $hash->{NAME};
 
-    Log3( $name, 4,
+    ::Log3( $name, 4,
         "LGTV_WebOS ($name) - LGTV_WebOS_GetChannelProgramInfo: "
           . $hash->{helper}{device}{runsetcmd} );
-    LGTV_WebOS_CreateSendCommand( $hash, $lgCommands{getChannelProgramInfo},
-        undef )
+    CreateSendCommand( $hash, $lgCommands{getChannelProgramInfo}, undef )
       if ( $hash->{helper}{device}{runsetcmd} == 0 );
 
     return;
@@ -1616,7 +1615,7 @@ sub LGTV_WebOS_GetChannelProgramInfo {
 #############################################
 ### my little Helper
 
-sub LGTV_WebOS_ParseMsg {
+sub ParseMsg {
     my $hash   = shift;
     my $buffer = shift;
 
@@ -1630,14 +1629,14 @@ sub LGTV_WebOS_ParseMsg {
         for my $c ( split //, $buffer ) {
             if ( $jsonopen == $jsonclose && $jsonopen > 0 ) {
                 $tail .= $c;
-                Log3( $name, 5,
+                ::Log3( $name, 5,
 "LGTV_WebOS ($name) - $jsonopen == $jsonclose && $jsonopen > 0"
                 );
 
             }
             elsif ( ( $jsonopen == $jsonclose ) && ( $c ne '{' ) ) {
 
-                Log3( $name, 5,
+                ::Log3( $name, 5,
                     "LGTV_WebOS ($name) - Garbage character before message: "
                       . $c );
 
@@ -1665,11 +1664,11 @@ sub LGTV_WebOS_ParseMsg {
         }
     }
 
-    Log3( $name, 5, "LGTV_WebOS ($name) - return msg: $msg and tail: $tail" );
+    ::Log3( $name, 5, "LGTV_WebOS ($name) - return msg: $msg and tail: $tail" );
     return ( $msg, $tail );
 }
 
-sub LGTV_WebOS_Header2Hash {
+sub Header2Hash {
     my $string = shift;
     my %hash   = ();
 
@@ -1684,7 +1683,7 @@ sub LGTV_WebOS_Header2Hash {
     return \%hash;
 }
 
-sub LGTV_WebOS_FormartStartEndTime {
+sub FormartStartEndTime {
     my $string = shift;
 
     my @timeArray = split( ',', $string );
@@ -1694,19 +1693,23 @@ sub LGTV_WebOS_FormartStartEndTime {
 }
 
 ############ Presence Erkennung Begin #################
-sub LGTV_WebOS_Presence {
+sub Presence {
     my $hash = shift;
     my $name = $hash->{NAME};
 
-    $hash->{helper}{RUNNING_PID} =
-      BlockingCall( "LGTV_WebOS_PresenceRun", $name . '|' . $hash->{HOST},
-        "LGTV_WebOS_PresenceDone", 5, "LGTV_WebOS_PresenceAborted", $hash )
-      unless ( exists( $hash->{helper}{RUNNING_PID} ) );
+    $hash->{helper}{RUNNING_PID} = ::BlockingCall(
+        'FHEM::Devices::LGTV::LGTVWebOS::PresenceRun',
+        $name . '|' . $hash->{HOST},
+        'FHEM::Devices::LGTV::LGTVWebOS::PresenceDone',
+        5,
+        'FHEM::Devices::LGTV::LGTVWebOS::PresenceAborted',
+        $hash
+    ) unless ( exists( $hash->{helper}{RUNNING_PID} ) );
 
     return;
 }
 
-sub LGTV_WebOS_PresenceRun {
+sub PresenceRun {
     my $string = shift;
     my ( $name, $host ) = split( "\\|", $string );
 
@@ -1715,10 +1718,10 @@ sub LGTV_WebOS_PresenceRun {
 
     $tmp = qx(ping -c 3 -w 2 $host 2>&1);  ## no critic (Backtick operator used)
 
-    if ( defined($tmp) && $tmp ne "" ) {
+    if ( defined($tmp) && $tmp ne '' ) {
 
         chomp $tmp;
-        Log3( $name, 4,
+        ::Log3( $name, 4,
             "LGTV_WebOS ($name) - ping command returned with output:\n$tmp" );
         $response = $name . '|' . (
             $tmp =~
@@ -1734,14 +1737,13 @@ sub LGTV_WebOS_PresenceRun {
         $response = "$name|Could not execute ping command";
     }
 
-    Log3( $name, 4,
-"Sub LGTV_WebOS_PresenceRun ($name) - Sub finish, Call LGTV_WebOS_PresenceDone"
-    );
+    ::Log3( $name, 4,
+        "sub PresenceRun ($name) - Sub finish, Call LGTV_WebOS_PresenceDone" );
 
     return $response;
 }
 
-sub LGTV_WebOS_PresenceDone {
+sub PresenceDone {
     my $string = shift;
 
     my ( $name, $response ) = split( "\\|", $string );
@@ -1749,50 +1751,52 @@ sub LGTV_WebOS_PresenceDone {
 
     delete( $hash->{helper}{RUNNING_PID} );
 
-    Log3( $name, 4,
-"Sub LGTV_WebOS_PresenceDone ($name) - Helper is disabled. Stop processing"
-    ) if ( $hash->{helper}{DISABLED} );
-    return if ( $hash->{helper}{DISABLED} );
+    if ( exists( $hash->{helper}{DISABLED} ) ) {
+        ::Log3( $name, 4,
+            "sub PresenceDone ($name) - Helper is disabled. Stop processing" );
 
-    readingsSingleUpdate( $hash, 'presence', $response, 1 );
+        return;
+    }
 
-    LGTV_WebOS_SocketClosePresenceAbsent( $hash, $response );
+    ::readingsSingleUpdate( $hash, 'presence', $response, 1 );
 
-    Log3( $name, 4, "Sub LGTV_WebOS_PresenceDone ($name) - presence done" );
+    SocketClosePresenceAbsent( $hash, $response );
+
+    ::Log3( $name, 4, "sub PresenceDone ($name) - presence done" );
 
     return;
 }
 
-sub LGTV_WebOS_PresenceAborted {
+sub PresenceAborted {
     my $hash = shift;
     my $name = $hash->{NAME};
 
     delete( $hash->{helper}{RUNNING_PID} );
-    readingsSingleUpdate( $hash, 'presence', 'pingPresence timedout', 1 );
+    ::readingsSingleUpdate( $hash, 'presence', 'pingPresence timedout', 1 );
 
-    Log3( $name, 4,
-"Sub LGTV_WebOS_PresenceAborted ($name) - The BlockingCall Process terminated unexpectedly. Timedout!"
+    ::Log3( $name, 4,
+"sub PresenceAborted ($name) - The BlockingCall Process terminated unexpectedly. Timedout!"
     );
 
     return;
 }
 
-sub LGTV_WebOS_SocketClosePresenceAbsent {
+sub SocketClosePresenceAbsent {
 
     my $hash     = shift;
     my $presence = shift;
 
     my $name = $hash->{NAME};
 
-    LGTV_WebOS_Close($hash)
-      if ( $presence eq 'absent' && !IsDisabled($name) && $hash->{CD} )
+    Close($hash)
+      if ( $presence eq 'absent' && !::IsDisabled($name) && $hash->{CD} )
       ;   # https://forum.fhem.de/index.php/topic,66671.msg694578.html#msg694578
      # Sobald pingPresence absent meldet und der Socket noch steht soll er geschlossen werden, da sonst FHEM nach 4-6 min für 10 min blockiert
 
     return;
 }
 
-sub LGTV_WebOS_WakeUp_Udp {
+sub WakeUp_Udp {
     my ( $hash, $mac_addr, $host, $port ) = @_;
     my $name = $hash->{NAME};
 
@@ -1800,8 +1804,7 @@ sub LGTV_WebOS_WakeUp_Udp {
 
     my $sock = IO::Socket::INET->new( Proto => 'udp' ) or warn "socket : $!\n";
     if ( !$sock ) {
-        Log3( $name, 3,
-            "Sub LGTV_WebOS_WakeUp_Udp ($name) - Can't create WOL socket" );
+        ::Log3( $name, 3, "sub WakeUp_Udp ($name) - Can't create WOL socket" );
         return 1;
     }
 
@@ -1811,7 +1814,7 @@ sub LGTV_WebOS_WakeUp_Udp {
     my $packet =
       pack( 'C6H*', 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, $mac_addr x 16 );
 
-    setsockopt( $sock, SOL_SOCKET, SO_BROADCAST, 1 )
+    setsockopt( $sock, ::SOL_SOCKET, ::SO_BROADCAST, 1 )
       or warn "setsockopt : $!\n";
     send( $sock, $packet, 0, $sock_addr ) or warn "send : $!\n";
     close($sock);
@@ -1823,326 +1826,4 @@ sub LGTV_WebOS_WakeUp_Udp {
 
 1;
 
-=pod
-=item device
-=item summary       Controls LG SmartTVs run with WebOS Operating System
-=item summary_DE    Steuert LG SmartTVs mit WebOS Betriebssystem
-
-=begin html
-
-<a name="LGTV_WebOS"></a>
-<h3>LGTV_WebOS</h3>
-
-<ul>
-    This module controls SmartTVs from LG based on WebOS as operation system via network. It offers to swtich the TV channel, start and switch applications, send remote control commands, as well as to query the actual status.<p><br /><br />
-    
-    <strong>Definition </strong><code>define &lt;name&gt; LGTV_WebOS &lt;IP-Address&gt;</code>
-    </p>
-    <ul>
-        <ul>
-            When an LGTV_WebOS-Module is defined, an internal routine is triggered which queries the TV's status every 15s and triggers respective Notify / FileLog Event definitions.
-        </ul>
-    </ul>
-    </p>
-    <ul>
-        <ul>
-            Example:
-        </ul>
-        <ul>
-            <code>define TV LGTV_WebOS 192.168.0.10 <br /></code><br /><br /></p>
-        </ul>
-    </ul>
-        <p><code><strong>Set-Commands </strong><code>set &lt;Name&gt; &lt;Command&gt; [&lt;Parameter&gt;]</code></code></p>
-    <ul>
-        <ul>
-            The following commands are supported in the actual version:
-        </ul>
-    </ul>
-    <ul>
-        <ul>
-            <ul>
-                <li><strong>connect&nbsp;</strong> -&nbsp; Connects to the TV at the defined address. When triggered the first time, a pairing is conducted</li>
-                <li><strong>pairing&nbsp;</strong> -&nbsp;&nbsp; Sends a pairing request to the TV which needs to be confirmed by the user with remote control</li>
-                <li><strong>screenMsg</strong> &lt;Text&gt;&nbsp;&nbsp;-&nbsp;&nbsp; Displays a message for 3-5s on the TV in the top right corner of the screen</li>
-                <li><strong>mute</strong> on, off&nbsp; -&nbsp; Turns volume to mute. Depending on the audio connection, this needs to be set on the AV Receiver (see volume) </li>
-                <li><strong>volume </strong>0-100, Slider -&nbsp;&nbsp; Sets the volume. Depending on the audio connection, this needs to be set on the AV Receiver (see mute)</li>
-                <li><strong>volumeUp</strong>&nbsp; -&nbsp;&nbsp; Increases the volume by 1</li>
-                <li><strong>volumeDown</strong>&nbsp; -&nbsp;&nbsp; Decreases the volume by 1</li>
-                <li><strong>channelUp</strong> &nbsp;&nbsp;-&nbsp;&nbsp; Switches the channel to the next one</li>
-                <li><strong>channelDown</strong> &nbsp;&nbsp;-&nbsp;&nbsp; Switches the channel to the previous one</li>
-                <li><strong>getServiceList&nbsp;</strong> -&nbsp; Queries the running services on WebOS (in beta phase)</li>
-                <li><strong>on</strong> - Turns the TV on, depending on type of device. Only working when LAN or Wifi connection remains active during off state.</li>
-                <li><strong>off</strong> - Turns the TV off, when an active connection is established</li>
-                <li><strong>launchApp</strong> &lt;Application&gt;&nbsp;&nbsp;-&nbsp;&nbsp; Activates an application out of the following list (Maxdome, AmazonVideo, YouTube, Netflix, TV, GooglePlay, Browser, Chili, TVCast, Smartshare, Scheduler, Miracast, TV)&nbsp; <br />Note: TV is an application in LG's terms and not an input connection</li>
-                <li><strong>3D</strong> on,off&nbsp; -&nbsp; 3D Mode is turned on and off. Depending on type of TV there might be different modes (e.g. Side-by-Side, Top-Bottom)</li>
-                <li><strong>stop</strong>&nbsp; -&nbsp;&nbsp; Stop command (depending on application)</li>
-                <li><strong>play&nbsp; </strong>-&nbsp;&nbsp; Play command (depending on application)</li>
-                <li><strong>pause&nbsp; </strong>-&nbsp;&nbsp; Pause command (depending on application)</li>
-                <li><strong>rewind&nbsp; </strong>-&nbsp;&nbsp; Rewind command (depending on application)</li>
-                <li><strong>fastForward&nbsp; </strong>-&nbsp;&nbsp; Fast Forward command (depending on application)</li>
-                <li><strong>clearInputList&nbsp;</strong> -&nbsp;&nbsp; Clears list of Inputs</li>
-                <li><strong>input&nbsp;</strong> - Selects the input connection (depending on the actual TV type and connected devices) <br />e.g.: extInput_AV-1, extInput_HDMI-1, extInput_HDMI-2, extInput_HDMI-3)</li>
-            </ul>
-        </ul>
-    </ul><br /><br /></p>
-        <p><strong>Get-Command</strong> <code>get &lt;Name&gt; &lt;Readingname&gt;</code><br /></p>
-    <ul>
-        <ul>
-            Currently, GET reads back the values of the current readings. Please see below for a list of Readings / Generated Events.
-        </ul>
-    </ul>
-    <p><br /><strong>Attributes</strong></p>
-    <ul>
-        <ul>
-            <li>disable</li>
-            Optional attribute to deactivate the recurring status updates. Manual trigger of update is alsways possible.</br>
-            Valid Values: 0 =&gt; recurring status updates, 1 =&gt; no recurring status updates.</p>
-        </ul>
-    </ul>
-    <ul>
-        <ul>
-            <li>channelGuide</li>
-            Optional attribute to deactivate the recurring TV Guide update. Depending on TV and FHEM host, this causes significant network traffic and / or CPU load</br>
-            Valid Values: 0 =&gt; no recurring TV Guide updates, 1 =&gt; recurring TV Guide updates.
-        </ul>
-    </ul>
-    <ul>
-        <ul>
-            <li>pingPresence</li>
-            current state of ping presence from TV. create a reading presence with values absent or present.
-        </ul>
-    </ul>
-    <ul>
-        <ul>
-            <li>keepAliveCheckTime</li>
-            value in seconds - keepAliveCheck is check read data input from tcp socket and prevented FHEM freeze.
-        </ul>
-    </ul>
-    <ul>
-        <ul>
-            <li>wakeOnLanMAC</li>
-            Network MAC Address of the LG TV Networkdevice.
-        </ul>
-    </ul>
-    <ul>
-        <ul>
-            <li>wakeOnLanBroadcast</li>
-            Broadcast Address of the Network - wakeOnLanBroadcast &lt;network&gt;.255
-        </ul>
-    </ul>
-    <ul>
-        <ul>
-            <li>wakeupCmd</li>
-            Set a command to be executed when turning on an absent device. Can be an FHEM command or Perl command in {}.
-        </ul>
-    </ul> 
-</ul>
-
-=end html
-
-=begin html_DE
-
-<a name="LGTV_WebOS"></a>
-<h3>LGTV_WebOS</h3>
-<ul>
-    <ul>
-        Dieses Modul steuert SmartTV's des Herstellers LG mit dem Betriebssystem WebOS &uuml;ber die Netzwerkschnittstelle. Es bietet die M&ouml;glichkeit den aktuellen TV Kanal zu steuern, sowie Apps zu starten, Fernbedienungsbefehle zu senden, sowie den aktuellen Status abzufragen.
-    </ul>
-    <p><br /><br /><strong>Definition </strong><code>define &lt;name&gt; LGTV_WebOS &lt;IP-Addresse&gt;</code> <br /><br /></p>
-    <ul>
-        <ul>
-            <ul>Bei der Definition eines LGTV_WebOS-Moduls wird eine interne Routine in Gang gesetzt, welche regelm&auml;&szlig;ig alle 15s den Status des TV abfragt und entsprechende Notify-/FileLog-Definitionen triggert.</ul>
-        </ul>
-    </ul>
-    <ul>
-        <ul>
-            <ul>Beispiel: <code>define TV LGTV_WebOS 192.168.0.10 <br /></code><br /><br /></ul>
-        </ul>
-    </ul>
-    <strong>Set-Kommandos </strong><code>set &lt;Name&gt; &lt;Kommando&gt; [&lt;Parameter&gt;]</code>
-    <ul>
-        <ul>
-            <ul>Aktuell werden folgende Kommandos unterst&uuml;tzt.</ul>
-        </ul>
-    </ul>
-    <ul>
-        <ul>
-            <ul>
-                <ul>
-                    <li><strong>connect&nbsp;</strong> -&nbsp; Verbindet sich zum Fernseher unter der IP wie definiert, f&uuml;hrt beim ersten mal automatisch ein pairing durch</li>
-                    <li><strong>pairing&nbsp;</strong> -&nbsp;&nbsp; Berechtigungsanfrage an den Fernseher, hier muss die Anfrage mit der Fernbedienung best&auml;tigt werden</li>
-                    <li><strong>screenMsg</strong> &lt;Text&gt;&nbsp;&nbsp;-&nbsp;&nbsp; zeigt f&uuml;r ca 3-5s eine Nachricht auf dem Fernseher oben rechts an</li>
-                    <li><strong>mute</strong> on, off&nbsp; -&nbsp; Schaltet den Fernseher Stumm, je nach Anschluss des Audiosignals, muss dieses am Verst&auml;rker (AV Receiver) geschehen (siehe Volume)</li>
-                    <li><strong>volume </strong>0-100, Schieberegler&nbsp; -&nbsp;&nbsp; Setzt die Lautst&auml;rke des Fernsehers, je nach Anschluss des Audiosignals, muss dieses am Verst&auml;rker (AV Receiver) geschehen (siehe mute)</li>
-                    <li><strong>volumeUp</strong>&nbsp; -&nbsp;&nbsp; Erh&ouml;ht die Lautst&auml;rke um den Wert 1</li>
-                    <li><strong>volumeDown</strong>&nbsp; -&nbsp;&nbsp; Verringert die Lautst&auml;rke um den Wert 1</li>
-                    <li><strong>channelUp</strong> &nbsp;&nbsp;-&nbsp;&nbsp; Schaltet auf den n&auml;chsten Kanal um</li>
-                    <li><strong>channelDown</strong> &nbsp;&nbsp;-&nbsp;&nbsp; Schaltet auf den vorherigen Kanal um</li>
-                    <li><strong>getServiceList&nbsp;</strong> -&nbsp; Fragrt die Laufenden Dienste des Fernsehers an (derzeit noch in Beta-Phase)</li>
-                    <li><strong>on</strong>&nbsp; -&nbsp;&nbsp; Schaltet den Fernseher ein, wenn WLAN oder LAN ebenfalls im Aus-Zustand aktiv ist (siehe Bedienungsanleitung da Typabh&auml;ngig)</li>
-                    <li><strong>off</strong> - Schaltet den Fernseher aus, wenn eine Connection aktiv ist</li>
-                    <li><strong>launchApp</strong> &lt;Anwendung&gt;&nbsp;&nbsp;-&nbsp;&nbsp; Aktiviert eine Anwendung aus der Liste (Maxdome, AmazonVideo, YouTube, Netflix, TV, GooglePlay, Browser, Chili, TVCast, Smartshare, Scheduler, Miracast, TV)&nbsp; <br />Achtung: TV ist hier eine Anwendung, und kein Ger&auml;teeingang</li>
-                    <li><strong>3D</strong> on,off&nbsp; -&nbsp; 3D Modus kann hier ein- und ausgeschaltet werden, je nach Fernseher k&ouml;nnen mehrere 3D Modi unterst&uuml;tzt werden (z.B. Side-by-Side, Top-Bottom)</li>
-                    <li><strong>stop</strong>&nbsp; -&nbsp;&nbsp; Stop-Befehl (anwendungsabh&auml;ngig)</li>
-                    <li><strong>play&nbsp; </strong>-&nbsp;&nbsp; Play-Befehl (anwendungsabh&auml;ngig)</li>
-                    <li><strong>pause&nbsp; </strong>-&nbsp;&nbsp; Pause-Befehl (anwendungsabh&auml;ngig)</li>
-                    <li><strong>rewind&nbsp; </strong>-&nbsp;&nbsp; Zur&uuml;ckspulen-Befehl (anwendungsabh&auml;ngig)</li>
-                    <li><strong>fastForward&nbsp; </strong>-&nbsp;&nbsp; Schneller-Vorlauf-Befehl (anwendungsabh&auml;ngig)</li>
-                    <li><strong>clearInputList&nbsp;</strong> -&nbsp;&nbsp; L&ouml;scht die Liste der Ger&auml;teeing&auml;nge</li>
-                    <li><strong>input&nbsp;</strong> - W&auml;hlt den Ger&auml;teeingang aus (Abh&auml;ngig von Typ und angeschossenen Ger&auml;ten) <br />Beispiele: extInput_AV-1, extInput_HDMI-1, extInput_HDMI-2, extInput_HDMI-3)</li>
-                </ul>
-            </ul>
-        </ul>
-    </ul>
-    <p><strong>Get-Kommandos</strong> <code>get &lt;Name&gt; &lt;Readingname&gt;</code><br /><br /></p>
-    <ul>
-        <ul>
-            <ul>Aktuell stehen via GET lediglich die Werte der Readings zur Verf&uuml;gung. Eine genaue Auflistung aller m&ouml;glichen Readings folgen unter "Generierte Readings/Events".</ul>
-        </ul>
-    </ul>
-    <p><br /><br /><strong>Attribute</strong></p>
-    <ul>
-        <ul>
-            <ul>
-                <li>disable</li>
-                Optionales Attribut zur Deaktivierung des zyklischen Status-Updates. Ein manuelles Update via statusRequest-Befehl ist dennoch m&ouml;glich.
-            </ul>
-        </ul>
-    </ul>
-    <ul>
-        <ul>
-            <ul>M&ouml;gliche Werte: 0 =&gt; zyklische Status-Updates, 1 =&gt; keine zyklischen Status-Updates.</ul>
-        </ul>
-    </ul>
-    <ul>
-        <ul>
-            <ul>
-                <li>channelGuide</li>
-                Optionales Attribut zur Deaktivierung der zyklischen Updates des TV-Guides, dieses beansprucht je nach Hardware einigen Netzwerkverkehr und Prozessorlast
-            </ul>
-        </ul>
-    </ul>
-    <ul>
-        <ul>
-            <ul>M&ouml;gliche Werte: 0 =&gt; keine zyklischen TV-Guide-Updates, 1 =&gt; zyklische TV-Guide-Updates</ul>
-        </ul>
-    </ul>
-    <ul>
-        <ul>
-            <ul>
-                <li>wakeOnLanMAC</li>
-                MAC Addresse der Netzwerkkarte vom LG TV
-            </ul>
-        </ul>        
-    </ul>    
-    <ul>
-        <ul>
-            <ul>
-                <li>wakeOnLanBroadcast</li>
-                Broadcast Netzwerkadresse - wakeOnLanBroadcast &lt;netzwerk&gt;.255
-            </ul>
-        </ul>
-    </ul>
-    <ul>
-        <ul>
-            <ul>
-                <li>pingPresence</li>
-                M&ouml;gliche Werte: 0 =&gt; presence via ping deaktivert, 1 =&gt; presence via ping aktiviert
-            </ul>
-        </ul>
-    </ul>
-    <ul>
-        <ul>
-            <ul>
-                <li>keepAliveCheckTime</li>
-                Wert in Sekunden - keepAliveCheckTime
- kontrolliert in einer bestimmten Zeit ob noch Daten über die TCP Schnittstelle kommen und verhindert somit FHEM Freezes
-            </ul>
-        </ul>
-    </ul>
-    <ul>
-        <ul>
-            <ul>
-                <li>wakeupCmd</li>
-                Befehl zum Einschalten des LG TV. M&ouml;glich ist ein FHEM Befehl oder Perl in {}.
-            </ul>
-        </ul>        
-    </ul>
-    <p><br /><br /><strong>Generierte Readings/Events:</strong></p>
-    <ul>
-        <ul>
-            <li><strong>3D</strong> - Status des 3D-Wiedergabemodus ("on" =&gt; 3D Wiedergabemodus aktiv, "off" =&gt; 3D Wiedergabemodus nicht aktiv)</li>
-            <li><strong>3DMode</strong> - Anzeigemodus (2d, 2dto3d, side_side_half, line_interleave_half, column_interleave, check_board)</li>
-            <li><strong>channel</strong> - Die Nummer des aktuellen TV-Kanals</li>
-            <li><strong>channelName</strong> - Der Name des aktuellen TV-Kanals</li>
-            <li><strong>channelMedia</strong> - Senderinformation</li>
-            <li><strong>channelCurrentEndTime </strong>- Ende der laufenden Sendung (Beta)</li>
-            <li><strong>channelCurrentStartTime </strong>- Start der laufenden Sendung (Beta)</li>
-            <li><strong>channelCurrentTitle</strong> - Der Name der laufenden Sendung (Beta)</li>
-            <li><strong>channelNextEndTime </strong>- Ende der n&auml;chsten Sendung (Beta)</li>
-            <li><strong>channelNextStartTime </strong>- Start der n&auml;chsten Sendung (Beta)</li>
-            <li><strong>channelNextTitle</strong> - Der Name der n&auml;chsten Sendung (Beta)</li>
-            <li><strong>extInput_&lt;Ger&auml;teeingang</strong>&gt; - Status der Eingangsquelle (connect_true, connect_false)</li>
-            <li><strong>input</strong> - Derzeit aktiver Ger&auml;teeingang</li>
-            <li><strong>lastResponse </strong>- Status der letzten Anfrage (ok, error &lt;Fehlertext&gt;)</li>
-            <li><strong>launchApp</strong> &lt;Anwendung&gt; - Gegenw&auml;rtige aktive Anwendung</li>
-            <li><strong>lgKey</strong> - Der Client-Key, der f&uuml;r die Verbindung verwendet wird</li>
-            <li><strong>mute</strong> on,off - Der aktuelle Stumm-Status ("on" =&gt; Stumm, "off" =&gt; Laut)</li>
-            <li><strong>pairing</strong> paired, unpaired - Der Status des Pairing</li>
-            <li><strong>presence </strong>absent, present - Der aktuelle Power-Status ("present" =&gt; eingeschaltet, "absent" =&gt; ausgeschaltet)</li>
-            <li><strong>state</strong> on, off - Status des Fernsehers (&auml;hnlich presence)</li>
-            <li><strong>volume</strong> - Der aktuelle Lautst&auml;rkepegel -1, 0-100 (-1 invalider Wert)</li>
-        </ul>
-    </ul>
-</ul>
-=end html_DE
-
-=for :application/json;q=META.json 82_LGTV_WebOS.pm
-{
-  "abstract": "Module for Controls LG SmartTVs run with WebOS Operating System",
-  "x_lang": {
-    "de": {
-      "abstract": "Modul zur Steuerung von LG SmartTVs mit WebOS Betriebssystem"
-    }
-  },
-  "keywords": [
-    "fhem-mod-device",
-    "fhem-core",
-    "Multimedia",
-    "TV",
-    "LG"
-  ],
-  "release_status": "stable",
-  "license": "GPL_2",
-  "version": "v3.4.2",
-  "author": [
-    "Marko Oldenburg <fhemdevelopment@cooltux.net>"
-  ],
-  "x_fhem_maintainer": [
-    "CoolTux"
-  ],
-  "x_fhem_maintainer_github": [
-    "LeonGaultier"
-  ],
-  "prereqs": {
-    "runtime": {
-      "requires": {
-        "FHEM": 5.00918799,
-        "perl": 5.016, 
-        "Meta": 1,
-        "JSON": 1,
-        "Date::Parse": 0
-      },
-      "recommends": {
-        "JSON": 0
-      },
-      "suggests": {
-        "Cpanel::JSON::XS": 0,
-        "JSON::XS": 0
-      }
-    }
-  }
-}
-=end :application/json;q=META.json
-
-=cut
+__END__

From 143870e40dfad81812d32e1dad3738895f25f436 Mon Sep 17 00:00:00 2001
From: Marko Oldenburg <fhemdevelopment@cooltux.net>
Date: Wed, 2 Feb 2022 13:33:27 +0100
Subject: [PATCH 02/11] fix Undefined subroutine

fix Undefined subroutine &FHEM::Devices::LGTV::LGTVWebOS::inet_aton

[Ticket: no]
---
 controls_LGTV_WebOS.txt            | 2 +-
 lib/FHEM/Devices/LGTV/LGTVWebOS.pm | 4 ++--
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/controls_LGTV_WebOS.txt b/controls_LGTV_WebOS.txt
index 6a2b046..f4cbc0d 100644
--- a/controls_LGTV_WebOS.txt
+++ b/controls_LGTV_WebOS.txt
@@ -1,2 +1,2 @@
 UPD 2022-02-02_12:25:53 18011 FHEM/82_LGTV_WebOS.pm
-UPD 2022-02-02_12:25:53 54234 lib/FHEM/Devices/LGTV/LGTVWebOS.pm
+UPD 2022-02-02_13:30:55 54238 lib/FHEM/Devices/LGTV/LGTVWebOS.pm
diff --git a/lib/FHEM/Devices/LGTV/LGTVWebOS.pm b/lib/FHEM/Devices/LGTV/LGTVWebOS.pm
index 6d607e6..2b93409 100644
--- a/lib/FHEM/Devices/LGTV/LGTVWebOS.pm
+++ b/lib/FHEM/Devices/LGTV/LGTVWebOS.pm
@@ -1808,8 +1808,8 @@ sub WakeUp_Udp {
         return 1;
     }
 
-    my $ip_addr   = inet_aton($host);
-    my $sock_addr = sockaddr_in( $port, $ip_addr );
+    my $ip_addr   = ::inet_aton($host);
+    my $sock_addr = ::sockaddr_in( $port, $ip_addr );
     $mac_addr =~ s/://xg;
     my $packet =
       pack( 'C6H*', 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, $mac_addr x 16 );

From bd205d8050ff7ef6e876a22179af111da3703b6f Mon Sep 17 00:00:00 2001
From: Marko Oldenburg <fhemdevelopment@cooltux.net>
Date: Wed, 2 Feb 2022 13:41:12 +0100
Subject: [PATCH 03/11] Subject line (try to keep under 50 characters)

Multi-line description of commit,
feel free to be detailed.

[Ticket: X]
---
 controls_LGTV_WebOS.txt            | 2 +-
 lib/FHEM/Devices/LGTV/LGTVWebOS.pm | 2 ++
 2 files changed, 3 insertions(+), 1 deletion(-)

diff --git a/controls_LGTV_WebOS.txt b/controls_LGTV_WebOS.txt
index f4cbc0d..d11c775 100644
--- a/controls_LGTV_WebOS.txt
+++ b/controls_LGTV_WebOS.txt
@@ -1,2 +1,2 @@
 UPD 2022-02-02_12:25:53 18011 FHEM/82_LGTV_WebOS.pm
-UPD 2022-02-02_13:30:55 54238 lib/FHEM/Devices/LGTV/LGTVWebOS.pm
+UPD 2022-02-02_13:40:59 54301 lib/FHEM/Devices/LGTV/LGTVWebOS.pm
diff --git a/lib/FHEM/Devices/LGTV/LGTVWebOS.pm b/lib/FHEM/Devices/LGTV/LGTVWebOS.pm
index 2b93409..8839321 100644
--- a/lib/FHEM/Devices/LGTV/LGTVWebOS.pm
+++ b/lib/FHEM/Devices/LGTV/LGTVWebOS.pm
@@ -263,6 +263,8 @@ sub Define {
 
     $modules{LGTV_WebOS}{defptr}{ $hash->{HOST} } = $hash;
 
+    readingsSingleUpdate( $hash, 'state', 'Initialized', 1 );
+
     if ($init_done) {
         TimerStatusRequest($hash);
     }

From 52208b2832a268b058cff9a42da3df24b1eef777 Mon Sep 17 00:00:00 2001
From: Marko Oldenburg <fhemdevelopment@cooltux.net>
Date: Wed, 2 Feb 2022 13:42:10 +0100
Subject: [PATCH 04/11] Subject line (try to keep under 50 characters)

Multi-line description of commit,
feel free to be detailed.

[Ticket: X]
---
 controls_LGTV_WebOS.txt            | 2 +-
 lib/FHEM/Devices/LGTV/LGTVWebOS.pm | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/controls_LGTV_WebOS.txt b/controls_LGTV_WebOS.txt
index d11c775..182a018 100644
--- a/controls_LGTV_WebOS.txt
+++ b/controls_LGTV_WebOS.txt
@@ -1,2 +1,2 @@
 UPD 2022-02-02_12:25:53 18011 FHEM/82_LGTV_WebOS.pm
-UPD 2022-02-02_13:40:59 54301 lib/FHEM/Devices/LGTV/LGTVWebOS.pm
+UPD 2022-02-02_13:42:01 54303 lib/FHEM/Devices/LGTV/LGTVWebOS.pm
diff --git a/lib/FHEM/Devices/LGTV/LGTVWebOS.pm b/lib/FHEM/Devices/LGTV/LGTVWebOS.pm
index 8839321..b7aad86 100644
--- a/lib/FHEM/Devices/LGTV/LGTVWebOS.pm
+++ b/lib/FHEM/Devices/LGTV/LGTVWebOS.pm
@@ -263,7 +263,7 @@ sub Define {
 
     $modules{LGTV_WebOS}{defptr}{ $hash->{HOST} } = $hash;
 
-    readingsSingleUpdate( $hash, 'state', 'Initialized', 1 );
+    ::readingsSingleUpdate( $hash, 'state', 'Initialized', 1 );
 
     if ($init_done) {
         TimerStatusRequest($hash);

From cd4015330e48a67ce13f6c43206816bd8c967398 Mon Sep 17 00:00:00 2001
From: Marko Oldenburg <fhemdevelopment@cooltux.net>
Date: Wed, 2 Feb 2022 13:49:30 +0100
Subject: [PATCH 05/11] Subject line (try to keep under 50 characters)

Multi-line description of commit,
feel free to be detailed.

[Ticket: X]
---
 controls_LGTV_WebOS.txt            | 2 +-
 lib/FHEM/Devices/LGTV/LGTVWebOS.pm | 1 +
 2 files changed, 2 insertions(+), 1 deletion(-)

diff --git a/controls_LGTV_WebOS.txt b/controls_LGTV_WebOS.txt
index 182a018..7c2b19e 100644
--- a/controls_LGTV_WebOS.txt
+++ b/controls_LGTV_WebOS.txt
@@ -1,2 +1,2 @@
 UPD 2022-02-02_12:25:53 18011 FHEM/82_LGTV_WebOS.pm
-UPD 2022-02-02_13:42:01 54303 lib/FHEM/Devices/LGTV/LGTVWebOS.pm
+UPD 2022-02-02_13:49:22 54363 lib/FHEM/Devices/LGTV/LGTVWebOS.pm
diff --git a/lib/FHEM/Devices/LGTV/LGTVWebOS.pm b/lib/FHEM/Devices/LGTV/LGTVWebOS.pm
index b7aad86..1594a0e 100644
--- a/lib/FHEM/Devices/LGTV/LGTVWebOS.pm
+++ b/lib/FHEM/Devices/LGTV/LGTVWebOS.pm
@@ -383,6 +383,7 @@ sub TimerStatusRequest {
 
     }
     else {
+        ::readingsSingleUpdate( $hash, 'state', 'off', 1 );
 
         Presence($hash)
           if ( ::AttrVal( $name, 'pingPresence', 0 ) == 1 );

From 302ad14dda2fdc8634d0eee170df16652ec5a4ae Mon Sep 17 00:00:00 2001
From: Marko Oldenburg <fhemdevelopment@cooltux.net>
Date: Wed, 2 Feb 2022 14:31:46 +0100
Subject: [PATCH 06/11] add try/catch for error handling

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

[Ticket: no]
---
 FHEM/82_LGTV_WebOS.pm              |  2 +-
 controls_LGTV_WebOS.txt            |  4 +--
 lib/FHEM/Devices/LGTV/LGTVWebOS.pm | 47 ++++++++++++++++++++++++------
 3 files changed, 41 insertions(+), 12 deletions(-)

diff --git a/FHEM/82_LGTV_WebOS.pm b/FHEM/82_LGTV_WebOS.pm
index f01629f..8aa8039 100644
--- a/FHEM/82_LGTV_WebOS.pm
+++ b/FHEM/82_LGTV_WebOS.pm
@@ -330,7 +330,7 @@ use FHEM::Meta;
   ],
   "release_status": "stable",
   "license": "GPL_2",
-  "version": "v3.4.2",
+  "version": "v3.6.0",
   "author": [
     "Marko Oldenburg <fhemdevelopment@cooltux.net>"
   ],
diff --git a/controls_LGTV_WebOS.txt b/controls_LGTV_WebOS.txt
index 7c2b19e..098c778 100644
--- a/controls_LGTV_WebOS.txt
+++ b/controls_LGTV_WebOS.txt
@@ -1,2 +1,2 @@
-UPD 2022-02-02_12:25:53 18011 FHEM/82_LGTV_WebOS.pm
-UPD 2022-02-02_13:49:22 54363 lib/FHEM/Devices/LGTV/LGTVWebOS.pm
+UPD 2022-02-02_14:30:51 18011 FHEM/82_LGTV_WebOS.pm
+UPD 2022-02-02_14:30:52 55048 lib/FHEM/Devices/LGTV/LGTVWebOS.pm
diff --git a/lib/FHEM/Devices/LGTV/LGTVWebOS.pm b/lib/FHEM/Devices/LGTV/LGTVWebOS.pm
index 1594a0e..64e622d 100644
--- a/lib/FHEM/Devices/LGTV/LGTVWebOS.pm
+++ b/lib/FHEM/Devices/LGTV/LGTVWebOS.pm
@@ -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" );
 

From 8e49a87b13ca4b1212c556f56f25bbec5a8fdff0 Mon Sep 17 00:00:00 2001
From: Marko Oldenburg <fhemdevelopment@cooltux.net>
Date: Wed, 2 Feb 2022 15:28:36 +0100
Subject: [PATCH 07/11] unused code removed

unused code removed and cleaned parts of code

[Ticket: no]
---
 controls_LGTV_WebOS.txt            |  2 +-
 lib/FHEM/Devices/LGTV/LGTVWebOS.pm | 12 ++++++------
 2 files changed, 7 insertions(+), 7 deletions(-)

diff --git a/controls_LGTV_WebOS.txt b/controls_LGTV_WebOS.txt
index 098c778..0c0a69f 100644
--- a/controls_LGTV_WebOS.txt
+++ b/controls_LGTV_WebOS.txt
@@ -1,2 +1,2 @@
 UPD 2022-02-02_14:30:51 18011 FHEM/82_LGTV_WebOS.pm
-UPD 2022-02-02_14:30:52 55048 lib/FHEM/Devices/LGTV/LGTVWebOS.pm
+UPD 2022-02-02_15:23:47 54856 lib/FHEM/Devices/LGTV/LGTVWebOS.pm
diff --git a/lib/FHEM/Devices/LGTV/LGTVWebOS.pm b/lib/FHEM/Devices/LGTV/LGTVWebOS.pm
index 64e622d..e1e9033 100644
--- a/lib/FHEM/Devices/LGTV/LGTVWebOS.pm
+++ b/lib/FHEM/Devices/LGTV/LGTVWebOS.pm
@@ -65,14 +65,14 @@ sub Initialize {
     my $hash = shift;
 
     # Provider
-    $hash->{ReadFn}  = \&FHEM::Devices::LGTV::LGTVWebOS::Read;
-    $hash->{WriteFn} = \&FHEM::Devices::LGTV::LGTVWebOS::Write;
+    $hash->{ReadFn}  = \&Read;
+    $hash->{WriteFn} = \&Write;
 
     # Consumer
-    $hash->{SetFn}   = \&FHEM::Devices::LGTV::LGTVWebOS::Set;
-    $hash->{DefFn}   = \&FHEM::Devices::LGTV::LGTVWebOS::Define;
-    $hash->{UndefFn} = \&FHEM::Devices::LGTV::LGTVWebOS::Undef;
-    $hash->{AttrFn}  = \&FHEM::Devices::LGTV::LGTVWebOS::Attr;
+    $hash->{SetFn}   = \&Set;
+    $hash->{DefFn}   = \&Define;
+    $hash->{UndefFn} = \&Undef;
+    $hash->{AttrFn}  = \&Attr;
     $hash->{AttrList} =
         "disable:1 "
       . "channelGuide:1 "

From 603a5e02b729e6ebe7663b42ee5a0b5709edc37b Mon Sep 17 00:00:00 2001
From: Marko Oldenburg <fhemdevelopment@cooltux.net>
Date: Wed, 2 Feb 2022 15:44:13 +0100
Subject: [PATCH 08/11] replaced Initialize fn to become version information
 from Meta modul

[Ticket: no]
---
 FHEM/82_LGTV_WebOS.pm              | 35 ++++++++++++++++++++++++++++++
 controls_LGTV_WebOS.txt            |  4 ++--
 lib/FHEM/Devices/LGTV/LGTVWebOS.pm | 32 +++------------------------
 3 files changed, 40 insertions(+), 31 deletions(-)

diff --git a/FHEM/82_LGTV_WebOS.pm b/FHEM/82_LGTV_WebOS.pm
index 8aa8039..cfe72c5 100644
--- a/FHEM/82_LGTV_WebOS.pm
+++ b/FHEM/82_LGTV_WebOS.pm
@@ -37,6 +37,41 @@ require FHEM::Devices::LGTV::LGTVWebOS;
 
 use FHEM::Meta;
 
+use GPUtils qw(GP_Import);
+
+#-- Run before package compilation
+BEGIN {
+    #-- Export to main context with different name
+    GP_Import(qw( readingFnAttributes));
+}
+
+sub ::LGTV_WebOS_Initialize { goto &Initialize }
+
+sub Initialize {
+    my $hash = shift;
+
+    # Provider
+    $hash->{ReadFn}  = \&FHEM::Devices::LGTV::LGTVWebOS::Read;
+    $hash->{WriteFn} = \&FHEM::Devices::LGTV::LGTVWebOS::Write;
+
+    # Consumer
+    $hash->{SetFn}   = \&FHEM::Devices::LGTV::LGTVWebOS::Set;
+    $hash->{DefFn}   = \&FHEM::Devices::LGTV::LGTVWebOS::Define;
+    $hash->{UndefFn} = \&FHEM::Devices::LGTV::LGTVWebOS::Undef;
+    $hash->{AttrFn}  = \&FHEM::Devices::LGTV::LGTVWebOS::Attr;
+    $hash->{AttrList} =
+        "disable:1 "
+      . "channelGuide:1 "
+      . "pingPresence:1 "
+      . "wakeOnLanMAC "
+      . "wakeOnLanBroadcast "
+      . "wakeupCmd "
+      . "keepAliveCheckTime "
+      . $readingFnAttributes;
+
+    return FHEM::Meta::InitMod( __FILE__, $hash );
+}
+
 1;
 
 =pod
diff --git a/controls_LGTV_WebOS.txt b/controls_LGTV_WebOS.txt
index 0c0a69f..10386f1 100644
--- a/controls_LGTV_WebOS.txt
+++ b/controls_LGTV_WebOS.txt
@@ -1,2 +1,2 @@
-UPD 2022-02-02_14:30:51 18011 FHEM/82_LGTV_WebOS.pm
-UPD 2022-02-02_15:23:47 54856 lib/FHEM/Devices/LGTV/LGTVWebOS.pm
+UPD 2022-02-02_15:41:28 18966 FHEM/82_LGTV_WebOS.pm
+UPD 2022-02-02_15:41:43 54304 lib/FHEM/Devices/LGTV/LGTVWebOS.pm
diff --git a/lib/FHEM/Devices/LGTV/LGTVWebOS.pm b/lib/FHEM/Devices/LGTV/LGTVWebOS.pm
index e1e9033..79ac635 100644
--- a/lib/FHEM/Devices/LGTV/LGTVWebOS.pm
+++ b/lib/FHEM/Devices/LGTV/LGTVWebOS.pm
@@ -50,7 +50,7 @@ use GPUtils qw(GP_Import);
 BEGIN {
     #-- Export to main context with different name
     GP_Import(
-        qw( readingFnAttributes
+        qw(
           modules
           init_done
           selectlist
@@ -59,33 +59,6 @@ BEGIN {
     );
 }
 
-sub ::LGTV_WebOS_Initialize { goto &Initialize }
-
-sub Initialize {
-    my $hash = shift;
-
-    # Provider
-    $hash->{ReadFn}  = \&Read;
-    $hash->{WriteFn} = \&Write;
-
-    # Consumer
-    $hash->{SetFn}   = \&Set;
-    $hash->{DefFn}   = \&Define;
-    $hash->{UndefFn} = \&Undef;
-    $hash->{AttrFn}  = \&Attr;
-    $hash->{AttrList} =
-        "disable:1 "
-      . "channelGuide:1 "
-      . "pingPresence:1 "
-      . "wakeOnLanMAC "
-      . "wakeOnLanBroadcast "
-      . "wakeupCmd "
-      . "keepAliveCheckTime "
-      . $readingFnAttributes;
-
-    return FHEM::Meta::InitMod( __FILE__, $hash );
-}
-
 my $missingModul = "";
 
 eval { require MIME::Base64;     1 } or $missingModul .= 'MIME::Base64 ';
@@ -390,7 +363,8 @@ sub TimerStatusRequest {
 
     }
     else {
-        ::readingsSingleUpdate( $hash, 'state', 'off', 1 );
+        ::readingsSingleUpdate( $hash, 'state', 'off', 1 )
+          if ( ::ReadingsVal( $name, 'state', 'off' ) ne 'off' );
 
         Presence($hash)
           if ( ::AttrVal( $name, 'pingPresence', 0 ) == 1 );

From a3c57d1b54be5885e98012078d3003e1a0db2cc9 Mon Sep 17 00:00:00 2001
From: Marko Oldenburg <fhemdevelopment@cooltux.net>
Date: Wed, 2 Feb 2022 15:53:43 +0100
Subject: [PATCH 09/11] Subject line (try to keep under 50 characters)

Multi-line description of commit,
feel free to be detailed.

[Ticket: X]
---
 FHEM/82_LGTV_WebOS.pm   | 4 ++--
 controls_LGTV_WebOS.txt | 4 ++--
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/FHEM/82_LGTV_WebOS.pm b/FHEM/82_LGTV_WebOS.pm
index cfe72c5..a1d8104 100644
--- a/FHEM/82_LGTV_WebOS.pm
+++ b/FHEM/82_LGTV_WebOS.pm
@@ -74,6 +74,8 @@ sub Initialize {
 
 1;
 
+__END__
+
 =pod
 =item device
 =item summary       Controls LG SmartTVs run with WebOS Operating System
@@ -397,5 +399,3 @@ sub Initialize {
 =end :application/json;q=META.json
 
 =cut
-
-__END__
diff --git a/controls_LGTV_WebOS.txt b/controls_LGTV_WebOS.txt
index 10386f1..4d06f7c 100644
--- a/controls_LGTV_WebOS.txt
+++ b/controls_LGTV_WebOS.txt
@@ -1,2 +1,2 @@
-UPD 2022-02-02_15:41:28 18966 FHEM/82_LGTV_WebOS.pm
-UPD 2022-02-02_15:41:43 54304 lib/FHEM/Devices/LGTV/LGTVWebOS.pm
+UPD 2022-02-02_15:53:36 18966 FHEM/82_LGTV_WebOS.pm
+UPD 2022-02-02_15:53:36 54304 lib/FHEM/Devices/LGTV/LGTVWebOS.pm

From 7171c432c71ba532eb3924b87aa3638fedc3e733 Mon Sep 17 00:00:00 2001
From: Marko Oldenburg <fhemdevelopment@cooltux.net>
Date: Thu, 3 Feb 2022 09:07:38 +0100
Subject: [PATCH 10/11] remove double use directive

[Ticket: no]
---
 controls_LGTV_WebOS.txt            | 2 +-
 lib/FHEM/Devices/LGTV/LGTVWebOS.pm | 2 --
 2 files changed, 1 insertion(+), 3 deletions(-)

diff --git a/controls_LGTV_WebOS.txt b/controls_LGTV_WebOS.txt
index 4d06f7c..44be0c3 100644
--- a/controls_LGTV_WebOS.txt
+++ b/controls_LGTV_WebOS.txt
@@ -1,2 +1,2 @@
 UPD 2022-02-02_15:53:36 18966 FHEM/82_LGTV_WebOS.pm
-UPD 2022-02-02_15:53:36 54304 lib/FHEM/Devices/LGTV/LGTVWebOS.pm
+UPD 2022-02-03_09:05:40 54276 lib/FHEM/Devices/LGTV/LGTVWebOS.pm
diff --git a/lib/FHEM/Devices/LGTV/LGTVWebOS.pm b/lib/FHEM/Devices/LGTV/LGTVWebOS.pm
index 79ac635..6cf38be 100644
--- a/lib/FHEM/Devices/LGTV/LGTVWebOS.pm
+++ b/lib/FHEM/Devices/LGTV/LGTVWebOS.pm
@@ -41,8 +41,6 @@ use Try::Tiny;
 use autodie qw /:io/;
 ##
 
-use GPUtils qw(GP_Import);
-
 use FHEM::Meta;
 use GPUtils qw(GP_Import);
 

From d96a6c1214a5b3a11bbc8818749c4d56bb7fdb56 Mon Sep 17 00:00:00 2001
From: Marko Oldenburg <fhemdevelopment@cooltux.net>
Date: Tue, 8 Feb 2022 07:18:13 +0100
Subject: [PATCH 11/11] fix Undefined subroutine str2time

Undefined subroutine &FHEM::Devices::LGTV::LGTVWebOS::str2time
called at lib/FHEM/Devices/LGTV/LGTVWebOS.pm
line 1042.

[Ticket: no]
---
 FHEM/82_LGTV_WebOS.pm              | 2 +-
 controls_LGTV_WebOS.txt            | 4 ++--
 lib/FHEM/Devices/LGTV/LGTVWebOS.pm | 2 +-
 3 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/FHEM/82_LGTV_WebOS.pm b/FHEM/82_LGTV_WebOS.pm
index a1d8104..d2603b5 100644
--- a/FHEM/82_LGTV_WebOS.pm
+++ b/FHEM/82_LGTV_WebOS.pm
@@ -367,7 +367,7 @@ __END__
   ],
   "release_status": "stable",
   "license": "GPL_2",
-  "version": "v3.6.0",
+  "version": "v3.6.1",
   "author": [
     "Marko Oldenburg <fhemdevelopment@cooltux.net>"
   ],
diff --git a/controls_LGTV_WebOS.txt b/controls_LGTV_WebOS.txt
index 44be0c3..e0a8534 100644
--- a/controls_LGTV_WebOS.txt
+++ b/controls_LGTV_WebOS.txt
@@ -1,2 +1,2 @@
-UPD 2022-02-02_15:53:36 18966 FHEM/82_LGTV_WebOS.pm
-UPD 2022-02-03_09:05:40 54276 lib/FHEM/Devices/LGTV/LGTVWebOS.pm
+UPD 2022-02-08_07:16:43 18966 FHEM/82_LGTV_WebOS.pm
+UPD 2022-02-08_07:16:48 54278 lib/FHEM/Devices/LGTV/LGTVWebOS.pm
diff --git a/lib/FHEM/Devices/LGTV/LGTVWebOS.pm b/lib/FHEM/Devices/LGTV/LGTVWebOS.pm
index 6cf38be..5599248 100644
--- a/lib/FHEM/Devices/LGTV/LGTVWebOS.pm
+++ b/lib/FHEM/Devices/LGTV/LGTVWebOS.pm
@@ -1040,7 +1040,7 @@ sub WriteProgramlistReadings {
     for my $programList ( @{ $decode_json->{payload}{programList} } ) {
 
         if (
-            str2time( FormartStartEndTime( $programList->{localEndTime} ) ) >
+            ::str2time( FormartStartEndTime( $programList->{localEndTime} ) ) >
             time() )
         {
             if ( $count < 1 ) {