use strict

lemonldap-ng-common/lib/Lemonldap/NG/Common/Apache/Session/Store.pm

@@ -1,7 +1,9 @@
 
 package Lemonldap::NG::Common::Apache::Session::Store;
 
-our $VERSION = '2.0.0';
+use strict;
+
+our $VERSION = '2.0.10';
 
 sub new {
     my $class = shift;

lemonldap-ng-common/lib/Lemonldap/NG/Common/EmailTransport.pm

@@ -1,11 +1,12 @@
 package Lemonldap::NG::Common::EmailTransport;
 
+use strict;
 use Email::Sender::Transport::SMTP qw();
 use MIME::Entity;
 use Email::Sender::Simple qw(sendmail);
 use Email::Date::Format qw(email_date);
 
-our $VERSION = '2.0.9';
+our $VERSION = '2.0.10';
 
 sub new {
     my ( $class, $conf ) = @_;

lemonldap-ng-common/lib/Lemonldap/NG/Common/IPv6.pm

@@ -1,8 +1,10 @@
 package Lemonldap::NG::Common::IPv6;
 
+use strict;
 use base 'Exporter';
 
-@EXPORT = qw(&isIPv6 &net6 &expand6);
+our $VERSION = '2.0.10';
+our @EXPORT = qw(&isIPv6 &net6 &expand6);
 
 sub isIPv6 {
     my ($ip) = @_;
@@ -15,7 +17,7 @@ sub net6 {
     # Convert to binary
     my $b = join '',
       map { unpack( 'B*', pack( 'H*', $_ ) ) } split( ':', expand6($ip) );
-    $net = substr $b, 0, $bits;
+    my $net = substr $b, 0, $bits;
     $net .= '0' x ( 128 - length($net) );
     $net = unpack( 'H*', pack( 'B*', $net ) );
     $net = join( ':', ( unpack "a4" x 8, $net ) );
@@ -24,6 +26,7 @@ sub net6 {
 }
 
 sub expand6 {
+    my @arr;
     my @_parts = ( $_[0] =~ /([0-9A-Fa-f]+)/g );
     my $nparts = scalar @_parts;
     if ( $nparts != 8 ) {

lemonldap-ng-common/lib/Lemonldap/NG/Common/PSGI.pm

@@ -1,12 +1,12 @@
 package Lemonldap::NG::Common::PSGI;
 
-use 5.10.0;
+use strict;
 use Mouse;
 use JSON;
 use Lemonldap::NG::Common::PSGI::Constants;
 use Lemonldap::NG::Common::PSGI::Request;
 
-our $VERSION = '2.0.9';
+our $VERSION = '2.0.10';
 
 our $_json = JSON->new->allow_nonref;
 

lemonldap-ng-common/lib/Lemonldap/NG/Common/PSGI/Cli/Lib.pm

@@ -1,10 +1,11 @@
 package Lemonldap::NG::Common::PSGI::Cli::Lib;
 
+use strict;
 use JSON;
 use Mouse;
 use Lemonldap::NG::Common::PSGI;
 
-our $VERSION = '2.0.8';
+our $VERSION = '2.0.10';
 
 has iniFile => ( is => 'ro', isa => 'Str' );
 

lemonldap-ng-common/lib/Lemonldap/NG/Common/PSGI/Request.pm

@@ -1,13 +1,12 @@
 package Lemonldap::NG::Common::PSGI::Request;
 
 use strict;
-use 5.14.0;
 use Mouse;
 use JSON;
 use Plack::Request;
 use URI::Escape;
 
-our $VERSION = '2.0.8';
+our $VERSION = '2.0.10';
 
 our @ISA = ('Plack::Request');
 

lemonldap-ng-common/lib/Lemonldap/NG/Common/PSGI/Router.pm

@@ -1,10 +1,11 @@
 package Lemonldap::NG::Common::PSGI::Router;
 
+use strict;
 use Mouse;
 use Lemonldap::NG::Common::PSGI;
 use Lemonldap::NG::Common::PSGI::Constants;
 
-our $VERSION = '2.0.8';
+our $VERSION = '2.0.10';
 
 extends 'Lemonldap::NG::Common::PSGI';
 

lemonldap-ng-common/lib/Lemonldap/NG/Common/PSGI/SOAPService.pm

@@ -5,9 +5,11 @@
 # SOAP wrapper used to restrict exported functions
 package Lemonldap::NG::Common::PSGI::SOAPService;
 
+use strict;
+
 require SOAP::Lite;
 
-our $VERSION = '2.0.6';
+our $VERSION = '2.0.10';
 
 ## @cmethod Lemonldap::NG::Common::PSGI::SOAPService new(object obj,string @func)
 # Constructor
@@ -28,7 +30,7 @@ sub new {
 # @return data provided by the exported function
 sub AUTOLOAD {
     my $self = shift;
-    $AUTOLOAD =~ s/.*:://;
+    our $AUTOLOAD =~ s/.*:://;
     if ( grep { $_ eq $AUTOLOAD } @{ $self->{func} } ) {
         my $tmp = $self->{obj}->$AUTOLOAD( $self->{req}, @_ );
         unless ( ref($tmp) and ref($tmp) =~ /^SOAP/ ) {

lemonldap-ng-common/lib/Lemonldap/NG/Common/Session.pm

@@ -6,10 +6,11 @@
 
 package Lemonldap::NG::Common::Session;
 
-our $VERSION = '2.0.9';
-
+use strict;
 use Lemonldap::NG::Common::Apache::Session;
 
+our $VERSION = '2.0.10';
+
 # Workaround for another ModPerl/Mouse issue...
 BEGIN {
     require Mouse;

lemonldap-ng-common/lib/Lemonldap/NG/Common/UserAgent.pm

@@ -1,8 +1,9 @@
 package Lemonldap::NG::Common::UserAgent;
 
+use strict;
 use LWP::UserAgent;
 
-our $VERSION = '2.0.0';
+our $VERSION = '2.0.10';
 
 sub new {
     my ( $class, $conf ) = @_;

lemonldap-ng-common/lib/Lemonldap/NG/Common/Util.pm

@@ -1,12 +1,11 @@
 package Lemonldap::NG::Common::Util;
 require Exporter;
 
+use strict;
 use Digest::MD5;
 use MIME::Base64 qw/encode_base64/;
 
-use 5.10.0;
-
-our $VERSION   = '2.0.9';
+our $VERSION   = '2.0.10';
 our @ISA       = qw(Exporter);
 our @EXPORT_OK = qw(getSameSite getPSessionID genId2F);
 

lemonldap-ng-handler/lib/Lemonldap/NG/Handler/PSGI.pm

@@ -3,13 +3,13 @@
 # See https://lemonldap-ng.org/documentation/latest/handlerarch
 package Lemonldap::NG::Handler::PSGI;
 
-use 5.10.0;
+use strict;
 use Mouse;
 use Lemonldap::NG::Handler::PSGI::Main;
 
 extends 'Lemonldap::NG::Handler::Lib::PSGI', 'Lemonldap::NG::Common::PSGI';
 
-our $VERSION = '2.0.3';
+our $VERSION = '2.0.10';
 
 sub init {
     my ( $self, $args ) = @_;