"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "lib/Perl/Tidy/Logger.pm" between
Perl-Tidy-20210402.tar.gz and Perl-Tidy-20210717.tar.gz

About: Perltidy is a Perl script indenter and reformatter (beautifier).

Logger.pm  (Perl-Tidy-20210402):Logger.pm  (Perl-Tidy-20210717)
##################################################################### #####################################################################
# #
# The Perl::Tidy::Logger class writes the .LOG and .ERR files # The Perl::Tidy::Logger class writes the .LOG and .ERR files
# #
##################################################################### #####################################################################
package Perl::Tidy::Logger; package Perl::Tidy::Logger;
use strict; use strict;
use warnings; use warnings;
our $VERSION = '20210402'; our $VERSION = '20210717';
sub AUTOLOAD { sub AUTOLOAD {
# Catch any undefined sub calls so that we are sure to get # Catch any undefined sub calls so that we are sure to get
# some diagnostic information. This sub should never be called # some diagnostic information. This sub should never be called
# except for a programming error. # except for a programming error.
our $AUTOLOAD; our $AUTOLOAD;
return if ( $AUTOLOAD =~ /\bDESTROY$/ ); return if ( $AUTOLOAD =~ /\bDESTROY$/ );
my ( $pkg, $fname, $lno ) = caller(); my ( $pkg, $fname, $lno ) = caller();
my $my_package = __PACKAGE__; my $my_package = __PACKAGE__;
skipping to change at line 210 skipping to change at line 210
$self->logfile_output( ">>>", "@msg" ); $self->logfile_output( ">>>", "@msg" );
return; return;
} }
sub write_column_headings { sub write_column_headings {
my $self = shift; my $self = shift;
$self->{_wrote_column_headings} = 1; $self->{_wrote_column_headings} = 1;
my $routput_array = $self->{_output_array}; my $routput_array = $self->{_output_array};
push @{$routput_array}, <<EOM; push @{$routput_array}, <<EOM;
Starting formatting pass...
The nesting depths in the table below are at the start of the lines. The nesting depths in the table below are at the start of the lines.
The indicated output line numbers are not always exact. The indicated output line numbers are not always exact.
ci = levels of continuation indentation; bk = 1 if in BLOCK, 0 if not. ci = levels of continuation indentation; bk = 1 if in BLOCK, 0 if not.
in:out indent c b nesting code + messages; (messages begin with >>>) in:out indent c b nesting code + messages; (messages begin with >>>)
lines levels i k (code begins with one '.' per indent level) lines levels i k (code begins with one '.' per indent level)
------ ----- - - -------- ------------------------------------------- ------ ----- - - -------- -------------------------------------------
EOM EOM
return; return;
} }
 End of changes. 2 change blocks. 
1 lines changed or deleted 3 lines changed or added

Home  |  About  |  Features  |  All  |  Newest  |  Dox  |  Diffs  |  RSS Feeds  |  Screenshots  |  Comments  |  Imprint  |  Privacy  |  HTTP(S)