From fa43d4b176db6f779e953c727f65add8868aa492 Mon Sep 17 00:00:00 2001 From: Steve Hancock Date: Thu, 9 May 2024 16:44:18 -0700 Subject: [PATCH] update to VERSION 20240511 --- CHANGES.md | 36 +++---- bin/perltidy | 2 +- docs/ChangeLog.html | 111 +++++++++++---------- docs/Tidy.html | 2 +- docs/perltidy.html | 82 +++++++++------ lib/Perl/Tidy.pm | 2 +- lib/Perl/Tidy.pod | 2 +- lib/Perl/Tidy/Debugger.pm | 2 +- lib/Perl/Tidy/Diagnostics.pm | 2 +- lib/Perl/Tidy/FileWriter.pm | 4 +- lib/Perl/Tidy/Formatter.pm | 2 +- lib/Perl/Tidy/HtmlWriter.pm | 2 +- lib/Perl/Tidy/IOScalar.pm | 2 +- lib/Perl/Tidy/IOScalarArray.pm | 2 +- lib/Perl/Tidy/IndentationItem.pm | 2 +- lib/Perl/Tidy/Logger.pm | 2 +- lib/Perl/Tidy/Tokenizer.pm | 2 +- lib/Perl/Tidy/VerticalAligner.pm | 2 +- lib/Perl/Tidy/VerticalAligner/Alignment.pm | 2 +- lib/Perl/Tidy/VerticalAligner/Line.pm | 2 +- 20 files changed, 145 insertions(+), 120 deletions(-) diff --git a/CHANGES.md b/CHANGES.md index ce6d0200..ad1dc685 100644 --- a/CHANGES.md +++ b/CHANGES.md @@ -1,26 +1,14 @@ # Perltidy Change Log -## 2024 02 02.07 +## 2024 05 11 - The option --valign-signed-numbers, or -vsn is now the default. It was introduced in the previous release has been found to significantly improve the overall appearance of columns of signed and unsigned - numbers. It will change formatting slightly in scripts with columns - of vertically aligned numbers, and can be deactivated with -nvsn. - - - Previously, a line break was made before a short concatenated terminal - quoted string, such as "\n", if the previous line had a greater - starting indentation. The break is now placed after the short quote. - This keeps code a little more compact. For example: - - # old rule: break before "\n" here because '$name' has more indentation: - my $html = $this->SUPER::genObject( $query, $bindNode, $field . ":$var", - $name, "remove", "UNCHECKED" ) - . "\n"; - - # new rule: break after a short terminal quote like "\n" for compactness; - my $html = $this->SUPER::genObject( $query, $bindNode, $field . ":$var", - $name, "remove", "UNCHECKED" ) . "\n"; + numbers. See the previous Change Log entry for an example. + This will change the formatting in scripts with columns + of vertically aligned signed and unsigned numbers. + Use -nvsn to turn this option off and avoid this change. - The option --delete-repeated-commas is now the default. @@ -32,6 +20,20 @@ Use --nodelete-repeated-commas, or -ndrc, to retain repeated commas. + - Previously, a line break was always made before a concatenated + quoted string, such as "\n", if the previous line had a greater + starting indentation. An exception is now made for a short concatenated + terminal quote. This keeps code a little more compact. For example: + + # basic rule: break before "\n" here because '$name' has more indentation: + my $html = $this->SUPER::genObject( $query, $bindNode, $field . ":$var", + $name, "remove", "UNCHECKED" ) + . "\n"; + + # modified rule: make an exception for a short terminal quote like "\n" + my $html = $this->SUPER::genObject( $query, $bindNode, $field . ":$var", + $name, "remove", "UNCHECKED" ) . "\n"; + - The operator ``**=`` now has spaces on both sides by default. Previously, there was no space on the left. This change makes its spacing the same as all other assignment operators. The previous behavior can be obtained diff --git a/bin/perltidy b/bin/perltidy index 7615362e..89d3ca24 100755 --- a/bin/perltidy +++ b/bin/perltidy @@ -6646,7 +6646,7 @@ The perltidy binary uses the Perl::Tidy module and is installed when that module =head1 VERSION -This man page documents perltidy version 20240202.07 +This man page documents perltidy version 20240511 =head1 BUG REPORTS diff --git a/docs/ChangeLog.html b/docs/ChangeLog.html index 6cb3c90c..6aacdfbc 100644 --- a/docs/ChangeLog.html +++ b/docs/ChangeLog.html @@ -1,8 +1,60 @@

