From 390e73be110d7092dcce8b8273bf9da94c9ab62b Mon Sep 17 00:00:00 2001
From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Sat, 16 Oct 2021 19:31:10 -0700
Subject: [PATCH] added flag -blixl

---
 bin/perltidy                     | 14 +++++++++++---
 lib/Perl/Tidy.pm                 | 31 ++++++++++++++++---------------
 lib/Perl/Tidy/Formatter.pm       | 16 +++++++++++++++-
 t/snippets/braces7.par           |  2 +-
 t/snippets/expect/braces.braces7 |  5 ++---
 t/snippets/packing_list.txt      |  2 +-
 t/snippets22.t                   |  7 +++----
 7 files changed, 49 insertions(+), 28 deletions(-)

diff --git a/bin/perltidy b/bin/perltidy
index 2b5b027e..e7f1ceac 100755
--- a/bin/perltidy
+++ b/bin/perltidy
@@ -2340,7 +2340,7 @@ For example, perltidy -bli gives
             important_function();
           }
 
-By default, this extra indentation occurs for blocks of type:
+By default, this extra indentation occurs for block types:
 B<if>, B<elsif>, B<else>, B<unless>, B<while>, B<for>, B<foreach>, B<do>, and
 also B<named subs> and blocks preceded by a B<label>.  The next item shows how to
 change this.
@@ -2359,8 +2359,16 @@ B<-bli> flag applies; see L<Specifying Block Types>.
 
 The default is B<-blil='if else elsif unless while for foreach do : sub'>.
 
-Note that this parameter controls the behavior of the B<-bli> flag but has no
-effect unless the B<-bli> flag is set.
+=item B<-blixl=s>, B<--brace-left-and-indent-exclusion-list=s>
+
+Use this parameter to exclude types of block braces for which the B<-bli> flag
+applies; see L<Specifying Block Types>.
+
+This might be useful in conjunction with selecting all blocks B<-blil='*'>.
+The default setting is B<-blixl=' '>, which does not exclude any blocks.
+
+Note that the two parameters B<-blil> and B<-blixl> control the behavior of
+the B<-bli> flag but have no effect unless the B<-bli> flag is set.
 
 =item B<-bar>,    B<--opening-brace-always-on-right>
 
