Branch Coverage

blib/lib/Bio/Phylo/Util/Logger.pm
Criterion Covered Total %
branch 23 64 35.9


line true false branch
59 0 200 if @_
67 1 1 if (&looks_like_instance($arg, 'CODE')) { }
88 0 235631 if exists $VERBOSITY{$pack1}
89 0 235631 if $sub and exists $VERBOSITY{$sub}
92 0 235631 if ($verbosity >= $levels{$level})
95 0 0 if (index($file, $PREFIX) == 0)
111 0 0 if $_[0]
112 0 0 if $_[0]
113 4 0 if $_[0]
114 70999 0 if $_[0]
115 164628 10 if $_[0]
119 0 0 if $prefix
124 2 12 if ref $_[0] or $_[0] eq 'Bio::Phylo::Util::Logger'
125 14 0 if (@_)
130 14 0 if (defined $level)
133 0 14 if ($level > 4 xor $level < 0)
138 0 14 if (my $class = $opt{'-class'}) { }
0 14 elsif (my $method = $opt{'-method'}) { }
139 0 0 if (ref $class eq 'ARRAY') { }
153 0 0 if (ref $method eq 'ARRAY') { }
173 0 14 if ($opt{'-file'})
174 0 0 unless open my $fh, '>>', $opt{'-file'}
179 0 14 if ($opt{'-handle'})
185 0 14 if ($opt{'-listeners'})
190 0 14 if ($opt{'-prefix'})
195 0 14 if ($opt{'-style'})
197 0 0 if (exists $STYLE{$s})
203 0 14 if defined $opt{'-colors'}
213 0 0 unless $handle
214 0 0 if ($COLORED and -t $handle)
222 0 0 unless $handle
223 0 0 if ($COLORED and -t $handle)