Perltidy Change Log

-

2024 02 02.07

+

2024 05 11

-
- Fix issue git #138 involving -xlp (--extended-line-up-parentheses).
+
- The option --valign-signed-numbers, or -vsn is now the default. It
+  was introduced in the previous release has been found to significantly
+  improve the overall appearance of columns of signed and unsigned
+  numbers.  See the previous Change Log entry for an example.
+  This will change the formatting in scripts with columns
+  of vertically aligned signed and unsigned numbers.
+  Use -nvsn to turn this option off and avoid this change.
+
+- Previously, a line break was made before a short concatenated terminal
+  quoted string, such as "\n", if the previous line had a greater
+  starting indentation. The break is now placed after the short quote.
+  This keeps code a little more compact. For example:
+
+# old rule: break before "\n" here because '$name' has more indentation:
+my $html = $this->SUPER::genObject( $query, $bindNode, $field . ":$var",
+    $name, "remove", "UNCHECKED" )
+  . "\n";
+
+# new rule: break after a short terminal quote like "\n" for compactness;
+my $html = $this->SUPER::genObject( $query, $bindNode, $field . ":$var",
+    $name, "remove", "UNCHECKED" ) . "\n";
+
+- The option --delete-repeated-commas is now the default.
+
+  It makes the following checks and changes:
+  - Repeated commas like ',,' are removed with a warning
+  - Repeated fat commas like '=> =>' are removed with a warning
+  - The combination '=>,' produces a warning but is not changed
+  These warnings are only output if --warning-output, or -w, is set.
+
+  Use --nodelete-repeated-commas, or -ndrc, to retain repeated commas.
+
+- The operator ``**=`` now has spaces on both sides by default. Previously,
+  there was no space on the left.  This change makes its spacing the same
+  as all other assignment operators. The previous behavior can be obtained
+  with the parameter setting -nwls='**='.
+
+- The option --file-size-order, or -fso is now the default. When
+  perltidy is given a list of multiple filenames to process, they
+  are sorted by size and processed in order of increasing size.
+  This can significantly reduce memory usage by Perl.  This
+  option has always been used in testing, where typically several
+  jobs each operating on thousands of filenames are running at the
+  same time and competing for system resources.  If this option
+  is not wanted for some reason, it can be deactivated with -nfso.
+
+- In the option --dump-block-summary, the number of sub arguments indicated
+  for each sub now includes any leading object variable passed with
+  an arrow-operator call.  Previously the count would have been decreased
+  by one in this case. This change is needed for compatibility with future
+  updates.
+
+- Fix issue git #138 involving -xlp (--extended-line-up-parentheses).
   When multiple-line quotes and regexes have long secondary lines, these
   line lengths could influencing some spacing and indentation, but they
   should not have since perltidy has no control over their indentation.
@@ -47,12 +99,13 @@
 
      perltidy -wma somefile.pl
 
-  The -warn version may be customized with three additional parameters if
-  necessary to avoid needless warnings:
+  The -warn version may be customized with the following additional parameters
+  if necessary to avoid needless warnings:
 
   --warn-mismatched-arg-types=s (or -wmat=s),
   --warn-mismatched-arg-exclusion-list=s (or -wmaxl=s), and
   --warn-mismatched-arg-undercount-cutoff=n (or -wmauc=n).
+  --warn-mismatched-arg-overcount-cutoff=n (or -wmaoc=n).
 
   These are explained in the manual.
 
@@ -82,56 +135,6 @@
   This option currently is off by default to avoid changing existing
   formatting.
 
