Make shebang a multi-value config item as well

Author: autarch

Changes

@@ -1,5 +1,10 @@
 {{$NEXT}}
 
+- Changed the shebang config item to actually accept multi items on different
+  lines. The old method of specifying more than one item on a single line,
+  separated by spaces, will continue to work, but is no longer documented.
+
+
 0.43     2016-03-27
 
 - Use the same improved "git status" code for Code::TidyAll::Git::Precommit as

bin/tidyall

@@ -425,15 +425,15 @@ C<select>. e.g.
 
 =item shebang
 
-One or more words, separated by whitespace or on multiple lines, indicating
-which shebang lines to accept. This is optional and further filters C<select>.
-e.g.
+One or more words on multiple lines, indicating which shebang lines to
+accept. This is optional and further filters C<select>.  e.g.
 
     ; All files with no extension anywhere under bin that include a "perl" or
     ; "perl5" shebang line.
     select = bin/**/*
     ignore = bin/**/*.*
-    shebang = perl perl5
+    shebang = perl
+    shebang = perl5
 
 =item only_modes
 

lib/Code/TidyAll.pm

@@ -454,7 +454,7 @@ sub find_matched_files {
             @selected = grep { !$is_ignored{$_} } @selected;
         }
         if ( my $shebang = $plugin->shebang ) {
-            my $re = join '|', map {quotemeta} split ' ', $shebang;
+            my $re = join '|', map {quotemeta} @{$shebang};
             $re       = qr/^#!.*\b(?:$re)\b/;
             @selected = grep {
                 my $fh;

lib/Code/TidyAll/Config/INI/Reader.pm

@@ -6,10 +6,12 @@ use base qw(Config::INI::Reader);
 
 our $VERSION = '0.44';
 
+my %multi_value = map { $_ => 1 } qw( select ignore shebang );
+
 sub set_value {
     my ( $self, $name, $value ) = @_;
 
-    if ( $name eq 'select' || $name eq 'ignore' ) {
+    if ( $multi_value{$name} ) {
         push @{ $self->{data}{ $self->current_section }{$name} }, $value;
         return;
     }

lib/Code/TidyAll/Plugin.pm

@@ -37,6 +37,12 @@ around BUILDARGS => sub {
 
     my $args = $class->$orig(@_);
 
+    # When the feature was first released it was documented as accepting a
+    # space separated list, and we want that to still work.
+    if ( defined $args->{shebang} && !ref $args->{shebang} ) {
+        $args->{shebang} = [ split /\s+/, $args->{shebang} ];
+    }
+
     for my $key (qw( select ignore )) {
         if ( defined $args->{$key} && !ref $args->{$key} ) {
             $args->{$key} = [ $args->{$key} ];