diff --git a/lib/Perl/Tidy.pm b/lib/Perl/Tidy.pm
index 6b4b7e9c..8be6b090 100644
--- a/lib/Perl/Tidy.pm
+++ b/lib/Perl/Tidy.pm
@@ -2260,21 +2260,22 @@ sub generate_options {
     ########################################
     $category = 2;    # Code indentation control
     ########################################
-    $add_option->( 'continuation-indentation',           'ci',   '=i' );
-    $add_option->( 'extended-continuation-indentation',  'xci',  '!' );
-    $add_option->( 'line-up-parentheses',                'lp',   '!' );
-    $add_option->( 'line-up-parentheses-exclusion-list', 'lpxl', '=s' );
-    $add_option->( 'outdent-keyword-list',               'okwl', '=s' );
-    $add_option->( 'outdent-keywords',                   'okw',  '!' );
-    $add_option->( 'outdent-labels',                     'ola',  '!' );
-    $add_option->( 'outdent-long-quotes',                'olq',  '!' );
-    $add_option->( 'indent-closing-brace',               'icb',  '!' );
-    $add_option->( 'closing-token-indentation',          'cti',  '=i' );
-    $add_option->( 'closing-paren-indentation',          'cpi',  '=i' );
-    $add_option->( 'closing-brace-indentation',          'cbi',  '=i' );
-    $add_option->( 'closing-square-bracket-indentation', 'csbi', '=i' );
-    $add_option->( 'brace-left-and-indent',              'bli',  '!' );
-    $add_option->( 'brace-left-and-indent-list',         'blil', '=s' );
+    $add_option->( 'continuation-indentation',             'ci',    '=i' );
+    $add_option->( 'extended-continuation-indentation',    'xci',   '!' );
+    $add_option->( 'line-up-parentheses',                  'lp',    '!' );
+    $add_option->( 'line-up-parentheses-exclusion-list',   'lpxl',  '=s' );
+    $add_option->( 'outdent-keyword-list',                 'okwl',  '=s' );
+    $add_option->( 'outdent-keywords',                     'okw',   '!' );
+    $add_option->( 'outdent-labels',                       'ola',   '!' );
+    $add_option->( 'outdent-long-quotes',                  'olq',   '!' );
+    $add_option->( 'indent-closing-brace',                 'icb',   '!' );
+    $add_option->( 'closing-token-indentation',            'cti',   '=i' );
+    $add_option->( 'closing-paren-indentation',            'cpi',   '=i' );
+    $add_option->( 'closing-brace-indentation',            'cbi',   '=i' );
+    $add_option->( 'closing-square-bracket-indentation',   'csbi',  '=i' );
+    $add_option->( 'brace-left-and-indent',                'bli',   '!' );
+    $add_option->( 'brace-left-and-indent-list',           'blil',  '=s' );
+    $add_option->( 'brace-left-and-indent-exclusion-list', 'blixl', '=s' );
 
     ########################################
     $category = 3;    # Whitespace control
diff --git a/lib/Perl/Tidy/Formatter.pm b/lib/Perl/Tidy/Formatter.pm
index d20fcb53..58fad8d6 100644
--- a/lib/Perl/Tidy/Formatter.pm
+++ b/lib/Perl/Tidy/Formatter.pm
@@ -289,6 +289,7 @@ my (
     $non_indenting_brace_pattern,
     $bl_exclusion_pattern,
     $bl_pattern,
+    $bli_exclusion_pattern,
     $bli_pattern,
     $block_brace_vertical_tightness_pattern,
     $blank_lines_after_opening_block_pattern,
@@ -4524,6 +4525,7 @@ sub make_bli_pattern {
 
     # default list of block types for which -bli would apply
     my $bli_list_string = 'if else elsif unless while for foreach do : sub';
+    my $bli_exclusion_list_string = ' ';
 
     if ( defined( $rOpts->{'brace-left-and-indent-list'} )
         && $rOpts->{'brace-left-and-indent-list'} )
@@ -4532,6 +4534,15 @@ sub make_bli_pattern {
     }
 
     $bli_pattern = make_block_pattern( '-blil', $bli_list_string );
+
+    if ( defined( $rOpts->{'brace-left-and-indent-exclusion-list'} )
+        && $rOpts->{'brace-left-and-indent-exclusion-list'} )
+    {
+        $bli_exclusion_list_string =
+          $rOpts->{'brace-left-and-indent-exclusion-list'};
+    }
+    $bli_exclusion_pattern =
+      make_block_pattern( '-blixl', $bli_exclusion_list_string );
     return;
 }
 
@@ -9941,7 +9952,10 @@ sub bli_adjustment {
 
     foreach my $seqno ( keys %{$rblock_type_of_seqno} ) {
         my $block_type = $rblock_type_of_seqno->{$seqno};
-        if ( $block_type && $block_type =~ /$bli_pattern/ ) {
+        if (   $block_type
+            && $block_type =~ /$bli_pattern/
+            && $block_type !~ /$bli_exclusion_pattern/ )
+        {
             $ris_bli_container->{$seqno} = 1;
             $rbrace_left->{$seqno}       = 1;
             my $Ko = $K_opening_container->{$seqno};
diff --git a/t/snippets/braces7.par b/t/snippets/braces7.par
index db126511..e55e684e 100644
--- a/t/snippets/braces7.par
+++ b/t/snippets/braces7.par
@@ -1 +1 @@
--bli -blil='*'
+-bli -blil='*' -blixl='eval'
diff --git a/t/snippets/expect/braces.braces7 b/t/snippets/expect/braces.braces7
index b5f81b14..d939b90c 100644
--- a/t/snippets/expect/braces.braces7
+++ b/t/snippets/expect/braces.braces7
@@ -15,11 +15,10 @@ $myfun = sub
     print("Hello, World\n");
   };
 
-eval
-  {
+eval {
     my $app = App::perlbrew->new( "install-patchperl", "-q" );
     $app->run();
-  } or do
+} or do
   {
     $error          = $@;
     $produced_error = 1;
diff --git a/t/snippets/packing_list.txt b/t/snippets/packing_list.txt
index 0873d4b9..f4fcb3f2 100644
--- a/t/snippets/packing_list.txt
+++ b/t/snippets/packing_list.txt
@@ -333,6 +333,7 @@
 ../snippets25.t	novalign.novalign3
 ../snippets25.t	lp2.def
 ../snippets25.t	lp2.lp
+../snippets25.t	braces.braces8
 ../snippets3.t	ce_wn1.ce_wn
 ../snippets3.t	ce_wn1.def
 ../snippets3.t	colin.colin
@@ -473,4 +474,3 @@
 ../snippets9.t	rt98902.def
 ../snippets9.t	rt98902.rt98902
 ../snippets9.t	rt99961.def
-../snippets25.t	braces.braces8
diff --git a/t/snippets22.t b/t/snippets22.t
index 92563c25..a86591f2 100644
--- a/t/snippets22.t
+++ b/t/snippets22.t
@@ -46,7 +46,7 @@ BEGIN {
 -nboa
 ----------
         'braces7' => <<'----------',
--bli -blil='*'
+-bli -blil='*' -blixl='eval'
 ----------
         'def'       => "",
         'extrude'   => "--extrude",
@@ -369,11 +369,10 @@ $myfun = sub
     print("Hello, World\n");
   };
 
-eval
-  {
+eval {
     my $app = App::perlbrew->new( "install-patchperl", "-q" );
     $app->run();
-  } or do
+} or do
   {
     $error          = $@;
     $produced_error = 1;
-- 
2.39.5