Branch Coverage

blib/lib/Log/Log4perl/Logger.pm
Criterion Covered Total %
branch 118 146 80.8


line true false branch
82 0 155 if $Log::Log4perl::CHATTY_DESTROY_METHODS
107 295 272 if $logger eq $ROOT_LOGGER
124 0 569 unless defined $category
130 384 185 if (exists $Log::Log4perl::Logger::LOGGERS_BY_NAME->{$category})
199 6 4 if $seen{$appender_name}++ and $Log::Log4perl::one_message_per_appender
208 42 1828 unless $logger->{'additivity'}
215 467 716 !@appenders ? :
221 5041 5477 if (Log::Log4perl::Level::isGreaterOrEqual($level, $priority{$levelname})) { }
273 6 531 ref $_ eq 'CODE' ? :
4 537 ref $_ eq 'HASH' && exists $_->{'filter'} && ref $_->{'filter'} eq 'CODE' ? :
280 20 479 if (defined $Log::Log4perl::Config::WATCHER)
281 2 18 unless &$watch_check_code($logger, @_, $level)
299 517 36 if $appender->log({"name", $appender_name, "level", $Log::Log4perl::Level::L4P_TO_LD{$level}, "message", $message}, $logger->{'category'}, $level)
329 43 1140 if (defined $Log::Log4perl::Config::WATCHER) { }
354 12072 415 unless (defined $Log::Log4perl::Config::WATCHER)
371 6 57 if (&$cond()) { }
374 2 4 if (exists $Log::Log4perl::Config::OPTS->{'preinit_callback'})
382 5 1 if ($init_permitted) { }
395 2 3 if ($type eq 'checker') { }
3 0 elsif ($type eq 'logger') { }
431 110 305 if (defined $Log::Log4perl::Config::Watch::SIGNAL_CAUGHT)
451 0 2225 if ($string eq "")
457 1308 917 if (@components == 1)
472 241 1575 if (defined $level)
473 0 241 unless Log::Log4perl::Level::is_valid($level)
475 3 238 if ($level =~ /\D/)
480 54 187 unless $dont_reset_all
488 773 802 if (defined $self->{'level'})
496 743 956 if ($logger->{'category'} eq "")
501 59 897 if (defined $$LOGGERS_BY_NAME{$logger->{'category'}}{'level'})
518 1141 1584 if ($logger->{'category'} eq "")
532 1308 276 if ($parent_class eq '') { }
553 5 0 if (defined $onoff)
557 2 3 unless ($no_reinit)
569 1 438 unless (defined $ROOT_LOGGER)
573 164 274 if $category eq ""
592 213 1 unless (grep {$_ eq $appender_name;} @{$$self{"appender_names"};})
599 31 183 unless $dont_reset_all
614 4 2 unless (exists $appender_names{$appender_name})
615 0 4 unless $sloppy
623 2 0 unless $dont_reset_all
631 1 0 if $_[0] eq "Log::Log4perl::Logger"
636 0 1 unless exists $APPENDER_BY_NAME{$appender_name}
649 1 0 unless $dont_reset_all
669 0 11 unless defined $priority
673 0 11 if defined $Log::Log4perl::Config::WATCHER
675 0 0 unless $INITIALIZED or $NON_INIT_WARNED
677 0 11 if $priority =~ /\D/
703 1 32 if $INITIALIZED
709 0 32 unless $PRIORITY{$after}
731 1 31 if $Log::Log4perl::Level::LEVELS{$cust_prio}
783 1 0 unless $INITIALIZED or $NON_INIT_WARNED
784 436 0 if defined $_[0]{$level}
834 27 5 unless (chomp $message)
838 0 27 if (defined &Thread::tid)
840 0 0 if $tid
862 1 10 if ($DIE_DEBUG) { }
865 9 1 if ($Log::Log4perl::STRINGIFY_DIE_MESSAGE)
880 4 2 if ($self->is_warn)
898 7 1 if ($self->is_fatal)
906 8 0 $Log::Log4perl::LOGDIE_MESSAGE_ON_STDERR ? :
918 0 0 if ($self->is_fatal)
942 2 2 if ($self->is_warn)
964 9 2 if ($self->is_warn)
990 6 1 if ($self->is_fatal)
999 6 1 if ($Log::Log4perl::STRINGIFY_DIE_MESSAGE)
1004 7 0 $Log::Log4perl::LOGDIE_MESSAGE_ON_STDERR ? :
1022 4 1 if ($self->is_fatal)
1031 4 1 if ($Log::Log4perl::STRINGIFY_DIE_MESSAGE)
1036 5 0 $Log::Log4perl::LOGDIE_MESSAGE_ON_STDERR ? :
1050 2 1 if ($self->is_error)
1067 2 1 if ($self->is_error)
1072 3 0 $Log::Log4perl::LOGDIE_MESSAGE_ON_STDERR ? :