-- Previously, a line break was made before a short concatenated terminal
-  quoted string, such as "\n", if the previous line had a greater
-  starting indentation. The break is now placed after the short quote.
-  This keeps code a little more compact. For example:
-
-# old rule: break before "\n" here because '$name' has more indentation:
-my $html = $this->SUPER::genObject( $query, $bindNode, $field . ":$var",
-    $name, "remove", "UNCHECKED" )
-  . "\n";
-
-# new rule: break after a short terminal quote like "\n" for compactness;
-my $html = $this->SUPER::genObject( $query, $bindNode, $field . ":$var",
-    $name, "remove", "UNCHECKED" ) . "\n";
-
-- In the option --dump-block-summary, the number of sub arguments indicated
-  for each sub now includes any leading object variable passed with
-  an arrow-operator call.  Previously the count would have been decreased
-  by one in this case. This change is needed for compatibility with future
-  updates.
-
-- The operator ``**=`` now has spaces on both sides by default. Previously,
-  there was no space on the left.  This change makes its spacing the same
-  as all other assignment operators. The previous behavior can be obtained
-  with the parameter setting -nwls='**='.
-
-- The option --file-size-order, or -fso is now the default. When
-  perltidy is given a list of multiple filenames to process, they
-  are sorted by size and processed in order of increasing size.
-  This can significantly reduce memory usage by Perl.  This
-  option has always been used in testing, where typically several
-  jobs each operating on thousands of filenames are running at the
-  same time and competing for system resources.  If this option
-  is not wanted for some reason, it can be deactivated with -nfso.
-
-- The option --valign-signed-numbers, or -vsn is now the default. It
-  was introduced in the previous release has been found to significantly
-  improve the overall appearance of columns of signed and unsigned
-  numbers.  It will change formatting slightly in scripts with columns
-  of vertically aligned numbers, and can be deactivated with -nvsn.
-
-- The option --delete-repeated-commas is now the default.
-
-  It makes the following checks and changes:
-  - Repeated commas like ',,' are removed with a warning
-  - Repeated fat commas like '=> =>' are removed with a warning
-  - The combination '=>,' produces a warning but is not changed
-  These warnings are only output if --warning-output, or -w, is set.
-
-  Use --nodelete-repeated-commas, or -ndrc, to retain repeated commas.
-
 - Added control --delete-interbracket-arrows, or -dia, to delete optional
   hash ref and array ref arrows between brackets as in the following
   expression (see git #131)
diff --git a/docs/Tidy.html b/docs/Tidy.html
index 8dc428ff..55d6659f 100644
--- a/docs/Tidy.html
+++ b/docs/Tidy.html
@@ -399,7 +399,7 @@
 
 

VERSION

-

This man page documents Perl::Tidy version 20240202.07

+

This man page documents Perl::Tidy version 20240511

LICENSE

diff --git a/docs/perltidy.html b/docs/perltidy.html index d8b3c850..6a3ffb71 100644 --- a/docs/perltidy.html +++ b/docs/perltidy.html @@ -4196,7 +4196,7 @@
      = **= += *= &= <<= &&= -= /= |= >>= ||= //= .= %= ^= x=
-

Setting --valign-wide-equals, or -vwe, causes them to be vertically alligned together with the trailing = all aligned. For example, here is the default formatting for some code with several of these operators:

+

Setting --valign-wide-equals, or -vwe, causes them to be vertically aligned together with the trailing = all aligned. For example, here is the default formatting for some code with several of these operators:

            $str .= SPACE x $total_pad_count;
             $str_len += $total_pad_count;
@@ -4536,7 +4536,19 @@
 
 

Analyzing Code

-

Perltidy reports any obvious issues that are found during formatting, such as unbalanced braces. But several parameters are available for making certain additional checks for issues which might be of interest to a programmer.

+

Perltidy reports any obvious issues that are found during formatting, such as unbalanced braces. But several parameters are available for making certain additional checks for issues which might be of interest to a programmer. These parameters fall into two categories as indicated by their prefix, --dump- or --warn-:

+ +
    + +
  • The --dump- parameters read a file, write information to the standard output, and then exit without doing any formatting.

    + +
  • +
  • The --warn- parameters, on the other hand, cause perltidy to function normally but issue warnings to the error output when certain conditions are encountered.

    + +
  • +
+ +

Some of these have associated control parameters.

@@ -4767,11 +4779,11 @@
Use --dump-mismatched-args to find function calls with args not matching sub declarations
-

The parameter --dump-mismatched-args, or -dma, causes perltidy to examine the definitions of subroutines in a file, and calls to those subs, and report any apparent differences. Like all --dump commands, it writes its report to standard output and exits immediately. For example

+

The parameter --dump-mismatched-args, or -dma, causes perltidy to examine the definitions of subroutines in a file, and calls to those subs, and report certain differences. Like all --dump commands, it writes its report to standard output and exits immediately. For example

    perltidy -dma somefile.pl >results.txt
-

Two types of issues are reported, types a and c:

+

Four types of issues are reported, types a, o, u, and i:

@@ -4786,38 +4798,40 @@
     $self->Fault();
-

This may or may not be an error, but it is worth checking.

+

This may or may not be an error, but it is worth checking. It might become an error in the future if sub Fault starts to access $self.

-
c: the count of call args differs from a sub definition
+
o: (overcount): the number of call args exceeds the expected number.
-

If a sub appears to expect a specific number of args, and is called with more or less than this number, then a mismatch will be reported. For example

+
+
u: (undercount): the number of call args is less than the expected number.
+
-
     sub do_something {
+

For example

+ +
     sub gnab_gib {
          my $self=shift;
          my ($v1,$v2)=@_;
          ...
      }
 
-    $self->do_something(43);
+ $self->gnab_gib(42);
+ +

In this case, the sub is expecting a total of three args ($self, $v1, and $v2) but only receives two ($self and 42), so an undercount is reported. This is not necessarily an error because the sub may allow for this possibility, but it is worth checking. The simple static processing done by perltidy cannot determine which sub args are optional.

-

In this case, the sub is expecting a total of three args ($self, $v1, and $v2) but only receives two ($self and 42), so a mismatch is reported. This is not necessarily an error because the sub may allow for this possibility. This sometimes happens as a code evolves to have new functionality. But it can be a source of confusion, and it could be an error, so it is worth checking.

+
+
i: indeterminate: a specific number of expected args for a sub could not be determined, but it is called with a specific number. This issue is reported for the --dump- option but not the --warn- option.
+
-

Some Limitations:

+

Notes and Limitations:

    -
  • Checks are only made for subs which appear to unpack call args in an orderly manner at the beginning of the sub from @_, directly and/or with shift operations.

    - -
  • -
  • Subs which appear to have no args are not checked. This restriction is necessary to avoid false warnings when a sub actually uses args in a complex way.

    - -
  • -
  • Only calls which appear to be to subs defined within the file being processed are checked.

    +
  • This option works best for subs which unpack call args in an orderly manner near the beginning of the sub from @_ and/or with shift operations. If individual elements of the @_ array are directly accessed then the number of sub args is considered indeterminate.

  • Sub calls made without parentheses around the args are not checked.

    @@ -4825,6 +4839,9 @@
  • Anonymous subs and lexical subs (introduced with my) are not checked.

    +
  • +
  • Only calls which appear to be to subs defined within the file being processed are checked. But note that a file may contain multiple packages.

    +
@@ -4836,35 +4853,38 @@
    perltidy -wma somefile.pl
-

means format somefile.pl and report any mismatched arg errors found. Several companion controls are available to avoid unwanted error messages:

+

Several companion controls are available to avoid unwanted error messages:

    -
  • --warn-mismatched-arg-types=s, or -wmat=s, can be used to select specific tests, either type a (arrow test) or c (mismatched counts). Both checks may be requested with -wmat='*' or -wmat=1. This is the default.

    +
  • --warn-mismatched-arg-types=s, or -wmat=s, can be used to select specific tests, type a (arrow test) or o (overcounts) or u (undercounts). All checks may be requested with -wmat='*' or -wmat=1. This is the default.

    -

    To restrict the check to a specific warning type, set the string equal to the letter of that warning, either a or c. For example

    +

    To restrict the check to a specific warning type, set the string equal to the letter of that warning, any a, o, or u. For example

    -
       perltidy -wmat='c' somefile.pl
    +
       perltidy -wmat='a o' somefile.pl
    -

    will format somefile.pl and report any call arg count mismatches found but will skip checking for arrow-type mismatches.

    +

    will format somefile.pl and report any arrow-type mismatches and overcount mismatches, but will skip undercount mismatches.

  • --warn-mismatched-arg-exclusion-list, or -wmaxl=string, can be given to skip the warning checks for a list of subroutine names, entered as a quoted string of space- or comma-separated names. All subs with those names will be skipped, regardless of package.

  • -
  • --warn-mismatched-arg-undercount-cutoff=n, or -wmauc=n, can be used to avoid undercount warnings when the number of args expected is n or less. Please note that this number n is the number of args from the point of view of the sub definition, so an object like $self passed with an arrow operator counts as one arg.

    +
  • --warn-mismatched-arg-undercount-cutoff=n, or -wmauc=n, can be used to avoid undercount warnings when the expected number of args is less than n. Please note that this number n is the number of args from the point of view of the sub definition, so an object like $self passed with an arrow operator counts as one arg.

    -

    The default value is n=4. This has been found to allow most programs to pass without warnings, but it should be reduced if possible for better error checking. The minimum possible value of n needed to avoid triggering an error for a program can be determined by running with -wmauc=0, or by running with --dump-mismatched-args. The output shows, for each mismatch, the number of args expected by a sub plus the range of the number of args actually passed to it.

    +

    The default value is n=4. This has been found to allow most programs to pass without warnings, but it should be reduced if possible for better error checking. The minimum possible value of n needed to avoid triggering an error for a program can be determined by running with -wma -wmauc=0. If there are undercount errors, a note at the bottom of the error output indicates the value of n required to avoid reporting them.

    -

    To illustrate these controls,

    - -
       perltidy -wma -wmat='c' -wmaxl='new old' -wmauc=2 somefile.pl
    - -

    means format somefile.pl as usual and check for mismatched counts but not arrows. Skip checking for any sub named new or old, and only warn of undercounts for subs expecting more than 2 args.

    +
  • +
  • --warn-mismatched-arg-overcount-cutoff=n, or -wmaoc=n, can be used to avoid overcount warnings when the expected number of args is less than n. The default value is n=1. This avoids warning messages for subroutines which are dummy placeholders for possible expansion.

+

To illustrate these controls,

+ +
   perltidy -wma -wmat='o u' -wmaxl='new old' -wmauc=2 somefile.pl
+ +

means format somefile.pl as usual and check for mismatched overcounts and undercounts but not arrows. Skip checking for any sub named new or old, and only warn of undercounts for subs expecting more than 2 args.

+ @@ -5180,7 +5200,7 @@

VERSION

-

This man page documents perltidy version 20240202.07

+

This man page documents perltidy version 20240511

BUG REPORTS

diff --git a/lib/Perl/Tidy.pm b/lib/Perl/Tidy.pm index fefca32c..db09e992 100644 --- a/lib/Perl/Tidy.pm +++ b/lib/Perl/Tidy.pm @@ -131,7 +131,7 @@ BEGIN { # then the Release version must be bumped, and it is probably past time for # a release anyway. - $VERSION = '20240202.07'; + $VERSION = '20240511'; } ## end BEGIN sub DESTROY { diff --git a/lib/Perl/Tidy.pod b/lib/Perl/Tidy.pod index 1d61ffee..9ed5e7b8 100644 --- a/lib/Perl/Tidy.pod +++ b/lib/Perl/Tidy.pod @@ -469,7 +469,7 @@ The module 'Perl::Tidy' comes with a binary 'perltidy' which is installed when t =head1 VERSION -This man page documents Perl::Tidy version 20240202.07 +This man page documents Perl::Tidy version 20240511 =head1 LICENSE diff --git a/lib/Perl/Tidy/Debugger.pm b/lib/Perl/Tidy/Debugger.pm index 20563044..26d821e1 100644 --- a/lib/Perl/Tidy/Debugger.pm +++ b/lib/Perl/Tidy/Debugger.pm @@ -8,7 +8,7 @@ package Perl::Tidy::Debugger; use strict; use warnings; use English qw( -no_match_vars ); -our $VERSION = '20240202.07'; +our $VERSION = '20240511'; use constant EMPTY_STRING => q{}; use constant SPACE => q{ }; diff --git a/lib/Perl/Tidy/Diagnostics.pm b/lib/Perl/Tidy/Diagnostics.pm index 24d30ca6..7dcbb247 100644 --- a/lib/Perl/Tidy/Diagnostics.pm +++ b/lib/Perl/Tidy/Diagnostics.pm @@ -18,7 +18,7 @@ package Perl::Tidy::Diagnostics; use strict; use warnings; use English qw( -no_match_vars ); -our $VERSION = '20240202.07'; +our $VERSION = '20240511'; use constant EMPTY_STRING => q{}; diff --git a/lib/Perl/Tidy/FileWriter.pm b/lib/Perl/Tidy/FileWriter.pm index 699fdc5c..fb76925c 100644 --- a/lib/Perl/Tidy/FileWriter.pm +++ b/lib/Perl/Tidy/FileWriter.pm @@ -16,7 +16,7 @@ package Perl::Tidy::FileWriter; use strict; use warnings; -our $VERSION = '20240202.07'; +our $VERSION = '20240511'; use constant DEVEL_MODE => 0; use constant EMPTY_STRING => q{}; @@ -152,6 +152,7 @@ sub new { my ( $class, $line_sink_object, $rOpts, $logger_object ) = @_; my $self = []; + bless $self, $class; $self->[_logger_object_] = $logger_object; $self->[_rOpts_] = $rOpts; $self->[_output_line_number_] = 1; @@ -197,7 +198,6 @@ EOM } $self->[_input_stream_name_] = $input_stream_name; - bless $self, $class; return $self; } ## end sub new diff --git a/lib/Perl/Tidy/Formatter.pm b/lib/Perl/Tidy/Formatter.pm index d636ca50..66ddb689 100644 --- a/lib/Perl/Tidy/Formatter.pm +++ b/lib/Perl/Tidy/Formatter.pm @@ -76,7 +76,7 @@ use constant BACKSLASH => q{\\}; use Carp; use English qw( -no_match_vars ); use List::Util qw( min max first ); # min, max first are in Perl 5.8 -our $VERSION = '20240202.07'; +our $VERSION = '20240511'; # The Tokenizer will be loaded with the Formatter ##use Perl::Tidy::Tokenizer; # for is_keyword() diff --git a/lib/Perl/Tidy/HtmlWriter.pm b/lib/Perl/Tidy/HtmlWriter.pm index 1ba6d9d7..79171dd6 100644 --- a/lib/Perl/Tidy/HtmlWriter.pm +++ b/lib/Perl/Tidy/HtmlWriter.pm @@ -7,7 +7,7 @@ package Perl::Tidy::HtmlWriter; use strict; use warnings; -our $VERSION = '20240202.07'; +our $VERSION = '20240511'; use Carp; use English qw( -no_match_vars ); diff --git a/lib/Perl/Tidy/IOScalar.pm b/lib/Perl/Tidy/IOScalar.pm index 72ff361e..c5079fe6 100644 --- a/lib/Perl/Tidy/IOScalar.pm +++ b/lib/Perl/Tidy/IOScalar.pm @@ -10,7 +10,7 @@ package Perl::Tidy::IOScalar; use strict; use warnings; use Carp; -our $VERSION = '20240202.07'; +our $VERSION = '20240511'; use constant DEVEL_MODE => 0; use constant EMPTY_STRING => q{}; diff --git a/lib/Perl/Tidy/IOScalarArray.pm b/lib/Perl/Tidy/IOScalarArray.pm index 3dc3baee..d9d8edb5 100644 --- a/lib/Perl/Tidy/IOScalarArray.pm +++ b/lib/Perl/Tidy/IOScalarArray.pm @@ -14,7 +14,7 @@ package Perl::Tidy::IOScalarArray; use strict; use warnings; use Carp; -our $VERSION = '20240202.07'; +our $VERSION = '20240511'; use constant DEVEL_MODE => 0; diff --git a/lib/Perl/Tidy/IndentationItem.pm b/lib/Perl/Tidy/IndentationItem.pm index ce379d40..1a32586e 100644 --- a/lib/Perl/Tidy/IndentationItem.pm +++ b/lib/Perl/Tidy/IndentationItem.pm @@ -9,7 +9,7 @@ package Perl::Tidy::IndentationItem; use strict; use warnings; -our $VERSION = '20240202.07'; +our $VERSION = '20240511'; BEGIN { diff --git a/lib/Perl/Tidy/Logger.pm b/lib/Perl/Tidy/Logger.pm index 15a9b86d..39b43b44 100644 --- a/lib/Perl/Tidy/Logger.pm +++ b/lib/Perl/Tidy/Logger.pm @@ -8,7 +8,7 @@ package Perl::Tidy::Logger; use strict; use warnings; -our $VERSION = '20240202.07'; +our $VERSION = '20240511'; use Carp; use English qw( -no_match_vars ); diff --git a/lib/Perl/Tidy/Tokenizer.pm b/lib/Perl/Tidy/Tokenizer.pm index ea7db846..441159c3 100644 --- a/lib/Perl/Tidy/Tokenizer.pm +++ b/lib/Perl/Tidy/Tokenizer.pm @@ -33,7 +33,7 @@ use strict; use warnings; use English qw( -no_match_vars ); -our $VERSION = '20240202.07'; +our $VERSION = '20240511'; use Carp; diff --git a/lib/Perl/Tidy/VerticalAligner.pm b/lib/Perl/Tidy/VerticalAligner.pm index 4e2b5781..2c229721 100644 --- a/lib/Perl/Tidy/VerticalAligner.pm +++ b/lib/Perl/Tidy/VerticalAligner.pm @@ -5,7 +5,7 @@ use Carp; { #<<< A non-indenting brace to contain all lexical variables -our $VERSION = '20240202.07'; +our $VERSION = '20240511'; use English qw( -no_match_vars ); use Scalar::Util 'refaddr'; use Perl::Tidy::VerticalAligner::Alignment; diff --git a/lib/Perl/Tidy/VerticalAligner/Alignment.pm b/lib/Perl/Tidy/VerticalAligner/Alignment.pm index 95fbe7e7..41e76b45 100644 --- a/lib/Perl/Tidy/VerticalAligner/Alignment.pm +++ b/lib/Perl/Tidy/VerticalAligner/Alignment.pm @@ -9,7 +9,7 @@ package Perl::Tidy::VerticalAligner::Alignment; use strict; use warnings; -our $VERSION = '20240202.07'; +our $VERSION = '20240511'; sub new { my ( $class, $rarg ) = @_; diff --git a/lib/Perl/Tidy/VerticalAligner/Line.pm b/lib/Perl/Tidy/VerticalAligner/Line.pm index 26109b51..5c5f133f 100644 --- a/lib/Perl/Tidy/VerticalAligner/Line.pm +++ b/lib/Perl/Tidy/VerticalAligner/Line.pm @@ -10,7 +10,7 @@ package Perl::Tidy::VerticalAligner::Line; use strict; use warnings; -our $VERSION = '20240202.07'; +our $VERSION = '20240511'; use English qw( -no_match_vars ); sub AUTOLOAD { -- 2.39.5