194 |
|
|
195 |
my ($level,$start_code) = @_; |
my ($level,$start_code) = @_; |
196 |
|
|
|
my $next_level = $level + 1; |
|
|
|
|
197 |
my $log = $self->_get_logger(); |
my $log = $self->_get_logger(); |
198 |
|
|
199 |
|
if (! defined($level)) { |
200 |
|
$log->warn("level is undef, stoping recursion..."); |
201 |
|
return; |
202 |
|
} |
203 |
|
|
204 |
|
my $next_level = $level + 1; |
205 |
|
|
206 |
$log->logconfess("need level") unless (defined($level)); |
$log->logconfess("need level") unless (defined($level)); |
207 |
$log->logconfess("need start_code") unless (defined($start_code)); |
$log->logconfess("need start_code") unless (defined($start_code)); |
208 |
|
|