Branch Coverage

blib/lib/Log/Log4perl/Level.pm
Criterion Covered Total %
branch 16 26 61.5


line true false branch
51 31 568 unless defined $log_dispatch_level
55 568 31 if defined $syslog
76 2 575 if (defined $namespace) { }
79 2 0 unless $namespace =~ /::$/
110 238 1 if (exists $Log::Log4perl::Level::PRIORITY{$string}) { }
122 90 0 if (exists $Log::Log4perl::Level::LEVELS{$priority}) { }
138 0 0 unless defined $priority
142 0 0 if (exists $Log::Log4perl::Level::LEVELS{$priority})
147 0 0 if ($priority == $Log::Log4perl::Level::PRIORITY{'WARN'})
151 0 0 if ($priority == $Log::Log4perl::Level::PRIORITY{'FATAL'})
163 3 238 if ($q =~ /[A-Z]/) { }
182 41 5153 if ($p > $old_priority)
203 76 3698 if ($p < $old_priority)