# Perltidy Change Log
-## 2023 09 12.05
+## 2023 09 12.06
- Added --dump-variables (-dv) option to dump a list of variables with
certain properties of interest. For example
1778:u: my $input_file
6089:r: my $j: reused - see line 6076
- The values on the line are separated by colons are:
+ The values on the line which are separated by colons are:
line number - the number of the line of the input file
issue - a single letter indicating the issue, see below
=head1 VERSION
-This man page documents perltidy version 20230912.05
+This man page documents perltidy version 20230912.06
=head1 BUG REPORTS
# then the Release version must be bumped, and it is probably past time for
# a release anyway.
- $VERSION = '20230912.05';
+ $VERSION = '20230912.06';
} ## end BEGIN
sub DESTROY {
=head1 VERSION
-This man page documents Perl::Tidy version 20230912.05
+This man page documents Perl::Tidy version 20230912.06
=head1 LICENSE
use strict;
use warnings;
use English qw( -no_match_vars );
-our $VERSION = '20230912.05';
+our $VERSION = '20230912.06';
use constant EMPTY_STRING => q{};
use constant SPACE => q{ };
use strict;
use warnings;
use English qw( -no_match_vars );
-our $VERSION = '20230912.05';
+our $VERSION = '20230912.06';
use constant EMPTY_STRING => q{};
package Perl::Tidy::FileWriter;
use strict;
use warnings;
-our $VERSION = '20230912.05';
+our $VERSION = '20230912.06';
use constant DEVEL_MODE => 0;
use constant EMPTY_STRING => q{};
use warnings;
# DEVEL_MODE gets switched on during automated testing for extra checking
-use constant DEVEL_MODE => 1;
+use constant DEVEL_MODE => 0;
use constant EMPTY_STRING => q{};
use constant SPACE => 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 = '20230912.05';
+our $VERSION = '20230912.06';
# The Tokenizer will be loaded with the Formatter
##use Perl::Tidy::Tokenizer; # for is_keyword()
package Perl::Tidy::HtmlWriter;
use strict;
use warnings;
-our $VERSION = '20230912.05';
+our $VERSION = '20230912.06';
use English qw( -no_match_vars );
use File::Basename;
use strict;
use warnings;
use Carp;
-our $VERSION = '20230912.05';
+our $VERSION = '20230912.06';
use constant DEVEL_MODE => 0;
use constant EMPTY_STRING => q{};
use strict;
use warnings;
use Carp;
-our $VERSION = '20230912.05';
+our $VERSION = '20230912.06';
use constant DEVEL_MODE => 0;
use strict;
use warnings;
-our $VERSION = '20230912.05';
+our $VERSION = '20230912.06';
BEGIN {
package Perl::Tidy::Logger;
use strict;
use warnings;
-our $VERSION = '20230912.05';
+our $VERSION = '20230912.06';
use English qw( -no_match_vars );
use constant DEVEL_MODE => 0;
use warnings;
use English qw( -no_match_vars );
-our $VERSION = '20230912.05';
+our $VERSION = '20230912.06';
use Carp;
{ #<<< A non-indenting brace to contain all lexical variables
-our $VERSION = '20230912.05';
+our $VERSION = '20230912.06';
use English qw( -no_match_vars );
use Perl::Tidy::VerticalAligner::Alignment;
use Perl::Tidy::VerticalAligner::Line;
use strict;
use warnings;
-our $VERSION = '20230912.05';
+our $VERSION = '20230912.06';
sub new {
my ( $class, $rarg ) = @_;
use strict;
use warnings;
-our $VERSION = '20230912.05';
+our $VERSION = '20230912.06';
use English qw( -no_match_vars );
sub AUTOLOAD {