tidy

lemonldap-ng-handler/lib/Lemonldap/NG/Handler/Lib/ServiceToken.pm

@@ -14,8 +14,8 @@ sub fetchId {
     # Decrypt token
     my $s = $class->tsv->{cipher}->decrypt($token);
 
-    # Token format:
-    # time:_session_id:vhost1:vhost2:serviceHeader1=value1:serviceHeader2=value2,...
+# Token format:
+# time:_session_id:vhost1:vhost2:serviceHeader1=value1:serviceHeader2=value2,...
     my ( $t, $_session_id, @vhosts ) = split /:/, $s;
 
     # Looking for service headers

lemonldap-ng-handler/t/65-Lemonldap-NG-Handler-PSGI-ServiceToken.t

@@ -33,10 +33,12 @@ init(
 
 my $res;
 my $crypt = Lemonldap::NG::Common::Crypto->new('qwertyui');
-my $token =
-  $crypt->encrypt( join ':', time, $sessionId, 'test1.example.com',
-    'XFromVH=app1-auth.example.com','serviceHeader1=service_Header1',
-    'test2.example.com', '*.example.com' );
+my $token = $crypt->encrypt(
+    join ':',                        time,
+    $sessionId,                      'test1.example.com',
+    'XFromVH=app1-auth.example.com', 'serviceHeader1=service_Header1',
+    'test2.example.com',             '*.example.com'
+);
 
 ok(
     $res = $client->_get(
@@ -49,10 +51,12 @@ ok(
 ok( $res->[0] == 200, 'Code is 200' ) or explain( $res->[0], 200 );
 count(2);
 
-my @headers = grep { /service/ } @{$res->[1]};
-my @values = grep { /\.example\.com/ } @{$res->[1]};
-ok( @headers == 4, 'Found 4 service headers' ) or print STDERR Data::Dumper::Dumper($res->[1]);
-ok( @values == 2, 'Found 2 service header values' ) or print STDERR Data::Dumper::Dumper($res->[1]);
+my @headers = grep { /service/ } @{ $res->[1] };
+my @values  = grep { /\.example\.com/ } @{ $res->[1] };
+ok( @headers == 4, 'Found 4 service headers' )
+  or print STDERR Data::Dumper::Dumper( $res->[1] );
+ok( @values == 2, 'Found 2 service header values' )
+  or print STDERR Data::Dumper::Dumper( $res->[1] );
 count(2);
 
 diag 'Waiting';
@@ -69,10 +73,12 @@ ok(
 ok( $res->[0] == 200, 'Code is 200' ) or explain( $res->[0], 200 );
 count(2);
 
-my @headers = grep { /service/ } @{$res->[1]};
-my @values = grep { /\.example\.com/ } @{$res->[1]};
-ok( @headers == 4, 'Found 4 service headers' ) or print STDERR Data::Dumper::Dumper($res->[1]);
-ok( @values == 2, 'Found 2 service header values' ) or print STDERR Data::Dumper::Dumper($res->[1]);
+my @headers = grep { /service/ } @{ $res->[1] };
+my @values  = grep { /\.example\.com/ } @{ $res->[1] };
+ok( @headers == 4, 'Found 4 service headers' )
+  or print STDERR Data::Dumper::Dumper( $res->[1] );
+ok( @values == 2, 'Found 2 service header values' )
+  or print STDERR Data::Dumper::Dumper( $res->[1] );
 count(2);
 
 diag 'Waiting';
@@ -89,8 +95,9 @@ ok(
 ok( $res->[0] == 302, 'Code is 200' ) or explain( $res->[0], 302 );
 count(2);
 
-my @headers = grep { /service/ } @{$res->[1]};
-ok( @headers == 0, 'NONE service header found' ) or print STDERR Data::Dumper::Dumper($res->[1]);
+my @headers = grep { /service/ } @{ $res->[1] };
+ok( @headers == 0, 'NONE service header found' )
+  or print STDERR Data::Dumper::Dumper( $res->[1] );
 count(1);
 
 diag 'Waiting';
@@ -107,10 +114,12 @@ ok(
 ok( $res->[0] == 200, 'Code is 200' ) or explain( $res->[0], 200 );
 count(2);
 
-my @headers = grep { /service/ } @{$res->[1]};
-my @values = grep { /\.example\.com/ } @{$res->[1]};
-ok( @headers == 4, 'Found 4 service headers' ) or print STDERR Data::Dumper::Dumper($res->[1]);
-ok( @values == 2, 'Found 2 service header values' ) or print STDERR Data::Dumper::Dumper($res->[1]);
+my @headers = grep { /service/ } @{ $res->[1] };
+my @values  = grep { /\.example\.com/ } @{ $res->[1] };
+ok( @headers == 4, 'Found 4 service headers' )
+  or print STDERR Data::Dumper::Dumper( $res->[1] );
+ok( @values == 2, 'Found 2 service header values' )
+  or print STDERR Data::Dumper::Dumper( $res->[1] );
 count(2);
 
 diag 'Waiting';
@@ -127,8 +136,9 @@ ok(
 ok( $res->[0] == 302, 'Code is 302' ) or explain( $res->[0], 302 );
 count(2);
 
-my @headers = grep { /service/ } @{$res->[1]};
-ok( @headers == 0, 'NONE service header found' ) or print STDERR Data::Dumper::Dumper($res->[1]);
+my @headers = grep { /service/ } @{ $res->[1] };
+ok( @headers == 0, 'NONE service header found' )
+  or print STDERR Data::Dumper::Dumper( $res->[1] );
 count(1);
 
 ok(
@@ -142,8 +152,9 @@ ok(
 ok( $res->[0] == 302, 'Code is 302' ) or explain( $res->[0], 302 );
 count(2);
 
-my @headers = grep { /service/ } @{$res->[1]};
-ok( @headers == 0, 'NONE service header found' ) or print STDERR Data::Dumper::Dumper($res->[1]);
+my @headers = grep { /service/ } @{ $res->[1] };
+ok( @headers == 0, 'NONE service header found' )
+  or print STDERR Data::Dumper::Dumper( $res->[1] );
 count(1);
 
 $token = $crypt->encrypt( join ':', time, $sessionId, '' );
@@ -158,8 +169,9 @@ ok(
 ok( $res->[0] == 302, 'Code is 302' ) or explain( $res->[0], 302 );
 count(2);
 
-my @headers = grep { /service/ } @{$res->[1]};
-ok( @headers == 0, 'NONE service header found' ) or print STDERR Data::Dumper::Dumper($res->[1]);
+my @headers = grep { /service/ } @{ $res->[1] };
+ok( @headers == 0, 'NONE service header found' )
+  or print STDERR Data::Dumper::Dumper( $res->[1] );
 count(1);
 
 done_testing( count() );