143 |
with C<debug> flag, it will turn logging to debug level. |
with C<debug> flag, it will turn logging to debug level. |
144 |
|
|
145 |
This function will also read C<log_conf> value from current object and try |
This function will also read C<log_conf> value from current object and try |
146 |
to read that as configuration file if it exists. |
to read that as configuration file if it exists, if it doesn't it will |
147 |
|
fallback to default C<conf/log.conf>. |
148 |
|
|
149 |
|
You can disable all logging by adding C<no_log> to constructor of WebPAC |
150 |
|
object. Object in C<Test::Exception> class will disable logging |
151 |
|
automatically. |
152 |
|
|
153 |
=cut |
=cut |
154 |
|
|
158 |
$file ||= $self->{'log_conf'}; |
$file ||= $self->{'log_conf'}; |
159 |
$file = 'conf/log.conf'; |
$file = 'conf/log.conf'; |
160 |
my $name = (caller(2))[3] || caller; |
my $name = (caller(2))[3] || caller; |
161 |
if ($file) { |
|
162 |
warn "# $name is using $file logger\n" if ($log_debug); |
my $conf = q( ); |
163 |
Log::Log4perl->init($file); |
if ($self->{'no_log'}) { |
164 |
} else { |
warn "# $name disabled logging\n" if ($log_debug); |
165 |
my $conf = q( ); |
} elsif ($self->{'debug'}) { |
166 |
if ($self->{'debug'}) { |
$conf = << '_log4perl_'; |
|
$conf = << '_log4perl_'; |
|
167 |
|
|
168 |
log4perl.rootLogger=INFO, SCREEN |
log4perl.rootLogger=INFO, SCREEN |
169 |
|
|
174 |
log4perl.appender.SCREEN.layout.ConversionPattern=%d %p> %F{1}:%L %M - %m%n |
log4perl.appender.SCREEN.layout.ConversionPattern=%d %p> %F{1}:%L %M - %m%n |
175 |
|
|
176 |
_log4perl_ |
_log4perl_ |
177 |
warn "# $name is using debug logger\n" if ($log_debug); |
warn "# $name is using debug logger\n" if ($log_debug); |
178 |
} else { |
} elsif ($name !~ m/Test::Exception/o) { |
179 |
warn "# $name is using null logger\n" if ($log_debug); |
warn "# disabled logging for Text::Exception\n"; |
180 |
} |
} elsif ($file) { |
181 |
Log::Log4perl->init( \$conf ); |
warn "# $name is using $file logger\n" if ($log_debug); |
182 |
|
Log::Log4perl->init($file); |
183 |
|
} else { |
184 |
|
warn "# $name is using null logger\n" if ($log_debug); |
185 |
} |
} |
186 |
|
Log::Log4perl->init( \$conf ); |
187 |
|
|
188 |
|
return 1; |
189 |
} |
} |
190 |
|
|
191 |
|
|