summaryrefslogtreecommitdiff
path: root/support/latexindent/LatexIndent/Logger.pm
diff options
context:
space:
mode:
Diffstat (limited to 'support/latexindent/LatexIndent/Logger.pm')
-rw-r--r--support/latexindent/LatexIndent/Logger.pm61
1 files changed, 33 insertions, 28 deletions
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;