make all modules perlcritic level3 conform

This commit is contained in:
2021-12-10 20:24:31 +01:00
parent f1418ca195
commit 6b75e5c9dc
5 changed files with 128 additions and 99 deletions

View File

@ -1,6 +1,6 @@
###############################################################################
#
# Developed with Kate
# Developed with VSCodium
#
# (c) 2016-2021 Copyright: Marko Oldenburg (fhemdevelopment at cooltux dot net)
# All rights reserved
@ -43,6 +43,14 @@ use warnings;
use FHEM::Meta;
require FHEM::Devices::Nuki::Bridge;
use GPUtils qw(GP_Import);
BEGIN {
# Import from main context
GP_Import(qw( readingFnAttributes ));
}
sub ::NUKIBridge_Initialize { goto &Initialize }
sub Initialize {
@ -68,7 +76,7 @@ sub Initialize {
. 'webhookFWinstance:'
. $webhookFWinstance . ' '
. 'webhookHttpHostname '
. $::readingFnAttributes;
. $readingFnAttributes;
return FHEM::Meta::InitMod( __FILE__, $hash );
}

View File

@ -1,6 +1,6 @@
###############################################################################
#
# Developed with Kate
# Developed with VSCodium
#
# (c) 2016-2021 Copyright: Marko Oldenburg (fhemdevelopment at cooltux dot net)
# All rights reserved
@ -32,11 +32,19 @@ use warnings;
use FHEM::Meta;
require FHEM::Devices::Nuki::Device;
use GPUtils qw(GP_Import);
BEGIN {
# Import from main context
GP_Import(qw( readingFnAttributes ));
}
main::LoadModule('NUKIBridge');
sub ::NUKIDevice_Initialize { goto &Initialize }
sub Initialize($) {
sub Initialize {
my ($hash) = @_;
$hash->{Match} = '^{.*}$';
@ -52,7 +60,7 @@ sub Initialize($) {
'IODev '
. 'model:smartlock,opener,smartdoor,smartlock3 '
. 'disable:1 '
. $::readingFnAttributes;
. $readingFnAttributes;
return FHEM::Meta::InitMod( __FILE__, $hash );
}