From d82d72343a5dfcbc4ba14569fba7f9e34debdf71 Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Fri, 15 Apr 2022 03:00:41 +0000 Subject: CTAN sync 202204150300 --- support/latexindent/LatexIndent/Logger.pm | 61 +++++++++++++++++-------------- 1 file changed, 33 insertions(+), 28 deletions(-) (limited to 'support/latexindent/LatexIndent/Logger.pm') diff --git a/support/latexindent/LatexIndent/Logger.pm b/support/latexindent/LatexIndent/Logger.pm index ebad76a2d5..425c8eae07 100644 --- a/support/latexindent/LatexIndent/Logger.pm +++ b/support/latexindent/LatexIndent/Logger.pm @@ -1,4 +1,5 @@ package LatexIndent::Logger; + # This program is free software: you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by # the Free Software Foundation, either version 3 of the License, or @@ -19,61 +20,65 @@ use strict; use warnings; use Exporter; use LatexIndent::Switches qw/%switches/; -our @ISA = "LatexIndent::Document"; # class inheritance, Programming Perl, pg 321 +our @ISA = "LatexIndent::Document"; # class inheritance, Programming Perl, pg 321 our @EXPORT_OK = qw/@logFileLines/; our @logFileLines; -sub info{ - my $self = shift; +sub info { + my $self = shift; my $logfileline = shift; - return unless (defined $logfileline); - if ($logfileline =~ m/^\*/s){ + return unless ( defined $logfileline ); + if ( $logfileline =~ m/^\*/s ) { $logfileline =~ s/^\*/INFO: /s; $logfileline =~ s/^/ /mg; $logfileline =~ s/^\h+INFO/INFO/s; - } else { + } + else { $logfileline =~ s/^/ /mg; } - push(@logFileLines,$logfileline); - print $logfileline,"\n" if $switches{screenlog}; + push( @logFileLines, $logfileline ); + print $logfileline, "\n" if $switches{screenlog}; } -sub warn{ - my $self = shift; +sub warn { + my $self = shift; my $logfileline = shift; - if ($logfileline =~ m/^\*/s){ - $logfileline =~ s/^\*/WARN: /s - } else { + if ( $logfileline =~ m/^\*/s ) { + $logfileline =~ s/^\*/WARN: /s; + } + else { $logfileline =~ s/^/ /mg; } - push(@logFileLines,$logfileline); - print $logfileline,"\n" if $switches{screenlog}; + push( @logFileLines, $logfileline ); + print $logfileline, "\n" if $switches{screenlog}; } -sub fatal{ - my $self = shift; +sub fatal { + my $self = shift; my $logfileline = shift; - if ($logfileline =~ m/^\*/s){ + if ( $logfileline =~ m/^\*/s ) { $logfileline =~ s/^\*/FATAL /s; $logfileline =~ s/^/ /mg; $logfileline =~ s/^\h+FATAL/FATAL/s; - } else { + } + else { $logfileline =~ s/^/ /mg; } - push(@logFileLines,$logfileline); - print $logfileline,"\n"; + push( @logFileLines, $logfileline ); + print $logfileline, "\n"; } -sub trace{ - my $self = shift; +sub trace { + my $self = shift; my $logfileline = shift; - if ($logfileline =~ m/^\*/s){ - $logfileline =~ s/^\*/TRACE: /s - } else { + if ( $logfileline =~ m/^\*/s ) { + $logfileline =~ s/^\*/TRACE: /s; + } + else { $logfileline =~ s/^/ /mg; } - push(@logFileLines,$logfileline); - print $logfileline,"\n" if $switches{screenlog}; + push( @logFileLines, $logfileline ); + print $logfileline, "\n" if $switches{screenlog}; } 1; -- cgit v1.2.3