make tidy

lemonldap-ng-common/lib/Lemonldap/NG/Common/CGI/SOAPServer.pm

@@ -63,7 +63,7 @@ sub handle {
                                   : ($1)
                             : $_
                           ) => $ENV{$_}
-                      } keys %ENV
+                    } keys %ENV
                 ),
                 $content,
             )

lemonldap-ng-manager/lib/Lemonldap/NG/Manager.pm

@@ -133,7 +133,7 @@ sub menu {
     my $self = shift;
     require Lemonldap::NG::Manager::Downloader;
     return
-        '<ul class="simpleTree">' 
+        '<ul class="simpleTree">'
       . $self->li( 'root', 'root' )
       . $self->span(
         id   => 'root',

lemonldap-ng-manager/lib/Lemonldap/NG/Manager/Cli.pm

@@ -102,8 +102,8 @@ sub parseCmd {
 
             # define action
             $self->{action} = {
-                type   => "help",
-                  save => 0,
+                type => "help",
+                save => 0,
             };
 
         }
@@ -529,8 +529,8 @@ sub parseCmd {
 
             # define action
             $self->{action} = {
-                type   => "get-exported-vars",
-                  save => 0
+                type => "get-exported-vars",
+                save => 0
             };
         }
 
@@ -700,8 +700,8 @@ sub parseCmd {
 
             # define action
             $self->{action} = {
-                type   => "vhost-list",
-                  save => 0
+                type => "vhost-list",
+                save => 0
             };
         }
 
@@ -713,8 +713,8 @@ sub parseCmd {
 
             # define action
             $self->{action} = {
-                type   => "global-storage",
-                  save => 0
+                type => "global-storage",
+                save => 0
             };
         }
 
@@ -762,8 +762,8 @@ sub parseCmd {
 
             # define action
             $self->{action} = {
-                type   => "reload-urls",
-                  save => 0
+                type => "reload-urls",
+                save => 0
             };
         }
 

lemonldap-ng-manager/lib/Lemonldap/NG/Manager/Sessions.pm

@@ -567,7 +567,7 @@ sub session {
         foreach ( keys %session ) {
             next if $_ !~ /^notification_(.+)/;
             $res .=
-                '<li><strong>' 
+                '<li><strong>'
               . $1
               . '</strong>: '
               . $session{$_} . " ("

lemonldap-ng-portal/lib/Lemonldap/NG/Portal/AuthCAS.pm

@@ -71,7 +71,7 @@ sub extractFormInfo {
 
         foreach ( keys %{ $self->{portalHiddenFormValues} } ) {
             $local_url .=
-                ( $local_url =~ /\?/ ? '&' : '?' ) 
+                ( $local_url =~ /\?/ ? '&' : '?' )
               . $_ . '='
               . uri_escape( $self->{portalHiddenFormValues}->{$_} );
         }

lemonldap-ng-portal/lib/Lemonldap/NG/Portal/OpenID/SREG.pm

@@ -193,7 +193,7 @@ sub sregHook {
         foreach my $k (@opt) {
             utf8::decode( $msg{opt}->{$k} );
             $self->{_openIdTrustExtMsg} .=
-                "<tr class=\"optional\">\n" 
+                "<tr class=\"optional\">\n"
               . "<td>\n"
               . "<input type=\"checkbox\" value=\"OK\""
               . ( $ag{$k} ? 'checked="checked"' : '' )

lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Simple.pm

@@ -750,9 +750,9 @@ sub buildHiddenForm {
 
         # Build hidden input HTML code
         $val .=
-            '<input type="hidden" name="' 
-          . $_ 
-          . '" id="' 
+            '<input type="hidden" name="'
+          . $_
+          . '" id="'
           . $_
           . '" value="'
           . $self->{portalHiddenFormValues}->{$_} . '" />';
@@ -2078,6 +2078,7 @@ sub setLocalGroups {
         $self->{sessionInfo}->{groups} .= $self->{multiValuesSeparator} . $_
           if ( $self->safe->reval( $self->{groups}->{$_} ) );
     }
+
     # Clear values separator at the beginning
     if ( $self->{sessionInfo}->{groups} ) {
         $self->{sessionInfo}->{groups} =~

lemonldap-ng-portal/t/01-Lemonldap-NG-Portal-Simple.t

@@ -104,8 +104,14 @@ $p->{groups} = {
 };
 
 ok( $p->process > 0, 'User OK' );
-ok( $p->{sessionInfo}->{macro4} eq "foo", "Macros computed in alphanumeric order" );
-ok( $p->{sessionInfo}->{groups} =~ /\bgroup4\b/, "Groups computed in alphanumeric order" );
+ok(
+    $p->{sessionInfo}->{macro4} eq "foo",
+    "Macros computed in alphanumeric order"
+);
+ok(
+    $p->{sessionInfo}->{groups} =~ /\bgroup4\b/,
+    "Groups computed in alphanumeric order"
+);
 
 # Cookie test
 ok( $p->{cookie}->[0]->value eq '1', 'Cookie value' );